نرم افزار و برنامه نویسی ویندوز

نرم افزار و برنامه نویسی ویندوز

آموزش برنامه نویسی Visual Basic 2010-2019
نرم افزار و برنامه نویسی ویندوز

نرم افزار و برنامه نویسی ویندوز

آموزش برنامه نویسی Visual Basic 2010-2019

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

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

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

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

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


https://aparat.com/v/FgfVt

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

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


https://aparat.com/v/MIcaz

انتخاب رنگ از بین آیتم های یک ToolStripMenuItem

در این آموزش رنگ ها از کلاس Brush به آیتم های DropDown از یک ToolStripMenuItem اضافه می شه و رنگ هر Brush بصورت دایره ای برای هر آیتم ترسیم می شه و با انتخاب آیتم رمگ زمینه Form تغییر می کنه ....


https://aparat.com/v/U9j6V


        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

جایگزین کردن یک سطر کد بعد از یک سطر از دستورات در یک سطر و خط

در این ویدئو نجوه انتقال کدهای یک سطر به دستورات یک سطر دیگر توضیح داده شده است....

https://aparat.com/v/nmcoW