دستوری برای اینکه یه حرف الفبا رو به حرف بعدیش در الفبا تبدیل کنه!

دستوری وجو داره که حروف الفا رو یکی به جلو ببره؟؟ مثلا A رو بکنه B یا B رو بکنه C، یا C رو بکنه D ...

نقل قول:

---

نوشته شده توسط A_1397

دستوری وجو داره که حروف الفا رو یکی به جلو ببره؟؟ مثلا A رو بکنه B یا B رو بکنه C، یا C رو بکنه D ...

---

دو تا تکست باکس و یک دکمه روی فرم قرار بده و این کدها رو اضافه کن
هرچی وارد کنی ، بعدیش رو نشون میده

Private Function NextChr(txt As String) As String

        If txt.Length = 1 Then

            Dim n As Integer = AscW(txt)

            Return ChrW(n + 1)

        Else

            Return txt

        End If

    End Function



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox2.Text = NextChr(TextBox1.Text)

    End Sub