15 Ocak 2012 Pazar

Visual Basic ListBox içeriğine Text Dosya içeriğini sürmek

Posted by Unknown On 00:22 No comments

Private Sub Command1_Click()
Dim BulunanKelimeler As String
Open "C:\test.txt" For Input As #1
List1.Clear
While Not EOF(1)
Input #1, StringHold
List1.AddItem BulunanKelimeler
Wend
Close #1
End Sub

Categories:

0 yorum:

Yorum Gönder