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

[A_1397]

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

[336699]

دستوری وجو داره که حروف الفا رو یکی به جلو ببره؟؟ مثلا 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