UC知道VB 怎么才能让按扭失去焦点
来源：百度知道 编辑：UC知道 时间：2024/05/21 15:01:52
换句话说就是比如即使单击command1 command1上也不会出现焦点.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Command1_Click()
SendMessage Command1.hwnd, 8, 0, 255
End Sub
Private Sub Form_Load()
Command1.TabStop = False
End Sub
======================
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'或者把焦点给别人，就不用API了
Text1.SetFocus
End Sub
Private Sub Form_Load()
Command1.TabStop = False
End Sub
方法1:使其他控件获得焦点,如Text1.SetFocus
方法2:自己释放焦点,如:Command1.Enabled = False
Command1.Enabled = True
(写在Command1_Click里面或者其他地方)