Поточная замена в textbox - VB
Формулировка задачи:
Ребята, подскажите как реализовать такое:
чтобы при наборе текста в textbox, программа присваивала нажатым клавишам соответствующим значения и массива данных. При этом есть три массива данных: для русской раскладки, для английской, знаки препинания (и пробел).
Решение задачи: «Поточная замена в textbox»
textual
Листинг программы
Private Sc1 As String Private Sc2 As String Private Sub Form_Load() Sc1 = "ФБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" Sc2 = "ZXCVBNM<>?ASDFGHJKL:QWERTYUIOP{}~" Sc1 = Sc1 + LCase$(Sc1) Sc2 = Sc2 + LCase$(Sc2) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) c$ = Chr$(KeyAscii) k% = InStr(Sc1, c$) If k% > 0 Then KeyAscii = Asc(Mid$(Sc2, k%, 1)) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д