none
visual basic 2008 express RRS feed

  • Pregunta


  • hola estoy aprendiendo a manejar este programa y tengo muchas dudas, estaba haciendo este prog de login y en la parte de registrarse funciona bien pero en la parte de buscar un usuario ya registrado no funciona correctamente. Me ayudaria mucho si alguien lo revisa...
     
    Public Class registrarse

        Private Sub tabpage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


        End Sub

        Private Sub crear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crear.Click

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            
            If My.Computer.FileSystem.DirectoryExists("C:\test\") Then
                'if the Folder exist do nothing
            Else
                ' if it does not. create it.
                MkDir("C:\test\")
                TextBox1.Text = " "
                TextBox2.Text = " "
            End If
            If My.Computer.FileSystem.DirectoryExists("C:\test\" + TextBox1.Text) Then
                'if the folder exist show an error
                MsgBox("ERROR - Este usuario ya existe")
                TextBox1.Text = " "
                TextBox2.Text = " "
            Else
                'if the folder does not exists
                MkDir("C:\test\" + TextBox1.Text)
                Dim a As New System.IO.StreamWriter("C:\test\" + TextBox1.Text + TextBox2.Text)
                a.WriteLine(TextBox1.Text)
                a.Close()
                TextBox1.Text = " "
                TextBox2.Text = " "
            End If

        End Sub

        Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
            

        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            If TextBox4.Text = " " Then
                MsgBox("escriba un nombre")
                TextBox3.Text = " "
                TextBox4.Text = " "

            Else

                If My.Computer.FileSystem.DirectoryExists("C:\test\" + TextBox4.Text + TextBox4.Text) Then

                    'if the folder exist 
                    MsgBox("Bienvenido")
                    TextBox3.Text = " "
                    TextBox4.Text = " "

                Else
                    'if the folder does not exists

                    MsgBox("ERROR- el usuario no existe")
                    TextBox3.Text = " "
                    TextBox4.Text = " "

                End If
            End If
        End Sub

        Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

        End Sub

        Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        End Sub
    End Class

    miércoles, 30 de junio de 2010 15:12

Todas las respuestas

  • Public Class Form1
      ' il form deve contenere i controlli Texttbox1 , TextBox2 , Button1 , Button2
    
      Sub AddUser()
    
        If TextBox1.Text.Trim + TextBox2.Text.Trim = "" Then
          MsgBox("escriba un nombre (senza .,;)")
          Exit Sub
        End If
    
        If My.Computer.FileSystem.FileExists("C:\test\" + TextBox1.Text.Trim + TextBox2.Text.Trim + ".txt") Then
          MsgBox("ERROR - Este usuario ya existe")
          TextBox1.Text = ""
          TextBox2.Text = ""
          Exit Sub
        End If
    
        If Not My.Computer.FileSystem.DirectoryExists("C:\test") Then
          My.Computer.FileSystem.CreateDirectory("c:\test")
        End If
    
        Dim a As New System.IO.StreamWriter("C:\test\" + TextBox1.Text.Trim + TextBox2.Text.Trim + ".txt")
    
        a.WriteLine(TextBox1.Text.Trim)
        'a.WriteLine(TextBox1.Text.Trim + ";" + TextBox2.Text.Trim)
        a.Close()
    
        MsgBox("Usario registrato correttamente")
        TextBox1.Text = ""
        TextBox2.Text = ""
    
      End Sub
    
      Sub GetUser()
    
        If TextBox3.Text.Trim + TextBox4.Text.Trim = "" Then
          MsgBox("escriba un nombre (senza .,;)")
          Exit Sub
        End If
    
        If My.Computer.FileSystem.FileExists("C:\test\" + TextBox3.Text.Trim + TextBox4.Text.Trim + ".txt") Then
          MsgBox("Bienvenido")
        Else
          MsgBox("ERROR- el usuario no existe")
          TextBox3.Text = " "
          TextBox4.Text = " "
        End If
    
      End Sub
    
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AddUser()
      End Sub
    
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GetUser()
      End Sub
    End Class
    Non sono però daccordo su questo metodo di autenticazione. Ciao.
    lunes, 2 de agosto de 2010 11:35