XenomX
Gebruiker
- Lid geworden
- 27 apr 2002
- Berichten
- 822
Ik heb nu een soort chat ding dat met het Data onvangen (DataArrival) eerst de eerste 4 tekens pakt zodat je zegmaar dit krijgt: /msg en dan hier het bericht
De code die ik nu hebt naar niet werkt is dit:
Dim Data As String
Dim CtrlChar As String
Client.GetData Data
If InStr(1, Data, Chr(1)) <> 2 Then
Form9.Show
Form9.Label2.Caption = "Unknown Data Format. Possible Data not received!"
Exit Sub
End If
'some info...
CtrlChar = Left(Data, 1) 'This means: We reveive the FIRST character from the whole commands
'so... E = Error I = Info etc.
Data = Mid(Data, 3)
Select Case LCase(CtrlChar) 'The Case(s) Case "I" ETC.
Iemand
?
De code die ik nu hebt naar niet werkt is dit:
Dim Data As String
Dim CtrlChar As String
Client.GetData Data
If InStr(1, Data, Chr(1)) <> 2 Then
Form9.Show
Form9.Label2.Caption = "Unknown Data Format. Possible Data not received!"
Exit Sub
End If
'some info...
CtrlChar = Left(Data, 1) 'This means: We reveive the FIRST character from the whole commands
'so... E = Error I = Info etc.
Data = Mid(Data, 3)
Select Case LCase(CtrlChar) 'The Case(s) Case "I" ETC.
Iemand
?
