Arkadaşlar visual basic 6.0' da bir program hazırlıyorum. Programada bir listbox ve bir de textbox mevcut. Listbox'a ünlü kişilerin isimlerini ekledim ve buna göre herhangi bir ünlünün ismine tıkladıgım zaman TextBox'ta o ünlünün kısa hayat hikayesini gösteren bir program hazırlamak istiyorum. Lütfen bu konu hakkında yardımlarınızı bekliyorum. Vakit ayırıp yardımlarını esirgemeyen herkese de şimdiden teşekkürler...
VB 6.0 hakkında bir soru...
Cevaplar
Buna benzer birşeyler hazırlayabilirsin. Hikayeleri bir dosya içersine yada array içersine koyup listbox click olayında indexli kişinin bilgilerine kolay yoldan ulaşabilirsin
Dim gIndex() As String
Private Sub Form_Load()
gIndex = GetList
lstIndex.AddItem "Person 1"
lstIndex.AddItem "Person 2"
lstIndex.AddItem "Person 3"
End Sub
Public Function GetList() As String()
Dim List(2) As String
List(0) = "C:\Temp\People\Person 1.txt"
List(1) = "C:\Temp\People\Person 2.txt"
List(2) = "C:\Temp\People\Person 3.txt"
GetList = List
End Function
Private Sub lstIndex_Click()
txtBiography = TakeBytesFromFile(gIndex(lstIndex.ListIndex))
End Sub
Public Function TakeBytesFromFile(pFileName As String) As String
Dim ff As Integer
ff = FreeFile
Dim Buffer As String
Open pFileName For Binary As #ff
Buffer = Space(LOF(ff))
Get #ff, 1, Buffer
Close #ff
TakeBytesFromFile = Buffer
End Function