这一小段有错误么？？？

[cnlomo]

Public Sub Quit()
    Dim X As Form
    For Each X In Forms
        Unload X
        If X.hwnd <> Me.hwnd then Unload X
        set X = Nothing
    Next
End Sub

[slowgrace]

Public Sub Quit()
    Dim X As Form
    For Each X In Forms
        Unload X
        If X.hwnd <> Me.hwnd then Unload X '至少的话，这一句没用:)
        set X = Nothing
    Next
End Sub

[嗷嗷叫的老马]

Unload X
If X.hwnd <> Me.hwnd then Unload X
set X = Nothing

这几句在功能上,应该是冲突的.

如果只要1,3,则是卸载所有窗体;

反之,只卸载自己以外的窗体.

并不应该一起出现.

[slowgrace]

to myjian: 我觉得set X = Nothing也是多余的。

[cnlomo]

[Quote=引用 2 楼 myjian 的回复:]

这几句在功能上,应该是冲突的.

如果只要1,3,则是卸载所有窗体;

反之,只卸载自己以外的窗体.

并不应该一起出现.
[/Quote]
不好意思，我写错了

Public Sub Quit()
    Dim X As Form
    For Each X In Forms
        If X.hwnd <> Me.hwnd then Unload X
        set X = Nothing
    Next
End Sub

[slowgrace]

那你直接 UnLoad Me不行么？

[东方之珠]

[Quote=引用 4 楼 cnlomo 的回复:]
引用 2 楼 myjian 的回复:

这几句在功能上,应该是冲突的.

如果只要1,3,则是卸载所有窗体;

反之,只卸载自己以外的窗体.

并不应该一起出现.

不好意思，我写错了
VB codePublicSub Quit()Dim XAs FormForEach X In FormsIf X.hwnd<> Me.hwndthen Unload Xset X=NothingNextEnd Sub
[/Quote]

set X = Nothing是余的。


应该这样：

Public Sub Quit()
    Dim X As Form
    For Each X In Forms
        If X.hwnd <> Me.hwnd then Unload X
        'set X = Nothing
    Next
End Sub