Visual Basic FAQ

Как перевести текст в разные раскладки?

Option Explicit

Dim Selection As String
Dim aText As String
Dim i As Long

Private Sub RusLat()
Selection = Text1.Text
aText = Selection
Dim KeyS As String
Dim Pos As Long
KeyS = 0
Dim s(1) As String, n As String
s(0) = "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:" + Chr(34) + "ZXCVBNM<>~"
s(1) = "йцукенгшщзхъфывапролджэячсмитьбюёЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ"
If Asc(Left(aText, 1)) > 127 Then KeyS = 1
For i = 1 To Len(aText)
    Pos = InStr(s(KeyS), Mid(aText, i, 1))
    If Pos = 0 Then n = n + Mid(aText, i, 1) Else n = n + Mid(s(1 - KeyS), Pos, 1)
Next i
aText = n
Text1.Text = aText
End Sub

Private Sub Command1_Click()
Call RusLat
End Sub

Private Sub Form_Load()
Text1.Text = "qwerty"
End Sub

Запись опубликована on 24.10.2008 at 10:00 и размещена в рубрике: Строки. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.