[RESOLVED] recive message

[andy345]

I have a program and it recives messages from more than one person. How would I make it so each message pops up in a new form and like messages from the same user go in the same window.

Here is some code for the message reciveing

Private Sub Message(strName As String, strMsg As String)
Dim frm As Form
Dim blnExist As Boolean
 
For Each frm In Forms
    If UCase(frm.Caption) = UCase(strName) Then
        blnExist = True
        Exit For
    End If
Next frm
 
If blnExist = False Then
Dim newfrm As New Form2
newfrm.Caption = strName
newfrm.Tag = strName
newfrm.Text1.Text = newfrm.Text1.Text & strName & " - " & strMsg & vbNewLine
newfrm.Show (vbNormal)
End If
 
If blnExist = True Then
If newfrm.Tag = strName Then
newfrm.Text1.Text = newfrm.Text1.Text & strName & " - " & strMsg & vbNewLine
End If
End If
 
End Sub

That makes it so the new messages show in a new window and everything but only the first message works. Ill try to explain it better if that doesnt make sense.

[RhinoBull]

That loop to search for a loaded form that I gave you in your other thread doesn't really make any sense in this context. Can you explain what is that you need to do and as clear as possible.

BTW, you should've just continue in that thread instead ...

[andy345]

I was going to continue their but i didnt kno wheter or not to cause the question was answered and yeah.

So ill get on with explaining. I have a form where the message is recived and when a new message comes in i want it to be in a new window and i figured i could use

Dim newfrm As New Form2
newfrm.Show (vbNormal)

to open each new message but i need the incoming mesages to go into the form that they belong.

So say person1 sends me a message it should open up a new form2 with the message in it and then if person1 sends another message it should go into the same form. Then if person2 sends a message it should do the same thing into its own form. So how would I do that? and i think if thats not clear i can try to explain a little more again

[RhinoBull]

Still doesn't make much sense (yet) ... How do you communicate with "Person1" - via what interface?

[andy345]

I have all that stuff done and I can make it put all the messages in a listbox or a text box. Its doing it through winsock. Its basically a client server thing. But I need to make it so that the incoming messages are in new windows and so that they have all the messages coming from that person in the same window.

[RhinoBull]

So why don't you simply use ONE form to display ANY of you new messages:

Private Sub DisplayMessage(strMsg As String)
Dim frm As frmMsg
 
    Set frm = New frmMsg
    frm.lbMessage.Caption = strMsg
    frm.Show vbModal
 
End Sub

[andy345]

Because that gets confusing if your getting messages from 5 people in the same window.

[RhinoBull]

That WON'T be exactly the same window - for each message a brand NEW instance will be created.
Also, (if that is really important) you may pass person't name to that procedure and display it in say form's caption so you know who sent it:

Private Sub DisplayMessage(strMsg As String, strUser As String)
Dim frm As frmMsg
 
    Set frm = New frmMsg
    frm.lbMessage.Caption = strMsg
    frm.Caption = "Message Received From " & strUser
    frm.Show vbModal
 
End Sub

[andy345]

Oooo yeah but is their anyway to put the messages from the same user in the same form?

[RhinoBull]

In that case search might come handy:

Private Sub DisplayMessage(strMsg As String, strUser As String)
Dim frm As Form
Dim blnExist As Boolean
 
    For Each frm In Forms
        If UCase(frm.Tag) = UCase(strUser) Then
            blnExist = True
            Exit For
        End If
    Next frm
    
    If Not blnExist Then
        Set frm = New frmMsg
        frm.Caption = "Message Received From " & strUser
        frm.Tag = strUser
    End If
    
    frm.lstMsg.AddItem strMsg
    frm.Show
    frm.ZOrder
 
End Sub

EDIT: I modified code a little (it wasn't tested) so give it a try and let me know if it works for you this time arround.
NOTE: also, I used Listbox instead of label so you can identify new message more easily.

[andy345]

That does the same thing but puts the message in a listbox

[RhinoBull]

Sorry for late respond but I couldn't do it last night as VBF became unavailable.
Anyway, that wouldn't be exactly the same: it'll try to find window first and if doesn't yet exist it will create a brand new instance and then assign Caption/Tag and at the end it will add new item to the list. On the other hand if window already exist then only new item added to the list.

Here is how to test it:
- create two forms (say Form1 and frmMsg)
- copy DisplayMessage procedure to Form1
- add two buttons to Form1
- execute the following code for each button and see what happends next:

Private Sub Command1_Click()
    DisplayMessage "hi", "John"
End Sub
 
Private Sub Command2_Click()
    DisplayMessage "hi", "Peter"
End Sub

[andy345]

Im trying to make the incoming messages like when u recive a message on aim/msn/yahoo where it opens a new window with the message and every message you get from the same person goes in that window.

[RhinoBull]

That's what my DisplayMessage procedure is aiming at.

[andy345]

Ok just making sure that you understand what I was saying.

Right now the display message opens them in a new window no matter what.

Could I have it search for the form.tag becuase all the forms have the same name? And then if it finds the form tag it sends it to that form and if it doesnt find it it opens a new form. Is that possible?

[RhinoBull]

... Could I have it search for the form.tag becuase all the forms have the same name? And then if it finds the form tag it sends it to that form and if it doesnt find it it opens a new form. Is that possible?

Andy,
I will say it one more time: THAT IS EXACTLY WHAT MY SAMPLE PROCEDURE DOES so take a good look at it again and then give it the try.
It's in the post #10.

Good luck.

[andy345]

Wow im sorry i have been watching tv and responding so I wasnt paying really close attenchion

Edit: I just put ur code in and every message opens in a new window so I dont think its working still.

Edit2: Actually I think it is working. Ill post another edit in a minute to tell you if i got it.

Edit3: Ok it is working I did some tests with sending messages from different names and it works good.

SO Thank You very much for all your help RhinoBull.

[RhinoBull]

No problem, enjoy it!