回复 7楼 初始元灵
Private Sub textbox_keypress(KeyAscii As Integer)If KeyAscii <> 13 Then Exit Sub
call command7.click
...
end Sub

来找我试试看

2016-10-12 08:02
2016-10-12 08:11
2016-10-12 09:01
2016-10-12 11:25
程序代码:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_Click End If End Sub

2016-10-13 20:45
2016-10-16 14:39
2016-10-16 22:20
2016-10-17 13:11