Перевернуть раскладку

[petroff]

Ув.гуру подскажите как проше сделать . Набирается текст в текстовой блок , при нажати кнопки он должен менятся на другой , по типу как на клавишах f на а . d на в, h на р и т.д .
У меня мысли сделать по типу

Select Case символ
Case 'a'
text='ф'
Сase 's'
text='ы'
Case.....

Это единственый вариант ?

[Lumen]

Проще именно так как ты хочешь. Я так тоже когда-то делал, вроде нормально работало.

[Viper]

проще при помощи двух строк сделать

З.Ы. поправил

[kibernetics]

petroff, ты просто раскладку хочешь поменять автоматически?
юзер вводит на английском, а нужно чтобы автоматом русскими писало?

[Viper]

kibernetics, похоже именно это, судя по заголовку.

З.Ы. Выше написал при помощи двух массивов, сие непрально, при помощи двух строк надо, типа:

Код: Выделить всё

Const sLat As String = "qwertyuiop[]asdfghjkl;'zxcvbnm,.`"
Const sKir As String = "йцукенгшщзхъфывапролджэячсмитьбюё"

Далее искать позицию вводимого символа в первой строке и заменять на символ с соответствующей позиции из второй строки.

[kibernetics]

перевернуть раскладку без смены клавиатуры? если со сменой, то делается элементарно через АПИ:
объявляешь:

Код: Выделить всё

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

ну и используешь, например,

Код: Выделить всё

Private Sub txtFind_GotFocus()
     ActivateKeyboardLayout 68748313, 0
End Sub

[petroff]

З.Ы. Выше написал при помощи двух массивов, сие непрально, при помощи двух строк надо, типа:


Код:
Const sLat As String = "qwertyuiop[]asdfghjkl;'zxcvbnm,.`"
Const sKir As String = "йцукенгшщзхъфывапролджэячсмитьбюё"

Спасибо , то-что надо !!!!