Question

VB编程问题！ 如何在文本框中输入号后直接按回车开始计算

1我想做一个计算软件，想要在运行时，在文本框中输入好数字之后按回车直接运行（说白了就是用回车来代替鼠标单机command1）
我同学说用keycode = ……
后面是不是要具体的数值
是不是可以用另外一种方法获取数值
好像是len什么的，然后msgbox跳出一个数值，这个数值就是=号后面的数值
同志们给我解释清楚啊。。应该怎么获取数值，怎么用。谢谢了
好像是这一段，大家帮忙解释下，这好像只是利用回车代替点击的一段，那么数值的获取怎么办？
Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If Index = 1 Then
If KeyCode = 13 Then
Call Command1_Click
End If
ElseIf Index = 0 Then
If KeyCode = 13 Then
Text2(1).SetFocus
End If
End If
End Sub
2 帮忙解释下下面这段程序
Private Sub Text6_DragDrop(Source As Control, X As Single, Y As Single)
Dim EE
EE = Int(Rnd * 15)
Select Case EE
Case 1
MsgBox ("A")
Case 2
MsgBox ("B")
Case 3
MsgBox ("C")
Case 4
MsgBox ("D")
Case 5
MsgBox ("E")
Case Else
MsgBox ("F")
End Select

End Sub

Answer 1

1.textbox有一个 Locked属性，设为True,就不能被编辑了

2.textbox有一个 MaxLength属性，用来限制文本框可输入字符的长度，你设成8,它就只能输8个字；设成10，就只能输10个字。设为0就是没有长度限制。
但你这个情况必须不断试才能得到这个具体的值，因为不同的字号，不同字体，相同一个文本框能容纳的字符数也是不同的。但也不算麻烦啦是不？

3.这个可以用keyup（或者keydown)来实现，但是如果有文本框的话还是不推荐，你可以在command1的caption上做手脚，相信你用软件的时候常见到各种带下划线的字母，比如（确定 下划线 O) (是 下划线Y) (文件 下划线F) (工具 下划线T) 带下划线加字母的意思就是，你按alt+那个字母，效果等同鼠标点击那个按钮。VB里也可以，不过只能用alt+ 一个字母的形式做快捷键啦。还是用例子说吧，你的command1要用alt+x来做快键，就在caption的属性里加 &x ，它就能出现一个带下划线的x。加 &Y 就是带下划线的Y。你可以再试试。这样设的好处是，代码都省了。

Answer 2

文本框中，输入数据后，按回车开始指定操作，这是在文本框的按键事件中编写代码判断按键的字符即可。代码如下：
Private Sub 你的文本框名_KeyPress(KeyAscii As Integer) '这是vb自动生成的
If KeyAscii = vbKeyReturn Then '如果是回车键
KeyAscii = 0 '取消回车输入，以下才计算
你的文本框名.text="文本框要显示的计算内容" '这里是操作部分，显示计算结果到文本框

End If
End Sub

Answer 3

Private Sub Text6_DragDrop(Source As Control, X As Single, Y As Single)
Dim EE
EE = Int(Rnd * 15)
Select Case EE
Case 1
MsgBox ("A")
Case 2
MsgBox ("B")
Case 3
MsgBox ("C")
Case 4
MsgBox ("D")
Case 5
MsgBox ("E")
Case Else
MsgBox ("F")
End Select

End Sub
这一段程序的主要目的是 2 一下
因为这段程序从Text6_DragDrop(Source As Control, X As Single, Y As Single)看出是通过鼠标拖拽进行什么处理，但是，从接下来的
Dim EE
EE = Int(Rnd * 15)
Select Case EE
Case 1
MsgBox ("A")
Case 2
MsgBox ("B")
Case 3
MsgBox ("C")
Case 4
MsgBox ("D")
Case 5
MsgBox ("E")
Case Else
MsgBox ("F")
看出，程序通过生成的随机数的数值选择弹出一个信息框

追问

麻烦解答下第一个问题好吗？

追答

Private Sub Text1_KeyPress(Index As Integer, KeyCode As Integer, Shift As Integer)
If index = 1 Then '如果keypress发生在【文本框1】
If KeyCode = 13 Then '如果，是回车键按下
Call Command1_Click '模拟单击Command1按钮
End If
ElseIf index = 0 Then '如果是【文本框0】中发生的Keypress
If KeyCode = 13 Then Text2(1).SetFocus '且，如果按下的键是回车，将光标移到【文本框1】
End If
End Sub

追问

回车按下都是keycode =13 吗？换个程序，换个文本框都是13吗？
那么别的键呢，比如是X Y，这些数值又怎么来，我同学说可以用一段程序来显示KEYCODE 好像是…… 然后MSGBOX“（一个数值）”。那个就是KEYCODE ，那我应该怎么写这段跳出KEYCODE的程序呢？ （放假了，暂时见不到同学。。。）

追答

都是的，keycode就是按键的ascii码，是不变的。显示ascii码的方法
新建一个工程，画一个文本框，添加如下代码
Private Sub Text1_KeyPress(KeyAscii As Integer)
msgbox "您按键的ASCII码为：" & KeyAscii
End Sub

Answer 4

将Command1按钮设置为默认分键。
选中Command1，将default的属性设为True。