Hola a todos:
Tengo 2 forms uno llamado principal y otro afiliados. ademas del inicio que es meter una clave
Cuando entro desde principal a afiliados no me da ningun problema pero cuando desde afiliados salgo a principal me pregunta 2 veces si quiero salir una en la pantalla afiliados y otra al salir de afiliados y aparecer principal.
A que puede ser debido, os pongo los codigos
Codigo de principal
Salir de principal
Private Sub frmPrincipal_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = Not UsuarioQuiereSalir()
End Sub
Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClose.Click
Me.ShowInTaskbar = False
Dim oprincipal As New frmPrincipal
oprincipal.ShowInTaskbar = True
End Sub
Private Function UsuarioQuiereSalir() As Boolean
Return MsgBox("¿Desea salir?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Salir") = DialogResult.Yes
End Function
Llamada a Afiliados desde principal
Private Sub cmdAfiliados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAfiliados.Click, cmdAfiliados.Click
Dim oAfiliados As New frmAfiliados
Me.ShowInTaskbar = FalseoAfiliados.ShowDialog()
oAfiliados.ShowInTaskbar = True
End Sub
Codigo de afiliados
Salida de afiliados
Private Sub frmAfiliados_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = Not UsuarioQuiereSalir()
End Sub
Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClose.Click, cmdClose.Click
Me.ShowInTaskbar = False
Dim oPrincipal As New frmPrincipal
oPrincipal.ShowDialog()
oPrincipal.ShowInTaskbar = True
End Sub
Private Function UsuarioQuiereSalir() As Boolean
Return MsgBox("¿Desea salir?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Salir") = DialogResult.Yes
End Function
Gracias y Feliz 2006
