关于vb一个关闭form的问题！ - 编程论坛

#2

lawwyjang2012-02-09 20:18

没人会吗

#3

风吹过b2012-02-10 08:33

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

注：关闭自己有可能会导致隐性加载。

#4

jokerbat2012-02-12 00:17

vb只是一中工具并不是有种编程语言，basic才是编程语言

#5

mayuebo2012-02-12 10:05

3楼正解

#6

yiyaozjk2012-02-14 20:16

学习了....

以下是引用风吹过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 '这样一般是关闭不到的正确的窗体的.'