VB6.0でシャットダウンを検地する方法

分類:[全般]

はじめまして。ひまじん２号です。
ＶＢ６．０でアプリケーションを終了させないと
ウインドウズ（ＯＳ）が終了できないようにしたい
のですが、どなたかご存知でないでしょうか。

> ＶＢ６．０でアプリケーションを終了させないと
> ウインドウズ（ＯＳ）が終了できないようにしたい

QueryUnloadイベントで可能です。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then
        Cancel = True
    End If
End Sub

■No270に返信(ピラルクさんの記事)
> > ＶＢ６．０でアプリケーションを終了させないと
>>ウインドウズ（ＯＳ）が終了できないようにしたい
>
> QueryUnloadイベントで可能です。
>
> Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
> If UnloadMode = vbAppWindows Then
> Cancel = True
> End If
> End Sub
>