ロード時にエラーが発生した場合、閉じるには？ (ID:107362)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たとえばこんなのでいいのかな？ Private Sub Command1_Click() Form1.ShowOpen End Sub (Form1) Private OpenFlag As Boolean Private Sub Form_Load() On Error GoTo ERROR1 Dim c As Integer c = 1 / 0 On Error GoTo 0 OpenFlag = True Exit Sub ERROR1: OpenFlag = False End Sub Public Function ShowOpen() As Boolean Load Me If OpenFlag Then Me.Show Else Unload Me End If ShowOpen = OpenFlag End Function