Замена кириллицы на транслит - VB
Формулировка задачи:
Задача такая:
В текстовое окно вводиться кириллица и автоматически переводит в транслит.
Если была введена допустим ш то в транслите sh и если нажать BackSpace то она должна удалить две буквы sh.
Решение задачи: «Замена кириллицы на транслит»
textual
Листинг программы
- Private Sub Text1_KeyPress(KeyAscii As Integer)
- Static b As Boolean
- On Error Resume Next
- Select Case KeyAscii
- Case 8
- Select Case Mid$(Text1, Text1.SelStart - 1, 2)
- Case "sh", "SH", "th", "ya" '......
- If Not b Then b = True: SendKeys "{BS}", True
- End Select
- End Select
- b = False
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
