اضافه کردن مقادیر چندین 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

آموزش تشخیص اجرای نرم افزار در حالت مدیریتی کاربری ویندوز

در این ویدئو نحوه تشخیص اجرای نرم افزار توسط کاربر در حالت Administrator در کدنویسی توضیح داده شده است.

Dim Role As ApplicationServices.BuiltInRole

        Role = ApplicationServices.BuiltInRole.Administrator

        Dim Expr As Boolean = My.User.IsInRole(Role)

        MsgBox(If(Expr, "برنامه در حالت Administrator اجرا شده است", "برنامه بصورت عادی اجرا شده است"))
https://aparat.com/v/AcjHo

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

در این ویدئوی آموزشی همونی که توی عنوان ویدو نوشتم انجام می شه....

https://aparat.com/v/arj51