السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة ListBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
هذا اول موضوع يخص الاداة ListBox
'1- اضافة عناصر داخل اللست من ملف نصي
كود PHP:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Sr As IO.StreamReader
Sr = IO.File.OpenText _
(Application.StartupPath & "\FileName.txt")
Do While Sr.Peek <> -1
ListBox1.Items.Add(Sr.ReadLine)
Loop
Sr.Close()
End Sub
End Class
'1- اضافة عناصر داخل اللست من ملف نصي
'2- ترتيب العناصر حسب التسلسل
كود PHP:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("9")
ListBox1.Items.Add("3")
ListBox1.Items.Add("7")
ListBox1.Items.Add("1")
ListBox1.Items.Add("4")
ListBox1.Items.Add("2")
ListBox1.Items.Add("6")
ListBox1.Items.Add("8")
ListBox1.Items.Add("5")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ArrayList.Adapter(ListBox1.Items).Sort()
End Sub
End Class
'2- ترتيب العناصر حسب التسلسل
رد مع اقتباس
