方法很多 我随便说个 Private IsCtrlEnter As BooleanPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 And Shift = 2 Then IsCtrlEnter = True End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If IsCtrlEnter = True Then KeyAscii = 0 Print "Not allow Ctrl+Enter" IsCtrlEnter = False End If End Sub
Private IsCtrlEnter As BooleanPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then IsCtrlEnter = True
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If IsCtrlEnter = True Then
KeyAscii = 0
Print "Not allow Ctrl+Enter"
IsCtrlEnter = False
End If
End Sub