السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
الدرس الاول في الاداة الكومبو بوكس ComboBox
هذا الموضوع خاص بالادوات : اداة ComboBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
'1-تحميل عناصر الكومبو عن طريق ملف نصي
كود PHP:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each L As String In IO.File.ReadAllLines _
(Application.StartupPath & "\FileName.txt")
ComboBox1.Items.Add(L)
Next L
End Sub
End Class
'1-تحميل عناصر الكومبو عن طريق ملف نصي
'2- فتح قائمة الكومبو تلقائيا عند ضغط انتر
كود PHP:
Public Class Form1
Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
If e.KeyCode = Keys.Enter Then
If ComboBox1.Text = Trim("") Then
My.Computer.Keyboard.SendKeys("{F4}")
Else
ComboBox1.Text = ComboBox1.SelectedText
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("item 1")
ComboBox1.Items.Add("item 2")
ComboBox1.Items.Add("item 3")
ComboBox1.Items.Add("item 4")
ComboBox1.Items.Add("item 5")
End Sub
End Class
'2- فتح قائمة الكومبو تلقائيا عند ضغط انتر
رد مع اقتباس
