Question

VB中如何在失去焦点时通过按键再次获得焦点?

Answer 1

不是很明白LZ的意思，但是下面这段代码也许可以帮你。
另外，使控件获得焦点用
“控件.setfocus”
语句。
keycode是按键的扫描码，它能区分用户按下了哪个键。
Private
Sub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
If
Shift
=
1
Then
Print
"按下shift键";
KeyCode
If
Shift
=
2
Then
Print
"按下ctrl键";
KeyCode
If
Shift
=
3
Then
Print
"按下shift
+
ctrl键";
KeyCode
If
Shift
=
4
Then
Print
"按下alt键";
KeyCode
If
Shift
=
5
Then
Print
"按下shift
+
alt键";
KeyCode
If
Shift
=
6
Then
Print
"按下alt
+
ctrl键";
KeyCode
If
Shift
=
7
Then
Print
"按下shift
+
ctrl
+
alt键";
KeyCode
End
Sub
----------------------------------------
这个好办啊。
加载两个窗体，然后在窗体1的代码窗体中编写
Private
Sub
Form_Click()
Form2.SetFocus
End
Sub
Private
Sub
Form_Load()
Form2.Show
End
Sub
窗体2
的代码窗口中编写
Private
Sub
Form_Click()
Form1.SetFocus
End
Sub