السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة ComboBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
هذا اخر موضوع في الـ ComboBox
'7-محاذاة العناصر بداخل الكومبو
كود PHP:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To 7
ComboBox1.Items.Add(i.ToString.PadLeft _
(((ComboBox1.DropDownWidth / 3) - Len(i)) / 2))
Next
ComboBox1.SelectedIndex = -1
End Sub
End Class
'7-محاذاة العناصر بداخل الكومبو
'8-حفظ عناصر الكومبو واستعادتها عن التشغيل
كود PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim save As New SaveFileDialog
save.Filter = "Text File|*.txt"
If save.ShowDialog = Windows.Forms.DialogResult.OK Then
End If
FileOpen(1, save.FileName, OpenMode.Append)
For Each x In ComboBox1.Items
PrintLine(1, x)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim openFile As New OpenFileDialog
openFile.Filter = "Text File|*.txt"
If openFile.ShowDialog = Windows.Forms. _
DialogResult.OK Then
Dim StreamR As New IO.StreamReader _
(openFile.FileName)
Dim x As String = "Tarek Aldwire"
ComboBox1.Items.Clear()
Do
x = StreamR.ReadLine
If x <> "" Then
ComboBox1.Items.Add(x)
Else
Exit Do
End If
Loop
End If
End Sub
End Class
'8-حفظ عناصر الكومبو واستعادتها عن التشغيل
'9- استخدام الكومبو في تنسيق النصوص
كود PHP:
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
RichTextBox1.Focus()
Select Case ComboBox1.SelectedItem
Case "Bold"
RichTextBox1.SelectionFont = New _
Font(RichTextBox1.Font, FontStyle.Bold)
Case "italic"
RichTextBox1.SelectionFont = New _
Font(RichTextBox1.Font, FontStyle.Italic)
Case "Regular"
RichTextBox1.SelectionFont = New _
Font(RichTextBox1.Font, FontStyle.Regular)
Case "underline"
RichTextBox1.SelectionFont = New _
Font(RichTextBox1.Font, FontStyle.Underline)
Case "Strikeout"
RichTextBox1.SelectionFont = New _
Font(RichTextBox1.Font, FontStyle.Strikeout)
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Bold")
ComboBox1.Items.Add("italic")
ComboBox1.Items.Add("Regular")
ComboBox1.Items.Add("underline")
ComboBox1.Items.Add("Strikeout")
End Sub
End Class
'9- استخدام الكومبو في تنسيق النصوص