در این آموزش می خوایم برای ساخت یک فرهنگ لغت، کلمات فارسی رو هم در آیتم های یک ToolStripMenuItem داشته باشیم که در این ویدئو نحوه ایجادش توضیح داده شده....
Dim PersianCharacters As String() = {"الف", "آ", "ب", "پ", "ت", "ث", "ج", "چ", "ح", "خ", "د", "ذ", "ر", "ز", "ژ", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ک", "گ", "ل", "م", "ن", "و", "ه", "ی"}Dim Item As ToolStripMenuItemWith 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 NextEnd Withدر این آموزش در بین آیتم های ToolStripMenuItems با تغییر آیتم کلیک شده آیتم بصورت انتخاب شده در می آید....
در این آموزش حروف الفبای انگلیسی به آیتم های یک ToolStripMenuItem اضافه می شه و بکارگیری آیتم ها توضیح داده می شه ....
در این آموزش رنگ ها از کلاس Brush به آیتم های DropDown از یک ToolStripMenuItem اضافه می شه و رنگ هر Brush بصورت دایره ای برای هر آیتم ترسیم می شه و با انتخاب آیتم رمگ زمینه Form تغییر می کنه ....
Dim Img As Image
Dim B As Brush
With Me.ChooseColorToolStripMenuItem
For Each P As PropertyInfo In GetType(Brushes).GetProperties
Img = New Bitmap(16, 16)
Dim g As Graphics = Graphics.FromImage(Img)
B = P.GetValue(P, New Object() {})
g.FillEllipse(B, 0, 0, 16, 16)
With .DropDownItems.Add(P.Name, Img)
.Tag = B
End With
Next
End With
در این ویدئو نجوه انتقال کدهای یک سطر به دستورات یک سطر دیگر توضیح داده شده است....