نوشته شده توسط
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
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول