Mensajes

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:

Código (vb) [Seleccionar] Expandir


TxLog = TxLog & "Client : " & dat & vbCrLf


EDITADO: después de TxLog pon .Text

Saludos.

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

Código (vb) [Seleccionar] Expandir


MsgBox dat

Esto iría debajo de:

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir


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.