Question

VB怎样单击回车键就等于按下计算按钮？

Private Sub Command1_Click()
Text2.Text = 3.1415926535 * Val(Text1.Text)
Text3.Text = 3.1415926535 * Val((Text1.Text) / 2) ^ 2
End Sub

Answer 1

Private Sub Command1_Click()
Text2.Text = 3.1415926535 * Val(Text1.Text)
Text3.Text = 3.1415926535 * (Val(Text1.Text) / 2) ^ 2
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub