VB中在一个窗体上按enter键后,该窗体上的text 控件的text 属性赋给label...

发布网友发布时间：2024-07-13 04:28

共4个回答

热心网友时间：2024-08-02 07:23

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbEnter Then
Label1.Caption = Text1.Text
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Form_KeyPress (KeyAscii = vbEnter)
End Sub

热心网友时间：2024-08-02 07:28

比如说你在text1输入完资料后，按下Enter就执行：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label1.Caption = Text1.Text
End If
End Sub

热心网友时间：2024-08-02 07:27

key_press事件
if keyascii=13 then
label1.caption=text1.text
end if

热心网友时间：2024-08-02 07:22

直接在TEXT的PRESS操作下输入就可以
代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Label1.Caption = Text1.Text
End Sub