学习了....
以下是引用风吹过b在2012-2-10 08:33:46的发言:
Private Sub Command1_Click()
Dim i As Long
For i = 0 To Forms.Count - 1 '遍历所有的窗体
If UCase(Forms(i).Name) = UCase(Text1.Text) Then '按名字查找
Unload Forms(i) '关闭找到的第一个窗体
Exit For '退出查找循环
End If
Next i
End Sub
注:关闭自己有可能会导致隐性加载。
If UCase(Forms(i).Name) = UCase(Text1.Text) Then
'按名字查找
如果写成了:
If Forms(i).Name = trim((Text1.Text)) Then
'这样一般是关闭不到的正确的窗体的.'