بخش بندی یک 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)

آموزش ساخت جعبه متن (TextBox) سفارشی محدود به عدد

Public Class NumericTextBox

    Protected Overrides Sub OnKeyPress(e As System.Windows.Forms.KeyPressEventArgs)

        Select Case e.KeyChar

            Case "0" To "9"

            Case Else

                e.Handled = True

        End Select

        MyBase.OnKeyPress(e)

    End Sub

End Class

در این ویدئو ساخت یک جعبه متن یا TextBox سفارشی که فقط عدد قبول می کنه و می شه توی پروژه های دیگه ازش استفاده کرد آموزش داده می شه....

https://aparat.com/v/uBGCr

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

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

Select Case UCase(e.KeyChar)

Case "ا" To "ی", Chr(Keys.Back), "A" To "Z", Space(1)

Case Else

e.Handled = True

End Select

محدود کردن به اعداد

Select Case e.KeyChar

Case Chr(Keys.Back), "0" To "9"

Case Else

e.Handled = True

End Select

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

https://aparat.com/v/CHSGg