آموزش ساخت کلیدهای میانبر با 2 کاراکتر معمولی کیبورد

سلام به همه

در این آموزش با استفاده از یک آرایه که 2 عنصر داره کلیدها گرفته می شه و رویداد مورد نظر بعد از گرفتن 2 کاراکتر از کلیدهای کیبورد اجرا می شه ... 

ایده جالبی بود که من دستورش رو نوشتم:

برای تماشای ویدئو آموزشی لینک رو کلیک کنید .... 

https://aparat.com/v/PIQYt

    Dim ShortcutKey(1) As Windows.Forms.Keys
    Event CustomShortcutKeyPressed(firstKey As Keys, secondKey As Keys)
    
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If (Not ShortcutKey(0) = Nothing) Then
            If ShortcutKey(1) = Nothing Then
                ShortcutKey(1) = e.KeyCode
            End If
        End If
        If ShortcutKey(0) = Nothing Then
            ShortcutKey(0) = e.KeyCode
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        ShortcutKey(0) = Nothing
        ShortcutKey(1) = Nothing
    End Sub

    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If (Not ShortcutKey(0) = Nothing) AndAlso (Not ShortcutKey(1) = Nothing) Then
            RaiseEvent CustomShortcutKeyPressed(ShortcutKey(0), ShortcutKey(1))
            ShortcutKey(0) = Nothing
            ShortcutKey(1) = Nothing
        End If
    End Sub

    Private Sub Form1_CustomShortcutKeyPressed(firstKey As Keys, secondKey As Keys) Handles Me.CustomShortcutKeyPressed
        Debug.Print(" >> {0}{1}", Chr(firstKey), Chr(secondKey))
        Select Case (Chr(firstKey) + Chr(secondKey)).ToUpper
            Case "9M"
                Dim FRM As New Form
                FRM.ShowDialog(Me)
        End Select
    End Sub

نحوه ذخیره سازی ریسورس ها در Resources File بصورت برنامه نویسی

در این آموزش نجوه ذخیره سازی ریسورس های فایل Resources File توضیح داده می شه ....

https://aparat.com/v/Ja6LN

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim ResName, Value As String    With MultiLanguageDataTable        For Each Resource As KeyValuePair(Of String, String) In Resources            ResWriter = New Resources.ResXResourceWriter(Resource.Value)            For Each row As DataRow In .Rows                ResName = row.Item(0).ToString                Value = row.Item(Resource.Key).ToString                ResWriter.AddResource(ResName, Value)            Next            ResWriter.Generate()            ResWriter.Close()        Next    End With MsgBox("Update Completed Successfuly.", MsgBoxStyle.Information)

اضافه کردن رنگ ها در آیتم های سفارشی به FlowLayoutPanel

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

https://aparat.com/v/U3gxo

Dim Box As ColorBox

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

 

 

    For Each Prop As PropertyInfo In GetType(Brushes).GetProperties()

        If Prop.GetValue(Prop, New Object() {}) Is Brushes.Transparent Then Continue For

        Box = New ColorBox

        Box.Color = Color.FromName(Prop.Name)

        AddHandler Box.ButtonClicked, AddressOf ButtonClicked

        Me.FlowLayoutPanel1.Controls.Add(Box)

    Next

 

 

End Sub

آموزش اضافه کردن رشته های فایل Resx . به DataTable و نمایش در DtataDrid

در این ویدئو ریسورس های رشته ای از یک فایل ریسورس (Resources File) .ResX به DataTable اضافه می شه که در DataGrid نمایش داده بشن....

https://aparat.com/v/QLX9s

   Dim OFD As New OpenFileDialog With {.Filter = "Resources File|*.resx"}

        Dim FileName As String = ""

        With OFD

            .SupportMultiDottedExtensions = False

            .Multiselect = False

ReBrowse:

            If .ShowDialog(Me) = DialogResult.Cancel Then Exit Sub

            FileName = .FileName

            If IO.Path.GetFileNameWithoutExtension(FileName).Contains(".") = True Then

                FileName = IO.Path.GetFileNameWithoutExtension(FileName)

                FileName = IO.Path.GetFileNameWithoutExtension(FileName)

                FileName = String.Format("{0}\{1}.resx", FileIO.FileSystem.GetParentPath(.FileName), FileName)

            End If

            Me.ToolStripTextBox1.Text = FileName

            resReader = New Resources.ResXResourceReader(FileName)

            Resources.Clear()

            Resources.Add("(Default)", resReader)

            Dim Name, Value As Object

            resReader.GetEnumerator.Reset()

            Dim dict As IDictionaryEnumerator = resReader.GetEnumerator

            Do While dict.MoveNext = True

                ' resSet.GetEnumerator.MoveNext()

                Name = dict.Key

                Value = dict.Value

                If TypeOf (Value) Is String Then

                    With MultiLanguageDataTable

                        .Rows.Add(Name, Value)

                    End With

                End If

            Loop

               End With

نحوه اضافه کردن ستون های DataGrid در زمان اجرا (RunTime)

در این ویدئوی آموزشی یک DataGrid داریم که قبل از هر چیز باید یک DataTable برای DataSource اون تعیین بشه و همزمان با اضافه کردن ستون های DataTable به ستونهای DataGridTableStyle هم اضافه می شه....

https://aparat.com/v/xCyag

 Dim MultiLanguageDataTable As New DataTable("MultiLanguageDataTable")

With MultiLanguageDataTable

                    MultiLanguageTableStyle.MappingName = .TableName

                    MultiLanguageTableStyle.PreferredColumnWidth = 250

                    .Columns.Clear()

                    With .Columns.Add("ResName")

                        .Caption = "Resource Name"

                    End With

                    DataColumn = New DataGridTextBoxColumn

                    With DataColumn

                        .HeaderText = "Resource Name"

                        .MappingName = "ResName"

                        Width_ = g.MeasureString(.HeaderText, Me.DataGrid1.HeaderFont).Width

                        .Width = If(Width_ < MultiLanguageTableStyle.PreferredColumnWidth, MultiLanguageTableStyle.PreferredColumnWidth, Width_)

                    End With

                    MultiLanguageTableStyle.GridColumnStyles.Clear()

                    Index = MultiLanguageTableStyle.GridColumnStyles.Add(DataColumn)

                    For Each Item As ListViewItem In Me.ListView1.Items

                        With .Columns.Add(Item.SubItems(3).Text)

                            .Caption = Item.SubItems(2).Text

                        End With

                        DataColumn = New DataGridTextBoxColumn

                        With DataColumn

                            .HeaderText = Item.SubItems(1).Text

                            .MappingName = Item.SubItems(3).Text

                            Width_ = g.MeasureString(.HeaderText, Me.DataGrid1.HeaderFont).Width

                            .Width = If(Width_ < MultiLanguageTableStyle.PreferredColumnWidth, MultiLanguageTableStyle.PreferredColumnWidth, Width_)

                        End With

                        Index = MultiLanguageTableStyle.GridColumnStyles.Add(DataColumn)

                    Next

                End With