آموزش اتصال 2 دستگاه پرینتر به یک شبکه LAN (از روی نقشه)

در این ویدئوی آموزشی نحوه اتصال 2 دستگاه پرینتر با کابل های اتصال متفاوت LAN و USB از روی نقشه توضیح داده شده ....

https://aparat.com/v/UgM1s

آموزش اضافه کردن آیتم های DropDown برای ToolStripMenuItem در حالت اجرا (RunTime)

در این ویدئوی آموزشی کار با MenuStrip و اضافه کردن ToolStripMenuItem به اون و همچنین اضافه کردن آیتم های DropDown به یک ContextMenuStrip و اختصاص به ToolStripMenuItem خاص در حالت اجرا (RunTime) توضیح داده شده...

https://aparat.com/v/wP1Fv

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = False Then Exit Sub

        Me.DropDownMenuItem.DropDown = Me.DropDown1MenuStrip

        Me.CustomizeToolStripMenuItem.DropDown = Me.DropDown1MenuStrip

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = False Then Exit Sub

        Me.DropDownMenuItem.DropDown = Me.DropDown2MenuStrip

        Me.CustomizeToolStripMenuItem.DropDown = Nothing

    End Sub

End Class

بخش بندی یک Form یا کلاس به چندین فایل

بخش بندی Form یا کلاس توسط کلمه کلیدی Partial به چندین فایل در پروژه و استفاده از اجزا، اشیاء و رویدادهای فایل اصلی در فایل های بخش بندی شده....

https://aparat.com/v/Py5Ep

اضافه کردن مقادیر چندین TextBox در یک لیست و ذخیره سازی در فایل متنی

در این ویدئوی آموزشی ابتدا مقادیر TextBox ها به آیتم های یک لیست اختصاص داده شده و سپس مقادیر بصورت متنی (رشته) در فایل متنی ذخیره سازی و با کلید فراخوانی، مقادیر از فایل متنی خوانده شده و به لیست برمی گردند و سپس در جعبه متنها نمایش داده می شوند....

https://aparat.com/v/odBz9

تعریف:

[VB]

Dim Values As New List(Of String)

[/VB]

ذخیره سازی

[VB]

        Values.Clear()

        For Each TextBox As TextBox In Me.Panel1.Controls

            Values.Add(TextBox.Text)

        Next

        Dim Expr As String = Join(Values.ToArray, ";")

        IO.File.WriteAllText(".\Values.txt", Expr)

[/VB]

فراخوانی:

[VB]

  Values.Clear()

        Dim Expr As String = IO.File.ReadAllText(".\Values.txt")

        Values.AddRange(Expr.Split(";"))

        For i = 0 To Values.Count - 1

            Me.Panel1.Controls(i).Text = Values(i)

        Next

[/VB]

اضافه کردن مقادیر چندین TextBox در یک آرایه و ذخیره سازی در فایل متنی

در این ویدئوی آموزشی ابتدا مقادیر TextBox ها به عناصر آرایه اختصاص داده شده و سپس مقادیر بصورت متنی (رشته) در فایل متنی ذخیره سازی و با کلید فراخوانی، مقادیر از فایل متنی خوانده شده و به آرایه برمی گردند و سپس در جعبه متنها نمایش داده می شوند....

https://aparat.com/v/9VZNs

ذخیره سازی

 Dim i As Integer = 0

        ReDim Values(Me.Panel1.Controls.Count - 1)

        For Each TextBox As TextBox In Me.Panel1.Controls

            Values(i) = TextBox.Text

            i += 1

        Next

        Dim Expr As String = Join(Values, ";")

        IO.File.WriteAllText(".\Values.txt", Expr)

    Debug.Print(Expr)

فراخوانی

 Dim Expr As String = IO.File.ReadAllText(".\Values.txt")

        Values = Split(Expr, ";")

        For i = 0 To Values.Length - 1

            DirectCast(Me.Panel1.Controls(i), TextBox).Text = Values(i)

        Next

  Debug.Print(Expr)