Si el PC y el móvil están vinculados, muchos modelos no piden confirmación al recibir algo y lo guardar automáticamente.

Saludos.

Si te refieres a la aplicación creada en VB, utiliza el evento QueryUnload del formulario.

Saludos.

Gracias, me funcionaron los tres métodos.

Saludos.

Hola. Quisiera saber como crear una propiedad en un UserControl en la que se establezca un form. Me explico: estoy haciendo un UserControl que simula una barra de título, y lo que quiero es que al hacer click en el icono de cerrar, se cierre el formulario en el que está el UserControl. Para ello necesito una propiedad en la que se establezca cuál es el form en el que está el UserControl y lo cierre. Lo he intentado pero no soy capaz. ¿Alguien puede ayudarme?

Gracias de antemano.

Pero aunque lleguen los datos, debes poder mostrarlos. Puedes utilizar el mismo código que pusiste en en el servidor:

EDITADO: después de TxLog pon .Text

Saludos.

Hola. Para que llegue el mensaje del servidor al cliente, tienes que poner, por ejemplo:

MsgBox dat
 

Esto iría debajo de:

Wsk.GetData dat, vbString
 

Saludos.

OK, gracias. No me había dado cuenta. Menuda tontería. Gracias de nuevo.

Saludos.

Quiero pasar de los txtResultado a los otros. Estoy haciendo una especie de creador de personajes para D&D.

Estuve probando a utilizar Drag en vez de OLEDrag, pero me dice que el espacio de pila es insfuficiente.

Saludos.

Con esto se podría hacer un lenguaje de programación propio...

Saludos.

Lo probé en un proyecto nuevo y si funciona, pero en el mío no.
A ver, este es el código que tengo yo:

Private Sub Form_Load()
txtResultado1.OLEDragMode = 1
txtResultado2.OLEDragMode = 1
txtResultado3.OLEDragMode = 1
txtResultado4.OLEDragMode = 1
txtResultado5.OLEDragMode = 1
txtResultado6.OLEDragMode = 1
txtFuerza.OLEDropMode = 1
txtDestreza.OLEDropMode = 1
txtConstitucion.OLEDropMode = 1
txtInteligencia.OLEDropMode = 1
txtSabiduria.OLEDropMode = 1
txtCarisma.OLEDropMode = 1
End Sub
 
Private Sub txtCarisma_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtCarisma.Text = Data.GetData(1)
End Sub
 
Private Sub txtConstitucion_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtConstitucion.Text = Data.GetData(1)
End Sub
 
 
Private Sub txtDestreza_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtDestreza.Text = Data.GetData(1)
End Sub
 
Private Sub txtFuerza_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtFuerza.Text = Data.GetData(1)
End Sub
 
Private Sub txtInteligencia_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtInteligencia.Text = Data.GetData(1)
End Sub
 
Private Sub txtSabiduria_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtSabiduria.Text = Data.GetData(1)
End Sub
 
Private Sub txtResultado1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
txtResultado1.OLEDrag
End Sub
 
Private Sub txtResultado2_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
txtResultado2.OLEDrag
End Sub
 
Private Sub txtResultado3_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
txtResultado3.OLEDrag
End Sub
 
Private Sub txtResultado4_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
txtResultado4.OLEDrag
End Sub
 
Private Sub txtResultado5_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
txtResultado5.OLEDrag
End Sub
 
Private Sub txtResultado6_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
txtResultado6.OLEDrag
End Sub
 

Y no me funciona... Si alguien sabe por qué.

Saludos.