热心网友
回答时间:2024-05-16 09:42
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Msg As String
Dim I As Long
Msg = Text1.Text
I = Val(Msg) '把字符强制转换为数字
I = I * 2
Msg = I
If KeyCode = 13 Then '叛断按下的键是否是回车键,13代表回车
Text1.Text = Msg
End If
End Sub
收起