Public Class AdrI
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Panel1.Hide()
        PictureBox1.Hide()
        If TextBox1.Text = "..." And TextBox2.Text = "..." Then
            Panel1.Show()
            Panel2.Hide()
        Else
            MsgBox("Incorrecto")
 
        End If
 
    End Sub
 
 
    Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
 
    End Sub
 
 
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()
    End Sub
 
 
 
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        PictureBox1.Hide()
        Button18.Hide()
        Button19.Show()
 
    End Sub
 
    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        PictureBox1.Show()
        Button18.Show()
        Button19.Hide()
    End Sub
 
    Private Sub AdrI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
 
End Class
 

 If TextBox1.Text = "Usuario" And TextBox2.Text = "Contraseña" Then
            Panel1.Show()
            Panel2.Hide()
        Else
            MsgBox("Incorrecto")
 
        End If

Cita de: SockMon en 22 Agosto 2010, 01:30 am

Cita de: petro_boca en 22 Agosto 2010, 01:27 am

Cita de: SockMon en 22 Agosto 2010, 01:15 am

Creo que lo que me dices no es lo que busco, pero gracias. Dime si me equivoco(eso es para que se habra lo que ponga en el textbox no?) Enparte eso es lo que quiero pero que una vez que cierre el programa se quede guardada esa direccion y que si algun dia la quiero cambiar que se pueda.

ahh..

yo cargaria un txt a la memoria, y q el txt tenga escrita la ruta, y q despues carges el contenido del txt (la ruta) al text1.text

Bien, pero se podria cambiar y guardar una nueva direccion con ese metodo todas las veces que quieras.
Y como se haria?

modificando el TXT(archivo de texto q se carga en la memoria, y se puede leer en tu text1.text)

ahora te hago un ejemplo

 
Private Sub Form_Load()
Dim direccion As String
direccion = "C:\direccion.txt"
  Text1 = ""
 
  Open direccion For Input As #1
 
 
  While Not EOF(1)
 
    Line Input #1, Linea
 
    Text1 = Linea 
 
  Wend
 
  Close
 
 
 
 
End Sub
 
 

Private Sub Form_Load()
        Dim direccion As String
        direccion = "C:\Users\Adrián\Desktop\datos.txt"
        TextBox4 = ""
 
  Open direccion For Input As #1
 
 
        While Not EOF(1)
 
    Line Input #1, Linea
 
            TextBox4 = Linea
 
        End While
 
        Close()
 
 
 
 
    End Sub

 
Private Sub Form_Load()
Dim direccion As String
direccion = "C:\Users\Adrián\Desktop\datos.txt"
  Text4 = ""
 
  Open direccion For Input As #1
 
 
  While Not EOF(1)
 
    Line Input #1, Linea
 
    Text4 = Linea 
 
  Wend
 
  Close
 
 
 
 
End Sub