Pregunta sencillita.

Estoy creando un programilla, y le he añadido un Asistente para configurarlo.
La primera pantalla del asistente se llama:
frmAsist1
Y luego la 2, 3 y la última, la 4º:
Form1
Form2
Form3
Respectivamente.
En la pantalla del programa principal, tengo TextBox que se tienen que configurar según el asistente.
Había puesto este código, pero no me funciona (es en el Form2):
Private Sub Command1_Click()
If Form1.Check1.Value = 1 Then
frmChat.Text1.Text = Form2.Text1.Text
frmChat.Text2.Text = Form2.Text1.Text + 1
End If
If Form1.Check2.Value = 1 Then
frmChat.Text1.Text = Form2.Text1.Text
frmChat.Text2.Text = Form2.Text1.Text - 1
End If
Unload Form2
Form3.Show
End Sub
Lo de check1 es para la IP, que si se selecciona esa casilla es el ordenador principal y entonces el Text1 del form2 (Para poner la IP tuya), se pone esa misma en el Text1 del programa principal, y el Text2 es igual a eso + 1, eso si el Check1 del Form1 esta activado (significando que este es el ordenador principal).
Y he puesto que si es el check2 el que esta activado, pues al revés, el Text1 del principal es igual pero el text2 es igual pero - 1
Saludos! Gracias a todos!
PD.: Si alguien quiere que le mande todos los formularios que lo diga ;-)

1 respuesta

Respuesta
1
No he recibido nada, me lo puedes mandar otra vez.
mándamelo a [email protected]
Ya te los he mandado.
Gracias!
Ya te lo reenvié hace ya unos días. ¿Te llegó?
Lo he mandado a [email protected]
Comprueba que me has dado bien la dirección.
Mil gracias!
En el form2 en Command1. Click evalua lo que tienes escrito en el text3.text:
if frmcat.text3.text= "999" then 'Equipo principal
frmChat.Text1.Text = Form2.Text1.Text
frmChat.Text2.Text = Form2.Text1.Text + 1
end if
En Command2: Unload form2. No puedo cargar los formularios ha llegado algo mal. Suerte

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas