(04/02/2021, 19:09)ikayserili yazdı: Function verisayisi()
Dim vsayi As Integer
Open "c:\veri.txt" For Input As 1
Do While True
If Not EOF(1) Then
Input #1, a, b, c
List1.AddItem a
vsayi = List1.ListCount
Else
Close #1
MSFlexGrid1.Rows = vsayi + 1
Exit Function
End If
Loop
End Function

Private Sub Command1_Click()
Dim v1, v2, v3 As Double
Dim satir, sutun As Integer
verisayisi
Open "c:\veri.txt" For Input As 1
satir = 1
sutun = 0
Do While True
If Not EOF(1) Then
Input #1, v1
Input #1, v2
Input #1, v3
MSFlexGrid1.Row = satir
MSFlexGrid1.Col = sutun
MSFlexGrid1.Text = v1
MSFlexGrid1.Col = sutun + 1
MSFlexGrid1.Text = v2
MSFlexGrid1.Col = sutun + 2
MSFlexGrid1.Text = v3
satir = satir + 1
sutun = 0
Else
Close #1
Exit Sub
End If
Loop
End Sub
'--------------
Merhaba
ihtiyaçtan dolayı yukarıdaki kodlarla alakalı olarak, sütün sayısını 4'e çıkarmam gerekti.
malum kodlara c'nin yanına d ve v3'ün yanına v4'ü ve ayrıca
MSFlexGrid1.Col = sutun + 3

MSFlexGrid1.Text = v4

gibi eklemeleri yaptım. programı çalıştırdığımda,