Listbox'a bir text dosyasi içerigi nasıl yüklenir 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
0 yorum :
Yorum Gönder