Printable View
در این آموزش حروف الفبای انگلیسی به آیتم های یک ToolStripMenuItem اضافه می شه و بکارگیری آیتم ها توضیح داده می شه ....
ضمیمه 155010
Dim Characters As Char() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
With Me.AlphabeticToolStripMenuItem
For Each C As Char In Characters
With .DropDownItems.Add(String.Format("{0} Words", C))
.Tag = C
End With
Next
End With
تغییر Checked از آیتم های ToolStripMenuItems بعنوان آیتم انتخاب شده....
در این آموزش در بین آیتم های ToolStripMenuItems با تغییر آیتم کلیک شده آیتم بصورت انتخاب شده در می آید....
ضمیمه 155012Private Sub CheckedChanged(sender As System.Object, e As System.EventArgs)
If CheckedItem IsNot Nothing Then
CheckedItem.Checked = False
End If
If DirectCast(sender, ToolStripMenuItem).Checked = True Then
CheckedItem = sender
End If
End Sub
اضافه کردن حروف فارسی به آیتم های ToolStripMenuItem
در این آموزش می خوایم برای ساخت یک فرهنگ لغت، کلمات فارسی رو هم در آیتم های یک ToolStripMenuItem داشته باشیم که در این ویدئو نحوه ایجادش توضیح داده شده....
ضمیمه 155013
Dim PersianCharacters As String() = {"الف", "آ", "ب", "پ", "ت", "ث", "ج", "چ", "ح", "خ", "د", "ذ", "ر", "ز", "ژ", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ک", "گ", "ل", "م", "ن", "و", "ه", "ی"}
Dim Item As ToolStripMenuItem
With Me.ChoosePersionCharacterToolStripMenuItem
For Each C As String In PersianCharacters
Item = .DropDownItems.Add(String.Format("کلمات " + "'{0}'", C))
With Item
.Tag = C
.CheckOnClick = True
AddHandler .CheckedChanged, AddressOf CheckedChanged
End With
Next
End With