|
分類:[VB.NET]
いろいろコードを変えたり、加えたりしましたがなかなかうまくいかないです。Form1とForm2でIF文が重なりあっておかしくなっていると思うのですが
先に進みません。よろしくお願いします。
ちなみに↓記箇所で「'System.NullReferenceException' のハンドルされていない例外が SeiKoteiHyo.exe で発生しました。
追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。」
となっています。
*********************************************************************************************************
Public Class Form1
Inherits System.Windows.Forms.Form
------------------------------------------
'Windowsフォームデザイナで生成されたコード
------------------------------------------
'-----
'中略
'-----
Private Sub Menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu1.Click
Dim fm As New Form2(cs1.width, cs2.width)
If fm.ShowDialog=DialogResult.Cancel Then 'キャンセルされた時
Exit Sub
If fm.pp1 = False Then
cs1.Width = 0 'Form2のCheckBox1のﾁｪｯｸがはずせれたら第1列目を消す
End If
If fm.pp2 = False Then
cs2.Width = 0 'Form2のCheckBox2のﾁｪｯｸがはずせれたら第2列目を消す
End If
End Sub
End Class
---------------------------------------------------------------------------------------------------------
'Form1のメニューからForm2を呼び出す
Public Class Form2
Inherits System.Windows.Forms.Form
------------------------------------------
'Windowsフォームデザイナで生成されたコード
------------------------------------------
Public Property pp1 As String
Get
Return CheckBox1.Checked
End Get
Set(ByVal Value As String)
End Set
End Property
Public Property pp2 As String
Get
Return CheckBox2.Checked
End Get
Set(ByVal Value As String)
End Set
End Property
Public Sub New(Byval Value1 As Integer,Byval Value2 As Integer)
If Value1<>0 Then
CheckBox1.Checked = True ←ここで例外
End If
If Value2<>0 Then
CheckBox2.Checked = True
End If
End Sub
|