La conexión la genero sin problema alguno, el envío con win.sendData se hace bien y del otro lado se reciben los datos, ¿como me doy cuenta? porque si pongo una sintaxis mal en el case salta cuando mando la acción desde el cliente, pero cuando pongo una sintaxis bien NO me la toma.
Form:
Citar
Private Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub
win.GetData GotDat
DoActions (GotDat)
End Sub
Módulo:
Citar
Public Function DoActions(x As String)
Dim Action
Select Case x
Case "v"
MsgBox ("Hello")
End Select
End Function
Dim Action
Select Case x
Case "v"
MsgBox ("Hello")
End Select
End Function
Ahora el problema, es que simplemente no me toma el msgbox, el loco que hizo el código usaba una función, algo así:
Código:
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Public Function DoActions(x As String)
Dim Action
Select Case x
Case "v"
Action = BlockInput(true)
End Select
End Function
¿Que puedo estar haciendo mal?
¿Quizás deba meter el msgbox dentro de una función y hacer el call adentro del case? no sé, ya estoy cansado, me voy a dormir y mañana veo si más fresco entiendo en que tontada le estoy errando.