
Abrir ventana desde otro form
Publicado por Mrdblas (5 intervenciones) el 13/02/2012 18:01:35
Hola.
Tengo una duda, estoy trabajando en vb.net para aplicaciones de windows mobile y tengo una aplicacion que tiene un form1 y al orpimir un boton le mando valores a unas variables y genero una consulta en el form2 de ahi oprimo otro boton y me abre nuevamente el form1 HASTA AHI SIN PROBLEMAS....
La cosa esta en que si oprimo otra vez el boton me manda las variables pero ya no abre el form2
el codigo es
del form1:
Private Sub BusqBoton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BusqBoton.Click
variable = 1
Me.Close()
End Sub
Private Sub frmLevantamiento_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If variable = 1 Then
frmConsDin.variable = CInt(tb1.Text.Trim)
frmConsDin.Ptovta = txtPtoVta.Text.Trim
frmConsDin.Show()
End If
End Sub
del form2
Private Sub ret_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ret.Click
variable = 2
Me.Close()
End Sub
Private Sub frmConsDin_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If variable = 2 Then
frmLevantamiento.variable = 2
frmLevantamiento.sArt = sArt
frmLevantamiento.PtoVta = txtPtoVta.Text.Trim
frmLevantamiento.Show()
End If
End Sub
Espero me puedan ayudar, no tengo idea de porque no me muestra el form2 de nuevo
saludos
Tengo una duda, estoy trabajando en vb.net para aplicaciones de windows mobile y tengo una aplicacion que tiene un form1 y al orpimir un boton le mando valores a unas variables y genero una consulta en el form2 de ahi oprimo otro boton y me abre nuevamente el form1 HASTA AHI SIN PROBLEMAS....
La cosa esta en que si oprimo otra vez el boton me manda las variables pero ya no abre el form2
el codigo es
del form1:
Private Sub BusqBoton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BusqBoton.Click
variable = 1
Me.Close()
End Sub
Private Sub frmLevantamiento_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If variable = 1 Then
frmConsDin.variable = CInt(tb1.Text.Trim)
frmConsDin.Ptovta = txtPtoVta.Text.Trim
frmConsDin.Show()
End If
End Sub
del form2
Private Sub ret_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ret.Click
variable = 2
Me.Close()
End Sub
Private Sub frmConsDin_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If variable = 2 Then
frmLevantamiento.variable = 2
frmLevantamiento.sArt = sArt
frmLevantamiento.PtoVta = txtPtoVta.Text.Trim
frmLevantamiento.Show()
End If
End Sub
Espero me puedan ayudar, no tengo idea de porque no me muestra el form2 de nuevo
saludos
Valora esta pregunta


0