www.pudn.com > 维文输入法源代码.rar > Form1.frm
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00008000&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 2175
ClientLeft = 3465
ClientTop = 1605
ClientWidth = 4905
FillColor = &H00004080&
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2175
ScaleWidth = 4905
ShowInTaskbar = 0 'False
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
BackColor = &H0000FF00&
BorderStyle = 0 'None
BeginProperty Font
Name = "Wingdings"
Size = 15
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Left = 0
TabIndex = 3
Top = 120
Width = 3255
End
Begin VB.ComboBox Combo1
Enabled = 0 'False
Height = 300
Left = 1920
TabIndex = 2
TabStop = 0 'False
Top = 1560
Width = 1215
End
Begin VB.TextBox Text3
Height = 375
Left = 0
Locked = -1 'True
TabIndex = 1
TabStop = 0 'False
Top = 720
Width = 4095
End
Begin VB.TextBox Text1
Height = 270
Left = 0
TabIndex = 0
Top = 1200
Width = 4095
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim uzun, muzun As Integer
Dim olqam As Boolean
Dim bash As Integer
Dim str1 As String
Dim lenght As String
Dim Tasm As String
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long '获得窗口在屏幕坐标中的位置
'判断指定的点是否在指定的巨型内部
Private Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type
Private Declare Function QueryPerformanceCounter Lib _
"kernel32" (lpPerformanceCount As LARGE_INTEGER) _
As Long
Private Declare Function QueryPerformanceFrequency _
Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private MyRect As RECT
Private MyPoint As POINTAPI
Private Movex As Long, Movey As Long '记录窗体移动前，窗体左上角与鼠标指针位置间的纵横距离
Private max As Long '窗口变长以后的尺寸(用户可随意改动)
Dim CurHwnd As Long
Dim a, t, p As Integer
Private Sub Form_DblClick()
Unload Me
End Sub
Sub Get_Windows_Rect()
Dim dl&
max = 490
Form1.Height = max
End Sub
Private Sub Form_GotFocus()
'Text1.SetFocus
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Form1.MousePointer = 5
ReleaseCapture
SendMessage Form1.hWnd, WM_SYSCOMMAND, SC_MOVE, 0
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.MousePointer = 0
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.MousePointer = 0
End Sub
Private Sub Form_Load()
Text2.FontName = "jsw"
Form1.Top = 1
Form1.Left = Screen.Width - Form1.Width
'/****************************************/
Get_Windows_Rect
' Is_Movestar_B = True
SetWindowPos Form1.hWnd, -1, 0, 0, 182 + 35, 133, SWP_NOMOVE Or conSwpNoActivate Or conSwpShowWindow
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Const optStartsWith = 0
Const optContains = 1
Dim ll As Integer
Dim kk As Integer
Text2.SelStart = bash
muzun = Len(Text2.Text)
uzun = Len(Right(Text2.Text, muzun - bash))
If uzun <> 0 Then
If KeyAscii = 8 Then
Text2.Text = Left(Text2.Text, bash) + Right(Text2.Text, uzun - 1)
Text3.Text = Left(Text3.Text, bash) + Right(Text3.Text, uzun - 1)
End If
End If
If KeyAscii = 13 Then
If Text2.Text = "" Then
On Error GoTo err
Text1.SetFocus
End If
Clipboard.Clear
Clipboard.SetText Text2.Text
Text2.Text = ""
Text3.Text = ""
Text1.Text = ""
On Error GoTo err
Form1.Visible = False
For ll = 0 To 1000
For kk = 0 To 1000
Next kk
Next ll
SendKeys "^v" + "{HOME}", True
' Text2.Text = ""
' Text3.Text = ""
' Text1.Text = ""
' Clipboard.Clear
'Text1.SetFocus
GoTo air_wolf
err:
Clipboard.SetText Text3.Text
MsgBox ("发送失败！请先运行要发送的目标程序")
' Text1.SetFocus
air_wolf:
End If
If Text2.Text = "" Then '第一次录入数据时
Select Case KeyAscii
Case 47
Text2.Text = Chr(121)
Text3.Text = Chr(-368)
Case 97
Text2.Text = Chr(106)
Text3.Text = Chr(-273)
Case 98
Text2.Text = Chr(72)
Text3.Text = Chr(-355)
Case 99
Text2.Text = Chr(102)
Text3.Text = Chr(-301)
Case 100
Text2.Text = Chr(80)
Text3.Text = Chr(-334)
Case 101
Text2.Text = Chr(38)
Text3.Text = Chr(-264)
Case 102
Text2.Text = Chr(35)
Text3.Text = Chr(-377)
Case 103
Text2.Text = Chr(37)
Text3.Text = Chr(-268)
Case 104
Text2.Text = Chr(42)
Text3.Text = Chr(-308)
Case 105
Text2.Text = Chr(99)
Text3.Text = Chr(-347)
Case 106
Text2.Text = Chr(89)
Text3.Text = Chr(-293)
Case 107
Text2.Text = Chr(92)
Text3.Text = Chr(-289)
Case 108
Text2.Text = Chr(69)
Text3.Text = Chr(-285)
Case 109
Text2.Text = Chr(65)
Text3.Text = Chr(-281)
Case 110
Text2.Text = Chr(51)
Text3.Text = Chr(-280)
Case 111
Text2.Text = Chr(46)
Text3.Text = Chr(-310)
Case 112
Text2.Text = Chr(75)
Text3.Text = Chr(-315)
Case 113
Text2.Text = Chr(116)
Text3.Text = Chr(-339)
Case 114
Text2.Text = Chr(78)
Text3.Text = Chr(-330)
Case 115
Text2.Text = Chr(57)
Text3.Text = Chr(-325)
Case 116
Text2.Text = Chr(54)
Text3.Text = Chr(-351)
Case 117
Text2.Text = Chr(47)
Text3.Text = Chr(-332)
Case 118
Text2.Text = Chr(49)
Text3.Text = Chr(-266)
Case 119
Text2.Text = Chr(50)
Text3.Text = Chr(-364)
Case 120
Text2.Text = Chr(61)
Text3.Text = Chr(-319)
Case 121
Text2.Text = Chr(82)
Text3.Text = Chr(-269)
Case 122
Text2.Text = Chr(79)
Text3.Text = Chr(-328)
Case 68
Text2.Text = Chr(120)
Text3.Text = Chr(-360)
Case 70
Text2.Text = Chr(86)
Text3.Text = Chr(-297)
Case 71
Text2.Text = Chr(95)
Text3.Text = Chr(-311)
Case 72
Text2.Text = Chr(108)
Text3.Text = Chr(-335)
Case 74
Text2.Text = Chr(112)
Text3.Text = Chr(-343)
Case 75
Text2.Text = Chr(48)
Text3.Text = Chr(-362)
Case 76
Text2.Text = Chr(125)
Text3.Text = Chr(-372)
Case 32
Text2.Text = Chr(32)
Text3.Text = Chr(32)
End Select
Else
Select Case Asc(Right(Left(Text2.Text, bash + 1), 1))
Case 32, 34, 35, 36, 37, 46, 47, 48, 49, 50, 78, 79, 80, 81, 120, 125, 126, 200, 201, 202, 203, 204, 205, 206, 207
Select Case KeyAscii
Case 110 '
Text2.Text = Left(Text2.Text, bash) + Chr(51) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-280) + Right(Text3.Text, uzun)
Case 47 '
Text2.Text = Left(Text2.Text, bash) + Chr(121) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-368) + Right(Text3.Text, uzun)
Case 97 '
Text2.Text = Left(Text2.Text, bash) + Chr(106) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-273) + Right(Text3.Text, uzun)
Case 98 '
Text2.Text = Left(Text2.Text, bash) + Chr(72) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-355) + Right(Text3.Text, uzun)
Case 99 '
Text2.Text = Left(Text2.Text, bash) + Chr(102) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-301) + Right(Text3.Text, uzun)
Case 100 '
Text2.Text = Left(Text2.Text, bash) + Chr(80) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-334) + Right(Text3.Text, uzun)
Case 101 '
Text2.Text = Left(Text2.Text, bash) + Chr(38) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-264) + Right(Text3.Text, uzun)
Case 102 '
Text2.Text = Left(Text2.Text, bash) + Chr(35) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-369) + Right(Text3.Text, uzun)
Case 103 '
Text2.Text = Left(Text2.Text, bash) + Chr(37) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-268) + Right(Text3.Text, uzun)
Case 104
Text2.Text = Left(Text2.Text, bash) + Chr(42) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-308) + Right(Text3.Text, uzun)
Case 105 '
Text2.Text = Left(Text2.Text, bash) + Chr(99) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-347) + Right(Text3.Text, uzun)
Case 106 '
Text2.Text = Left(Text2.Text, bash) + Chr(89) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-293) + Right(Text3.Text, uzun)
Case 107 '
Text2.Text = Left(Text2.Text, bash) + Chr(92) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-289) + Right(Text3.Text, uzun)
Case 108 '
Text2.Text = Left(Text2.Text, bash) + Chr(69) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-285) + Right(Text3.Text, uzun)
Case 109 '
Text2.Text = Left(Text2.Text, bash) + Chr(65) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-281) + Right(Text3.Text, uzun)
Case 110
Text2.Text = Left(Text2.Text, bash) + Chr(51) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-280) + Right(Text3.Text, uzun)
Case 111 '
Text2.Text = Left(Text2.Text, bash) + Chr(46) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-310) + Right(Text3.Text, uzun)
Case 112 '
Text2.Text = Left(Text2.Text, bash) + Chr(75) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-315) + Right(Text3.Text, uzun)
Case 113 '
Text2.Text = Left(Text2.Text, bash) + Chr(116) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-339) + Right(Text3.Text, uzun)
Case 114 '
Text2.Text = Left(Text2.Text, bash) + Chr(78) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-330) + Right(Text3.Text, uzun)
Case 115 '
Text2.Text = Left(Text2.Text, bash) + Chr(57) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-325) + Right(Text3.Text, uzun)
Case 116 '
Text2.Text = Left(Text2.Text, bash) + Chr(54) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-351) + Right(Text3.Text, uzun)
Case 117 '
Text2.Text = Left(Text2.Text, bash) + Chr(47) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-332) + Right(Text3.Text, uzun)
Case 118 '
Text2.Text = Left(Text2.Text, bash) + Chr(49) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-266) + Right(Text3.Text, uzun)
Case 119 '
Text2.Text = Left(Text2.Text, bash) + Chr(50) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-364) + Right(Text3.Text, uzun)
Case 120 '
Text2.Text = Left(Text2.Text, bash) + Chr(61) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-319) + Right(Text3.Text, uzun)
Case 121 '
Text2.Text = Left(Text2.Text, bash) + Chr(82) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-269) + Right(Text3.Text, uzun)
Case 122 '
Text2.Text = Left(Text2.Text, bash) + Chr(79) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-328) + Right(Text3.Text, uzun)
Case 68 '
Text2.Text = Left(Text2.Text, bash) + Chr(120) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-360) + Right(Text3.Text, uzun)
Case 70 '
Text2.Text = Left(Text2.Text, bash) + Chr(86) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-297) + Right(Text3.Text, uzun)
Case 71 '
Text2.Text = Left(Text2.Text, bash) + Chr(95) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-311) + Right(Text3.Text, uzun)
Case 72 '
Text2.Text = Left(Text2.Text, bash) + Chr(108) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-335) + Right(Text3.Text, uzun)
Case 74 '
Text2.Text = Left(Text2.Text, bash) + Chr(112) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-343) + Right(Text3.Text, uzun)
Case 75 '
Text2.Text = Left(Text2.Text, bash) + Chr(48) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-362) + Right(Text3.Text, uzun)
Case 76 '
Text2.Text = Left(Text2.Text, bash) + Chr(125) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-372) + Right(Text3.Text, uzun)
Case 32 '?????
yy = Asc(Right(Left(Text2.Text, bash + 2), 1))
Select Case Asc(Right(Left(Text2.Text, bash + 1), 1))
Case 34 '
Text2.Text = Chr(32) + Chr(34) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-369) + Right(Text3.Text, uzun - 1)
Case 72 '
Text2.Text = Chr(32) + Chr(72) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-355) + Right(Text3.Text, uzun - 1)
Case 35 '
Text2.Text = Chr(32) + Chr(35) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-377) + Right(Text3.Text, uzun - 1)
Case 36 '
Text2.Text = Chr(32) + Chr(36) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-267) + Right(Text3.Text, uzun - 1)
Case 37 '
Text2.Text = Chr(32) + Chr(37) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-268) + Right(Text3.Text, uzun - 1)
Case 42 '
Text2.Text = Chr(32) + Chr(44) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-310) + Right(Text3.Text, uzun - 1)
Case 46 '
Text2.Text = Chr(32) + Chr(46) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-310) + Right(Text3.Text, uzun - 1)
Case 47 '
Text2.Text = Chr(32) + Chr(47) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-332) + Right(Text3.Text, uzun - 1)
Case 48 '
Text2.Text = Chr(32) + Chr(48) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-362) + Right(Text3.Text, uzun - 1)
Case 49 '
Text2.Text = Chr(32) + Chr(49) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-266) + Right(Text3.Text, uzun - 1)
Case 50 '
Text2.Text = Chr(32) + Chr(50) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-364) + Right(Text3.Text, uzun - 1)
Case 78 '
Text2.Text = Chr(32) + Chr(78) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-330) + Right(Text3.Text, uzun - 1)
Case 79 '
Text2.Text = Chr(32) + Chr(79) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-325) + Right(Text3.Text, uzun - 1)
Case 80 '
Text2.Text = Chr(32) + Chr(80) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-334) + Right(Text3.Text, uzun - 1)
Case 81 '
Text2.Text = Chr(32) + Chr(81) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-334) + Right(Text3.Text, uzun - 1)
Case 120 '
Text2.Text = Chr(32) + Chr(120) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(360) + Right(Text3.Text, uzun - 1)
Case 125 '
Text2.Text = Chr(32) + Chr(125) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-372) + Right(Text3.Text, uzun - 1)
Case 126 '
Text2.Text = Chr(32) + Chr(126) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-372) + Right(Text3.Text, uzun - 1)
Case 200 '
Text2.Text = Chr(32) + Chr(200) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-310) + Right(Text3.Text, uzun - 1)
Case 201 '
Text2.Text = Chr(32) + Chr(201) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-332) + Right(Text3.Text, uzun - 1)
Case 202 '
Text2.Text = Chr(32) + Chr(202) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-310) + Right(Text3.Text, uzun - 1)
Case 203 '
Text2.Text = Chr(32) + Chr(203) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-362) + Right(Text3.Text, uzun - 1)
Case 204 '
Text2.Text = Chr(32) + Chr(204) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-364) + Right(Text3.Text, uzun - 1)
''??
Case 205 '
Text2.Text = Chr(32) + Chr(205) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-330) + Right(Text3.Text, uzun - 1)
Case 206 '
Text2.Text = Chr(32) + Chr(206) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-325) + Right(Text3.Text, uzun - 1)
Case 207 '
Text2.Text = Chr(32) + Chr(207) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-360) + Right(Text3.Text, uzun - 1)
End Select
End Select
Case 38, 42, 57, 54, 51, 57, 65, 61, 75, 72, 69, 86, 82, 95, 92, 89, 102, 99, 112, 108, 106, 121, 116 '中间字母的话
Select Case KeyAscii
Case 47 '
Text2.Text = Left(Text2.Text, bash) + Chr(122) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-365) + Right(Text3.Text, uzun)
Case 76 '
Text2.Text = Left(Text2.Text, bash) + Chr(126) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-372) + Right(Text3.Text, uzun)
Case 97 '
Text2.Text = Left(Text2.Text, bash) + Chr(107) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-273) + Right(Text3.Text, uzun)
Case 98 '
Text2.Text = Left(Text2.Text, bash) + Chr(73) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-355) + Right(Text3.Text, uzun)
Case 99 '
Text2.Text = Left(Text2.Text, bash) + Chr(103) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-301) + Right(Text3.Text, uzun)
Case 100 '
Text2.Text = Left(Text2.Text, bash) + Chr(81) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-334) + Right(Text3.Text, uzun)
Case 101 '
Text2.Text = Left(Text2.Text, bash) + Chr(39) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-263) + Right(Text3.Text, uzun)
Case 102 '
Text2.Text = Left(Text2.Text, bash) + Chr(34) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-369) + Right(Text3.Text, uzun)
Case 103 '
Text2.Text = Left(Text2.Text, bash) + Chr(36) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-267) + Right(Text3.Text, uzun)
Case 104 '
Text2.Text = Left(Text2.Text, bash) + Chr(43) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-307) + Right(Text3.Text, uzun)
Case 105 '
Text2.Text = Left(Text2.Text, bash) + Chr(100) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-347) + Right(Text3.Text, uzun)
Case 106 '
Text2.Text = Left(Text2.Text, bash) + Chr(90) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-293) + Right(Text3.Text, uzun)
Case 107 '
Text2.Text = Left(Text2.Text, bash) + Chr(93) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-289) + Right(Text3.Text, uzun)
Case 108 '
Text2.Text = Left(Text2.Text, bash) + Chr(70) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-285) + Right(Text3.Text, uzun)
Case 109 '
Text2.Text = Left(Text2.Text, bash) + Chr(66) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-281) + Right(Text3.Text, uzun)
Case 110 '
Text2.Text = Left(Text2.Text, bash) + Chr(52) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-279) + Right(Text3.Text, uzun)
Case 111 '
Text2.Text = Left(Text2.Text, bash) + Chr(46) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-310) + Right(Text3.Text, uzun)
Case 112 '
Text2.Text = Left(Text2.Text, bash) + Chr(76) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-315) + Right(Text3.Text, uzun)
Case 113 '
Text2.Text = Left(Text2.Text, bash) + Chr(117) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-339) + Right(Text3.Text, uzun)
Case 114 '
Text2.Text = Left(Text2.Text, bash) + Chr(78) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-330) + Right(Text3.Text, uzun)
Case 115 '
Text2.Text = Left(Text2.Text, bash) + Chr(58) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-323) + Right(Text3.Text, uzun)
Case 116 '?问题
Text2.Text = Left(Text2.Text, bash) + Chr(55) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-351) + Right(Text3.Text, uzun)
Case 117 '
Text2.Text = Left(Text2.Text, bash) + Chr(47) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-332) + Right(Text3.Text, uzun)
Case 118 '
Text2.Text = Left(Text2.Text, bash) + Chr(49) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-266) + Right(Text3.Text, uzun)
Case 119 '
Text2.Text = Left(Text2.Text, bash) + Chr(50) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-364) + Right(Text3.Text, uzun)
Case 120 '
Text2.Text = Left(Text2.Text, bash) + Chr(62) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-319) + Right(Text3.Text, uzun)
Case 121 '
Text2.Text = Left(Text2.Text, bash) + Chr(83) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-269) + Right(Text3.Text, uzun)
Case 122 '
Text2.Text = Left(Text2.Text, bash) + Chr(79) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-325) + Right(Text3.Text, uzun)
Case 68 '
Text2.Text = Left(Text2.Text, bash) + Chr(120) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-360) + Right(Text3.Text, uzun)
Case 70 '
Text2.Text = Left(Text2.Text, bash) + Chr(87) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-297) + Right(Text3.Text, uzun)
Case 71 '
Text2.Text = Left(Text2.Text, bash) + Chr(96) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-311) + Right(Text3.Text, uzun)
Case 72 '
Text2.Text = Left(Text2.Text, bash) + Chr(109) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-335) + Right(Text3.Text, uzun)
Case 74 '
Text2.Text = Left(Text2.Text, bash) + Chr(113) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-343) + Right(Text3.Text, uzun)
Case 75 '
Text2.Text = Left(Text2.Text, bash) + Chr(48) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-362) + Right(Text3.Text, uzun)
Case 76 '
Text2.Text = Left(Text2.Text, bash) + Chr(126) + Right(Text2.Text, uzun)
Text3.Text = Left(Text3.Text, bash) + Chr(-372) + Right(Text3.Text, uzun)
Case 32
Select Case Asc(Right(Left(Text2.Text, bash + 1), 1))
Case 38
Text2.Text = Chr(32) + Chr(41) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-261) + Right(Text3.Text, uzun - 1)
Case 42
Text2.Text = Chr(32) + Chr(45) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-305) + Right(Text3.Text, uzun - 1)
Case 57
Text2.Text = Chr(32) + Chr(60) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-323) + Right(Text3.Text, uzun - 1)
Case 54
Text2.Text = Chr(32) + Chr(56) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-351) + Right(Text3.Text, uzun - 1)
Case 51
Text2.Text = Chr(32) + Chr(53) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-277) + Right(Text3.Text, uzun - 1)
Case 65
Text2.Text = Chr(32) + Chr(68) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-281) + Right(Text3.Text, uzun - 1)
Case 61
Text2.Text = Chr(32) + Chr(64) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-319) + Right(Text3.Text, uzun - 1)
Case 75
Text2.Text = Chr(32) + Chr(77) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-315) + Right(Text3.Text, uzun - 1)
Case 72
Text2.Text = Chr(32) + Chr(74) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-355) + Right(Text3.Text, uzun - 1)
Case 69
Text2.Text = Chr(32) + Chr(71) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-285) + Right(Text3.Text, uzun - 1)
Case 86
Text2.Text = Chr(32) + Chr(88) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-297) + Right(Text3.Text, uzun - 1)
Case 82
Text2.Text = Chr(32) + Chr(85) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-269) + Right(Text3.Text, uzun - 1)
Case 95
Text2.Text = Chr(32) + Chr(98) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-311) + Right(Text3.Text, uzun - 1)
Case 92
Text2.Text = Chr(32) + Chr(94) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-289) + Right(Text3.Text, uzun - 1)
Case 89
Text2.Text = Chr(32) + Chr(91) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-293) + Right(Text3.Text, uzun - 1)
Case 102
Text2.Text = Chr(32) + Chr(105) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-301) + Right(Text3.Text, uzun - 1)
Case 99
Text2.Text = Chr(32) + Chr(101) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-347) + Right(Text3.Text, uzun - 1)
Case 112
Text2.Text = Chr(32) + Chr(115) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-334) + Right(Text3.Text, uzun - 1)
Case 108
Text2.Text = Chr(32) + Chr(111) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-335) + Right(Text3.Text, uzun - 1)
Case 106
Text2.Text = Chr(32) + Chr(106) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-273) + Right(Text3.Text, uzun - 1)
Case 121
Text2.Text = Chr(32) + Chr(121) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-368) + Right(Text3.Text, uzun - 1)
Case 116
Text2.Text = Chr(32) + Chr(119) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-339) + Right(Text3.Text, uzun - 1)
End Select
End Select
Case 39, 43, 58, 55, 52, 66, 62, 70, 73, 76, 83, 87, 90, 93, 96, 100, 103, 107, 109, 113, 117, 122 '最后字母的话
Select Case KeyAscii
Case 47 '
Text2.Text = Left(Text2.Text, bash) + Chr(122) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-365) + Right(Text3.Text, uzun)
Case 93 '
Text2.Text = Left(Text2.Text, bash) + Chr(123) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-289) + Right(Text3.Text, uzun)
Case 76 '
Text2.Text = Left(Text2.Text, bash) + Chr(126) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-372) + Right(Text3.Text, uzun)
Case 97 '
Text2.Text = Left(Text2.Text, bash) + Chr(107) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-273) + Right(Text3.Text, uzun)
Case 98 '
Text2.Text = Left(Text2.Text, bash) + Chr(73) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-355) + Right(Text3.Text, uzun)
Case 99 '
Text2.Text = Left(Text2.Text, bash) + Chr(103) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-301) + Right(Text3.Text, uzun)
Case 100 '
Text2.Text = Left(Text2.Text, bash) + Chr(81) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-334) + Right(Text3.Text, uzun)
Case 101 '
Text2.Text = Left(Text2.Text, bash) + Chr(39) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-263) + Right(Text3.Text, uzun)
Case 102 '
Text2.Text = Left(Text2.Text, bash) + Chr(34) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-369) + Right(Text3.Text, uzun)
Case 103 '
Text2.Text = Left(Text2.Text, bash) + Chr(36) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-267) + Right(Text3.Text, uzun)
Case 104 '
Text2.Text = Left(Text2.Text, bash) + Chr(43) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-307) + Right(Text3.Text, uzun)
Case 105 '
Text2.Text = Left(Text2.Text, bash) + Chr(100) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-347) + Right(Text3.Text, uzun)
Case 106 '
Text2.Text = Left(Text2.Text, bash) + Chr(90) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-293) + Right(Text3.Text, uzun)
Case 107 '
Text2.Text = Left(Text2.Text, bash) + Chr(93) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-289) + Right(Text3.Text, uzun)
Case 108 '
Text2.Text = Left(Text2.Text, bash) + Chr(70) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-285) + Right(Text3.Text, uzun)
Case 109 '
Text2.Text = Left(Text2.Text, bash) + Chr(66) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-281) + Right(Text3.Text, uzun)
Case 110 '
Text2.Text = Left(Text2.Text, bash) + Chr(52) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-279) + Right(Text3.Text, uzun)
Case 111 '
Text2.Text = Left(Text2.Text, bash) + Chr(46) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-310) + Right(Text3.Text, uzun)
Case 112 '
Text2.Text = Left(Text2.Text, bash) + Chr(76) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-315) + Right(Text3.Text, uzun)
Case 113 '
Text2.Text = Left(Text2.Text, bash) + Chr(117) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-339) + Right(Text3.Text, uzun)
Case 114 '
Text2.Text = Left(Text2.Text, bash) + Chr(78) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-330) + Right(Text3.Text, uzun)
Case 115 '
Text2.Text = Left(Text2.Text, bash) + Chr(58) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-323) + Right(Text3.Text, uzun)
Case 116 '
Text2.Text = Left(Text2.Text, bash) + Chr(55) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-351) + Right(Text3.Text, uzun)
Case 117 '
Text2.Text = Left(Text2.Text, bash) + Chr(47) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-332) + Right(Text3.Text, uzun)
Case 118 '
Text2.Text = Left(Text2.Text, bash) + Chr(49) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-266) + Right(Text3.Text, uzun)
Case 119 '
Text2.Text = Left(Text2.Text, bash) + Chr(50) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-364) + Right(Text3.Text, uzun)
''??
Case 120 '
Text2.Text = Left(Text2.Text, bash) + Chr(62) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-319) + Right(Text3.Text, uzun)
Case 121 '
Text2.Text = Left(Text2.Text, bash) + Chr(83) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-269) + Right(Text3.Text, uzun)
Case 122 '
Text2.Text = Left(Text2.Text, bash) + Chr(79) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-325) + Right(Text3.Text, uzun)
Case 68 '
Text2.Text = Left(Text2.Text, bash) + Chr(120) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-360) + Right(Text3.Text, uzun)
Case 70 '
Text2.Text = Left(Text2.Text, bash) + Chr(87) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-297) + Right(Text3.Text, uzun)
Case 71 '
Text2.Text = Left(Text2.Text, bash) + Chr(96) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-331) + Right(Text3.Text, uzun)
Case 72 '
Text2.Text = Left(Text2.Text, bash) + Chr(109) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-335) + Right(Text3.Text, uzun)
Case 74 '
Text2.Text = Left(Text2.Text, bash) + Chr(113) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-343) + Right(Text3.Text, uzun)
Case 75 '
Text2.Text = Left(Text2.Text, bash) + Chr(48) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-262) + Right(Text3.Text, uzun)
Case 76 '
Text2.Text = Left(Text2.Text, bash) + Chr(125) + Right(Text2.Text, uzun)
Text3.Text = Left(Text2.Text, bash) + Chr(-372) + Right(Text3.Text, uzun)
Case 32
Select Case Asc(Right(Left(Text2.Text, bash + 1), 1))
Case 122 '
Text2.Text = Chr(32) + Chr(122) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-365) + Right(Text3.Text, uzun - 1)
Case 70 '
Text2.Text = Chr(32) + Chr(71) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-285) + Right(Text3.Text, uzun - 1)
Case 107 '
Text2.Text = Chr(32) + Chr(107) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-273) + Right(Text3.Text, uzun - 1)
Case 73 '
Text2.Text = Chr(32) + Chr(74) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-355) + Right(Text3.Text, uzun - 1)
Case 103 '
Text2.Text = Chr(32) + Chr(104) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-301) + Right(Text3.Text, uzun - 1)
Case 81 '
Text2.Text = Chr(32) + Chr(81) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-334) + Right(Text3.Text, uzun - 1)
Case 39 '
Text2.Text = Chr(32) + Chr(40) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-262) + Right(Text3.Text, uzun - 1)
Case 34 '
Text2.Text = Chr(32) + Chr(34) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-278) + Right(Text3.Text, uzun - 1)
Case 36 '
Text2.Text = Chr(32) + Chr(36) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-267) + Right(Text3.Text, uzun - 1)
Case 43 '
Text2.Text = Chr(32) + Chr(44) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-306) + Right(Text3.Text, uzun - 1)
Case 100 '
Text2.Text = Chr(32) + Chr(124) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-347) + Right(Text3.Text, uzun - 1)
Case 90 '
Text2.Text = Chr(32) + Chr(91) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-293) + Right(Text3.Text, uzun - 1)
Case 93 '
Text2.Text = Chr(32) + Chr(123) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-289) + Right(Text3.Text, uzun - 1)
Case 70 '
Text2.Text = Chr(32) + Chr(214) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-285) + Right(Text3.Text, uzun - 1)
Case 66 '
Text2.Text = Chr(32) + Chr(67) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-281) + Right(Text3.Text, uzun - 1)
Case 52 '
Text2.Text = Chr(32) + Chr(53) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-277) + Right(Text3.Text, uzun - 1)
Case 200 '
Text2.Text = Chr(32) + Chr(200) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-310) + Right(Text3.Text, uzun - 1)
Case 76 '
Text2.Text = Chr(32) + Chr(77) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-315) + Right(Text3.Text, uzun - 1)
Case 117 '
Text2.Text = Chr(32) + Chr(118) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-319) + Right(Text3.Text, uzun - 1)
Case 205 '
Text2.Text = Chr(32) + Chr(205) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-330) + Right(Text3.Text, uzun - 1)
Case 58 '
Text2.Text = Chr(32) + Chr(59) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-323) + Right(Text3.Text, uzun - 1)
Case 55 '
Text2.Text = Chr(32) + Chr(56) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-351) + Right(Text3.Text, uzun - 1)
Case 201 '
Text2.Text = Chr(32) + Chr(201) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-332) + Right(Text3.Text, uzun - 1)
Case 202 '
Text2.Text = Chr(32) + Chr(202) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-266) + Right(Text3.Text, uzun - 1)
Case 204 '
Text2.Text = Chr(32) + Chr(204) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-364) + Right(Text3.Text, uzun - 1)
Case 62 '
Text2.Text = Chr(32) + Chr(63) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-319) + Right(Text3.Text, uzun - 1)
Case 83 '
Text2.Text = Chr(32) + Chr(84) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-269) + Right(Text3.Text, uzun - 1)
Case 206 '
Text2.Text = Chr(32) + Chr(206) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-325) + Right(Text3.Text, uzun - 1)
Case 207 '
Text2.Text = Chr(32) + Chr(207) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-360) + Right(Text3.Text, uzun - 1)
Case 87 '
Text2.Text = Chr(32) + Chr(88) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-297) + Right(Text3.Text, uzun - 1)
Case 96 '
Text2.Text = Chr(32) + Chr(97) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-311) + Right(Text3.Text, uzun - 1)
Case 109 '
Text2.Text = Chr(32) + Chr(110) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-335) + Right(Text3.Text, uzun - 1)
Case 113 '
Text2.Text = Chr(32) + Chr(114) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-334) + Right(Text3.Text, uzun - 1)
Case 203 '
Text2.Text = Chr(32) + Chr(203) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-362) + Right(Text3.Text, uzun - 1)
Case 126 '
Text2.Text = Chr(32) + Chr(126) + Right(Text2.Text, uzun - 1)
Text3.Text = Chr(32) + Chr(-372) + Right(Text3.Text, uzun - 1)
End Select
End Select
End Select
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
bash = Text2.SelStart
SendKeys "{TAB}"
End Sub