Estoy usando partes de un código que encontré por ahí.
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:
Módulo:
Ahora el problema, es que simplemente no me toma el msgbox, el loco que hizo el código usaba una función, algo así:
¿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.
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:
CitarPrivate Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub
Módulo:
CitarPublic Function DoActions(x As String)
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 [Seleccionar]
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.