投稿日 | : 2005/04/04(Mon) 17:19 |
投稿者 | : もげ |
Eメール | : |
URL | : |
タイトル | : Re^3: イベントを発生させない。 |
> Form_QueryUnload,Form_Unloadは、事情により修正不可なのです。
どういう事情でしょう?
Endステートメントという手もありますが、
これは強制終了みたいなもので、
メモリを開放しないかも等副作用が心配ですので、
いかなる事情があっても、私はガッ氏案を全面的に支持しますけどね...
---以下、検証コード(Form1.frm)---
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1140
ClientLeft = 1800
ClientTop = 1530
ClientWidth = 3630
LinkTopic = "Form1"
ScaleHeight = 1140
ScaleWidth = 3630
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 1065
Left = 30
TabIndex = 0
Top = 30
Width = 3555
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Debug.Print "End"
End
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Debug.Print "QueryUnload"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Debug.Print "Unload"
End Sub