別フォームを表示させるには？

sutudy 2006-12-14 01:33:53 No: 134580

Public Class Form1
Public newform4 As Form4 = New Form4()

Private Sub AAAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 時刻調整ToolStripMenuItem.Click
Dim newform As Form2 = New Form2()

        newform.ShowDialog()
        newform.Dispose()
        newform = Nothing
    End Sub

Private Sub BBBToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 時刻調整ToolStripMenuItem.Click
Dim newform As Form3 = New Form3()

        newform.ShowDialog()
        newform.Dispose()
        newform = Nothing
    End Sub

  Private Sub xxxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 出勤打刻ToolStripMenuItem.Click
        Call fctABC()
    End Sub

Private Sub fctABC()
InternetExplorer起動

newform4.ShowDialog() <---(※1)
newform4.ShowDialog() <---(※2)

End Sub

End Class

特攻隊長まるるう 2006-12-15 20:02:22 No: 134581

投稿失敗スレッドにつき↓こちらへ移動。
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200612/06120045.txt