1,在一个工程内,有一个悬浮窗体上面有几个打开窗体的钮,在打开一个新窗体时,如何关闭前面已打开的窗体?(详见附件)
2,有一个窗体用菜单跳转其它窗体会出错,不知何故?
Private Sub Command1_Click() '打开aa窗,应关闭前面已打开的bb,cc,dd窗体,下面代码无法实现
Load aa
aa.Show
End Sub

Private Sub Command2_Click()
Load bb
bb.Show
End Sub

Private Sub Command3_Click()
Load cc
cc.Show
End Sub

Private Sub Command4_Click()
Load dd
dd.Show
End Sub
菜单上的代码:
Private Sub bb_Click() '转换时会出错
Unload bb
Load bb
bb.Show
Unload Me
End Sub

Private Sub cc_Click()
Unload cc
Load cc
cc.Show
Unload Me
End Sub

Private Sub Command3_Click()
Unload dd
Load dd
dd.Show
Unload Me
End Sub

Private Sub dd_Click()
Unload dd
Load dd
dd.Show
Unload Me
End Sub
请在附件上直接更正.

dim f as form
for each f in forms
if f.name <> "form1" then
unload f
end if
next

谢谢purana版主提示,如果有多个不同窗体需要关闭,是否用下面代码:
dim f as form
for each f in forms
if f.name <> "form1" then
unload f
end if
next
dim f as form
for each f in forms
if f.name <> "form2" then
unload f
end if
next
dim f as form
for each f in forms
if f.name <> "form3" then
unload f
end if
next
dim f as form
for each f in forms
if f.name <> "form4" then
unload f
end if
next
.
.
.
.
.
如果是采用上面的代码,是可以关闭前面已以打开的各个窗体,但运行速度很慢,不知要怎样改进才行?

dim f as form
for each f in forms
if f.name <> "form1" then
unload f
end if
next

这段代码好像是关掉除了窗体名为form1的所有窗体吧,楼主是不是理解错了

你循环N次了.
在循环里用多个if去判断.学了这么久.还只会单个if判断吗.

对不起,用的就是4楼朋友提示的方法,但由于系统上窗体太多,(60-100个),所以运行速度变慢了很多,不知有无更好的办法,
如果是对exe文件,用下面代码来关闭其它窗体就很快,可是现在不是对exe文件,而是对frm文件;
Private Sub Command1_Click()
Dim Ltem As Long
Dim LpID As Long
Dim hLong As Long
Dim strWinName As String
strWinName = "aa"
hLong = FindWindow(vbNullString, strWinName)
If hLong Then
GetWindowThreadProcessId hLong, LpID
Ltem = OpenProcess(PROCESS_TERMINATE, False, LpID)
TerminateProcess Ltem, 0
hLong = 0
End If
strWinName = "bb"
hLong = FindWindow(vbNullString, strWinName)
If hLong Then
GetWindowThreadProcessId hLong, LpID
Ltem = OpenProcess(PROCESS_TERMINATE, False, LpID)
TerminateProcess Ltem, 0
hLong = 0
End If
strWinName = "cde"
hLong = FindWindow(vbNullString, strWinName)
If hLong Then
GetWindowThreadProcessId hLong, LpID
Ltem = OpenProcess(PROCESS_TERMINATE, False, LpID)
TerminateProcess Ltem, 0
hLong = 0
End If
Shell "rundll32.exe url.dll,FileProtocolHandler " & App.Path & "\aa.exe", vbMaximizedFocus
End Sub

偶采用了下面的代码可以在悬浮窗体上实现任务栏只停一钮的办法,但在aa窗体上就通不过,哪位能指点一下?
Private Sub Command1_Click()
bb.Hide
cc.Hide
dd.Hide
aa.Show

End Sub

Private Sub Command2_Click()
aa.Hide
cc.Hide
dd.Hide
bb.Show

End Sub

Private Sub Command3_Click()
aa.Hide
bb.Hide
dd.Hide
cc.Show

End Sub

Private Sub Command4_Click()
aa.Hide
bb.Hide
cc.Hide
dd.Show
End Sub

private Sub Form_Load()
SetWindowPos Me.hWnd, hwnd_topmost, 0, 0, 0, 0, Swp_nomove Or Swp_nosize
Move 0, Top '悬浮窗体置前和靠左用的

aa.Hide
Load bb
bb.Hide
Load cc
cc.Hide
Load dd
dd.Hide
Load aa
aa.Show
End Sub

采用上面代码,换页速度快了许多(见下面附件),但放在AA页却无法通过,不知何故?

又学了一招．呵呵。