Mirage Source › Mirage Source (Nostalgia) › Archive (2006-2011) › Source Code Development › Mirage Source 4 (Visual Basic 6) › Tutorials v
[Feature] Open/Close ChatBox

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Threaded Mode
[Feature] Open/Close ChatBox
Mattyw
Unregistered
 
#1
21-09-2008, 01:51 AM
Difficulty: 0/5 - Very easy to add/use.
Functionality: Made for MS4, good for if TextBox is on the GameScreen(kind of).

Go into frmMirage, & look for "Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)", then add this in:

Code:
If KeyCode = vbKeyReturn Then
        If txtChat.Visible = False Then
            txtChat.Visible = True
            txtMyChat.Visible = True
            SetFocusOnChat
        Else
            If txtMyChat.Text  vbNullString Then
                txtChat.Visible = True
                txtMyChat.Visible = True
                Exit Sub
            End If
            txtChat.Visible = False
            txtMyChat.Visible = False
        End If
    End If

It's amde so when you press Enter, it opens. If you press enter with a message, ChatBox stays open, if you press Enter without a message it closes.

ENJOY!
Reply
GIAKEN
Unregistered
 
#2
21-09-2008, 01:53 AM
Would this interfere with pressing enter to send a message?
Reply
Jacob
Unregistered
 
#3
21-09-2008, 01:57 AM
Code:
If KeyCode = vbKeyReturn Then
            txtChat.Visible = not txtChat.Visible
            txtMyChat.Visible = not txtMyChat.Visible        
    End If
Reply
GIAKEN
Unregistered
 
#4
21-09-2008, 01:59 AM
Code:
If KeyCode = vbKeyReturn Then
        txtChat.Visible = Not txtChat.Visible
        txtMyChat.Visible = Not txtMyChat.Visible
        KeyCode = 0
    End If
Reply
Nean
Unregistered
 
#5
21-09-2008, 02:06 AM
Code:
' lol I added a comment
  If KeyCode = vbKeyReturn Then
        txtChat.Visible = Not txtChat.Visible
        txtMyChat.Visible = Not txtMyChat.Visible
        KeyCode = 0
    End If
Reply
Anthony
Unregistered
 
#6
21-09-2008, 02:16 AM
How about adding a frmMirage.Height = blah blah so that it shrinks/enlarges the form when you open/close it.
Reply
Mattyw
Unregistered
 
#7
21-09-2008, 02:18 AM
I have it ontop of my GameScreen, so I'll leave for the PUBLIC to modify. =-p

EDIT: Updated:

Code:
If KeyCode = vbKeyReturn Then
        If txtText.Visible = False Then
            txtText.Visible = True
            txtChat.Visible = True
            txtMyChat.Visible = True
            SetFocusOnChat
        Else
            If txtMyChat.Text  vbNullString Then
                txtText.Visible = True
                txtChat.Visible = True
                txtMyChat.Visible = True
                Exit Sub
            End If
            txtText.Visible = False
            txtChat.Visible = False
            txtMyChat.Visible = False
        End If
    End If

If you entered something, ChatBox stays open, if you entered nothing, it closes.
Reply
skillzalot
Unregistered
 
#8
22-09-2008, 10:40 AM
I don't know if it was your code or mine but every time txt.Text showed up I got Variable not defined so I changed all the txt.Text to txt.Chat and it installed properly so My code looks like this
Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Call CheckInput(1, KeyCode, Shift)
    If KeyCode = vbKeyF1 Then
    frmAdminPanel.Visible = True
    End If
    If KeyCode = vbKeyReturn Then
        If txtChat.Visible = False Then
            txtChat.Visible = True
            txtChat.Visible = True
            txtMyChat.Visible = True
            SetFocusOnChat
        Else
            If txtMyChat.Text  vbNullString Then
                txtChat.Visible = True
                txtChat.Visible = True
                txtMyChat.Visible = True
                Exit Sub
            End If
            txtChat.Visible = False
            txtChat.Visible = False
            txtMyChat.Visible = False
        End If
    End If
End Sub
That is my whole Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Reply
Mattyw
Unregistered
 
#9
22-09-2008, 03:11 PM
skillzalot Wrote:I don't know if it was your code or mine but every time txt.Text showed up I got Variable not defined so I changed all the txt.Text to txt.Chat and it installed properly so My code looks like this
Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Call CheckInput(1, KeyCode, Shift)
    If KeyCode = vbKeyF1 Then
    frmAdminPanel.Visible = True
    End If
    If KeyCode = vbKeyReturn Then
        If txtChat.Visible = False Then
            txtChat.Visible = True
            txtChat.Visible = True
            txtMyChat.Visible = True
            SetFocusOnChat
        Else
            If txtMyChat.Text  vbNullString Then
                txtChat.Visible = True
                txtChat.Visible = True
                txtMyChat.Visible = True
                Exit Sub
            End If
            txtChat.Visible = False
            txtChat.Visible = False
            txtMyChat.Visible = False
        End If
    End If
End Sub
That is my whole Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Change/remove txtText, forgot to remove from tut, I used that, but removed & changed with a Dropdown list.
Reply
Clu
Unregistered
 
#10
22-09-2008, 08:11 PM
wouldnt this interfere with enter to pick up items? (assuming enter is pick up items)
Reply
Mattyw
Unregistered
 
#11
22-09-2008, 08:41 PM
Clu Wrote:wouldnt this interfere with enter to pick up items? (assuming enter is pick up items)

Could, it's why I changed my Pickup to SpaceBar. =-p
Reply
Acruno
Unregistered
 
#12
17-02-2009, 01:30 PM
Apologies for the necro but I had a look at this and it doesn't work anymore.
In HandleKeyPresses
Code:
If LenB(ChatText) = 0 Then

change that little bit to
Code:
If LenB(ChatText) = 0 Then
        If KeyAscii = vbKeyReturn Then
            If frmMirage.txtChat.Visible = True Then
                frmMirage.txtChat.Visible = False
                frmMirage.txtMyChat.Visible = False
            Else
                frmMirage.txtMyChat.Visible = True
                frmMirage.txtChat.Visible = True
                SetFocusOnChat
            End If
            Exit Sub
        End If
    End If
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)