Question

VB 怎么才能让按扭失去焦点

换句话说就是比如即使单击command1 command1上也不会出现焦点.

Answer 1

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

Answer 2

方法1:使其他控件获得焦点,如Text1.SetFocus
方法2:自己释放焦点,如:Command1.Enabled = False
Command1.Enabled = True
(写在Command1_Click里面或者其他地方)

Answer 3

http://zhidao.baidu.com/question/44189743.html