12-06-2006, 04:05 AM
Hello all,
Ok I know right off this is probably in the wrong place as usual, but it'll get moved if it is...
I was working on a instant messenger for MSE but I am unable to get it working...
Ok I 'll give the code I was using and let you guy/girls mess with it and see what comes out for you. Little heads up the txtMyText seems to never send to the txtMyTextBox. I would appreciate if you would post the full code on here when your done.
1. Ok make a window called picPrivateTalk
2. Inside that window make 2 text boxes, name the smaller one txtMyChat
and the bigger one txtMyTextBox.
3. In sub game loop near the top somewhere dim the two textboxes
4. Then type this code > in right under " 'blit the text they are putting in
5. Then in modText add
But yeah I was just wondering if someone could point out whats wrong here, and assist me in fixing it.
Ok I know right off this is probably in the wrong place as usual, but it'll get moved if it is...
I was working on a instant messenger for MSE but I am unable to get it working...
Ok I 'll give the code I was using and let you guy/girls mess with it and see what comes out for you. Little heads up the txtMyText seems to never send to the txtMyTextBox. I would appreciate if you would post the full code on here when your done.
1. Ok make a window called picPrivateTalk
2. Inside that window make 2 text boxes, name the smaller one txtMyChat
and the bigger one txtMyTextBox.
3. In sub game loop near the top somewhere dim the two textboxes
4. Then type this code >
Code:
' Blit the txt they are putting in
frmPrivateTalk.txtMyTextBox.Text = MyChat
If Len(MyText) > 4 Then
frmPrivateTalk.txtMyTextBox.SelStart = Len(frmPrivateTalk.txtMyTextBox.Text) + 1
End If
5. Then in modText add
Code:
Public Sub AddText2(ByVal Msg As String, ByVal Color As Integer)
Dim s As String
s = vbNewLine & Msg
frmPrivateChat.txtMyChat.SelStart = Len(frmMirage.txtChat.Text)
frmPrivateChat.txtMyChat.SelColor = QBColor(Color)
frmPrivateChat.txtMyChat.SelText = s
frmPrivateChat.txtMyChat.SelStart = Len(frmMirage.txtChat.Text) - 1
End Sub
But yeah I was just wondering if someone could point out whats wrong here, and assist me in fixing it.