در این آموزش می خوایم برای ساخت یک فرهنگ لغت، کلمات فارسی رو هم در آیتم های یک ToolStripMenuItem داشته باشیم که در این ویدئو نحوه ایجادش توضیح داده شده....
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