am working on yahoo pm messsage , am stuck on 1 thing when ever a new user pms then it should open new form and chat this is currently code i have having issue
web is the webbrowser
please help me fix this all blue colour code
i wish to display my text in webbrowser thanks please guys
if i do this then it works for single pms, when multi users pm then everybody gets jammed in 1 window
web is the webbrowser
please help me fix this all blue colour code
Code:
Private forma As Form8
Dim forma As New Form
Dim tmpUser As String, tmpMsg As String
tmpUser = Split(Data, "4À€")(1)
tmpUser = Split(tmpUser, "À€5")(0)
tmpMsg = Split(Data, "À€14À€")(1)
tmpMsg = Split(tmpMsg, "À€63")(0)
User = Split(Data, "4À€")(1)
User = Split(User, "À€5")(0)
If InStr(User, "À€1À€") Then
User = Split(User, "À€1À€")(1)
End If
message = Split(Data, "À€14À€")(1)
message = Split(message, "À€")(0)
'tmpUser = Empty
'tmpMsg = Empty
' PrivateMessageRecieved Data
ProcessHTML4 "<font size=" & frmMain.Combo3.Text, User & ": " & message, forma.Web
forma.showi wish to display my text in webbrowser thanks please guys
if i do this then it works for single pms, when multi users pm then everybody gets jammed in 1 window
Code:
Dim tmpUser As String, tmpMsg As String
tmpUser = Split(Data, "4À€")(1)
tmpUser = Split(tmpUser, "À€5")(0)
tmpMsg = Split(Data, "À€14À€")(1)
tmpMsg = Split(tmpMsg, "À€63")(0)
User = Split(Data, "4À€")(1)
User = Split(User, "À€5")(0)
If InStr(User, "À€1À€") Then
User = Split(User, "À€1À€")(1)
End If
message = Split(Data, "À€14À€")(1)
message = Split(message, "À€")(0)
'tmpUser = Empty
'tmpMsg = Empty
ProcessHTML4 "<font size=" & frmMain.Combo3.Text, User & ": " & message, form8.Web