none
Lanzar ventana que retorna valor booleano y segun el retorno abrir otra ventana...al inicio de la app RRS feed

  • Pregunta

  • Hola, me gustaria que me ayuden con algo. Tengo un formulario de login el cual tiene una propiedad booleana, el formulario retornara true si los datos del usuario que intenta logear son correctos y false sino. El hecho es que una vez este hecha esta validacion cerrare el formulario. Lo que deseo sabes es donde puedo programar para al inicio de la aplicacion lanzar mi ventana de acceso y si la propiedad logeo retorna TRUE pues abrir el formulario principal; serial algo asi como este codigo pero para VB.

    Option Strict On
    Option Explicit On
    
    
    Namespace My
        Partial Friend Class MyApplication
    
            <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
            Public Sub New()
                MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
    
                Dim frm As New Form1()
                frm.ShowDialog()
                If frm.logeo = True Then
                    frmPrincipal.show()
                End If
    
    
                Me.IsSingleInstance = False
                Me.EnableVisualStyles = True
                Me.SaveMySettingsOnExit = True
                Me.ShutdownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
            End Sub
    
            <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
            Protected Overrides Sub OnCreateMainForm()
                Me.MainForm = Global.WindowsApplication1.Form1
            End Sub
        End Class
    End Namespace
    
    Gracias.

    sábado, 18 de febrero de 2012 23:02

Todas las respuestas

  • Hola Piiidro

    Podrías hacer esto en tu formulario login:

    1. En el boton cancelar:

    Private Sub btnCancel_Click(ByVal sender As System.Object, _
     ByVal e As System.Windows.RoutedEventArgs)
      DialogResult = False
    End Sub

    2. En el boton aceptar:

    Private Sub btnLogin_Click(ByVal sender As System.Object, _
      ByVal e As System.Windows.RoutedEventArgs)
      'Autenticar el usuario-contraseña
      'Si se autentica devolver DialogResult = True
      DialogResult = True
    End Sub

    3. Así sería en el formulario principal:

    frmLogin.Owner = Me
    frmLogin.ShowDialog()
    If frmLogin.DialogResult.HasValue And frmLogin.DialogResult.Value Then
        MessageBox.Show("Usuario ha entrado")
    Else
        Me.Close()
    End If

    Espero te ayude.

    Un saludo


    Antonio Lobo
    Para el correcto funcionamiento, y que otros usuarios se puedan beneficiar de la solucion de esta pregunta por favor marca las respuestas que te hayan ayudado como "Respuesta".
    Si la respuesta te ha sido util Votala.
    Mi blog

    domingo, 19 de febrero de 2012 13:33