07-06-18, 05:57 AM
السلام عليكم
رمضانكم كريم
لديا هذا الكود تعبئة ليست بوكس
كود :
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim lines As String() = File.ReadAllLines("C:\GHOST.txt")
Dim array As String() = lines
For net As Integer = 0 To array.Length - 1
Dim x As String = array(net)
Dim data As String() = x.Split(",")
If data.Length = 2 Then
Me.ListBox1.Items.Add(data(0))
Me.vbnet.Add(data(1))
End If
Next
End Subاتمنى السؤال واضح