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

[ROSTAM2]

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

https://aparat.com/v/MIcaz

Alphabetic.jpg

     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

Checked.jpg

    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

PersianCharacters.jpg

        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