Codigos
Public Archsel As String
Dim linea As String
Dim seluno As Boolean
Dim desc As New ToolTip
Public descarga As String
Private Subformarchrev_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btmabrir.Enabled = True
btmseluno.Enabled = True
btmselvar.Enabled = Truebtmtransf.Enabled = True
txtruta.ReadOnly = True
lstdata.SelectionMode = SelectionMode.None
End Sub
Private Sub txtruta_MouseMove(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles txtruta.MouseMove
desc.SetToolTip(sender, "Ruta del Archivo a buscar")
End Sub
Private Sub txtruta_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles txtruta.TextChanged
End Sub
Private Sub btmborrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmborrar.Click
EndSub
Private Sub btmexam_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btmexam.Click
With ofdunico
.Title = "Seleccionar archivo de texto".Filter = " Archivos de texto (*.txt) | *.txt"
.InitialDirectory = "c:"
.ShowDialog()
Archsel = .FileName
txtruta.Text = Archselbtmabrir.Enabled = True
End With
End Sub
Private Sub btmcerrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btmcerrar.Click
End
End SubPrivate Sub btmabrir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btmabrir.Click
FileOpen(1, Archsel, OpenMode.Input, OpenAccess.Default, OpenShare.Default)
WhileNot EOF(1)
linea = LineInput(1)
lstdata.Items.Add(linea)
End While
FileClose(1)
If lstdata.Items.Count > 0 Then
btmseluno.Enabled =...
Regístrate para leer el documento completo.