Codigos

Solo disponible en BuenasTareas
  • Páginas : 3 (595 palabras )
  • Descarga(s) : 0
  • Publicado : 30 de enero de 2011
Leer documento completo
Vista previa del texto
Public Class formarchrev
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 =...
tracking img