اضافه کردن حروف الفبای انگلیسی به ToolStripMenuItem

[ROSTAM2]

در این آموزش حروف الفبای انگلیسی به آیتم های یک ToolStripMenuItem اضافه می شه و بکارگیری آیتم ها توضیح داده می شه ....

https://aparat.com/v/MIcaz (https://aparat.com/v/MIcaz)

155010 (https://aparat.com/v/MIcaz)


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

[ROSTAM2]

تغییر Checked از آیتم های ToolStripMenuItems بعنوان آیتم انتخاب شده....

در این آموزش در بین آیتم های ToolStripMenuItems با تغییر آیتم کلیک شده آیتم بصورت انتخاب شده در می آید....

https://aparat.com/v/FgfVt

155012 (https://aparat.com/v/FgfVt) Private 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

[ROSTAM2]

اضافه کردن حروف فارسی به آیتم های ToolStripMenuItem

در این آموزش می خوایم برای ساخت یک فرهنگ لغت، کلمات فارسی رو هم در آیتم های یک ToolStripMenuItem داشته باشیم که در این ویدئو نحوه ایجادش توضیح داده شده....

https://aparat.com/v/lsv6C

155013 (https://aparat.com/v/lsv6C)
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