Question

vb 中按回车textbox1.text输出结果的程序怎么写

Answer 1

还有一种方法:在窗体中选择某个command控件,将属性中的Default设置为True.这样就等于Command控件设置为默认的回车键.你可以根据你的实际操作选择楼上朋友的方法和我的方法.

追问

您好，请问我写了以下语句， TextBox7.Text = 2 * Val(TextBox1) + 1.8 * Val(TextBox2) + 2.7 * Val(TextBox3) + 1.9 * Val(TextBox4) + 2.9 * Val(TextBox5) + 3.8 * Val(TextBox6)为什么我按键的时候Textbox.7中没有结果呢？是少了什么吗？帮忙解答一下啊

追答

Text7.Text = 2 * Val(Text1) + 1.8 * Val(Text2) + 2.7 * Val(Text3) + 1.9 * Val(Text4) + 2.9 * Val(Text5) + 3.8 * Val(Text6)
复制我的代码试一下

追问

谢谢你的帮忙，可是为什么TextBox7.text里显示的是(2 * Val(TextBox1) + 1.8 * Val(TextBox2) + 2.7 * Val(TextBox3) + 1.9 * Val(TextBox4) + 2.9 * Val(TextBox5) + 3.8 * Val(TextBox6))？没有最后的结果啊

追答

我已经修改了回答,没错啊,你再试
,你的问题应该是用错名称了

Text7.Text = 2 * Val(Text1) + 1.8 * Val(Text2) + 2.7 * Val(Text3) + 1.9 * Val(Text4) + 2.9 * Val(Text5) + 3.8 * Val(Text6)

追问

我也不知道啊，我们老师让我们设计一个计算水果店顾客买水果应付现金的程序，我刚才给你的代码的前边的数字是各种水果的单价，这个是固定的，后面是顾客买的数量，是应用时往上输的，Textbox7是输出顾客应付的钱数。

追答

我代码不能用?????

你的TextBox4是错的,除非你是自己定义的控件名称,正确的是text4.text

Answer 2

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.Text = 1234
End Sub

Private Sub Form_Load()
Me.KeyPreview = True

End Sub

Answer 3

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Print Text1.Text
End If
End Sub