[VB6] INSERIR LINHA POR LINHA DE UM TXT
Olá galera, eu estou desenvolvendo um ip-changer para Tibia e eu precisava adicionar as linhas de um arquivo txt em uma combobox no form load, linha por linha.
Desde já agradeço.
Desde já agradeço.
Private Sub Form_Load()
Dim strArquivo As String
Dim intFreeFile As Integer
Dim strRegistro As String
strArquivo = [Ô]C:\arquivo.txt[Ô]
intFreeFile = FreeFile
Open strArquivo For Input As #intFreeFile
Do Until EOF(intFreeFile)
Line Input #intFreeFile, strRegistro
Combo1.AddItem strRegistro
Loop
Close #intFreeFile
End Sub
Dim strArquivo As String
Dim intFreeFile As Integer
Dim strRegistro As String
strArquivo = [Ô]C:\arquivo.txt[Ô]
intFreeFile = FreeFile
Open strArquivo For Input As #intFreeFile
Do Until EOF(intFreeFile)
Line Input #intFreeFile, strRegistro
Combo1.AddItem strRegistro
Loop
Close #intFreeFile
End Sub
Tópico encerrado , respostas não são mais permitidas