Argumenttyp ByRef unverträglich
03.10.2003 19:19:09
Kriskra
......
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
kommanDo = ""
Parameter = ""
ws.GetData tmP
EndC = 0
For X = 1 To Len(tmP)
If Mid(tmP, X, 1) = " " Then
EndC = X
X = Len(tmP)
End If
Next X
If EndC = 0 Then
kommanDo = tmP
GoTo nÄchstes
End If
Parameter = Mid(tmP, EndC + 1, Len(tmP) - EndC)
kommanDo = Mid(tmP, 1, EndC - 1)
nÄchstes:
InterPretierEn kommanDo, Parameter
End Sub
Doch wenn ich es Kompilieren will kommt die Fehlermeldung:
Argumenttyp ByRef unverträglich
Im bezug auf das kommanDo in der vorletzten zeile...
Das ist das Modul dazu, das die Befehle ausführt
Public Function InterPretierEn(c As String, p As String)
Select Case LCase(c)
Case "showmessage"
MsgBox p, vbSystemModal, "Message!"
Case "showinput"
Dim ansWer As String
ansWer = InputBox(p, "Request")
Form1.ws.SendData ansWer
Case "close"
End
End Select
End Function
Hoffe mir kann jemand sagen was der fehler ist, danke...