C# と VB.NET の質問掲示板

■No87759 (魔界の仮面弁士 さん) に返信
■No87758 (WebSurfer さん) に返信

魔界の仮面弁士さん、WebSurferさん、回答ありがとうございます。


>>Form2 のコンストラクタにデータを渡すための引数を持つものを追加し、frm = New Form2 のところで
>>そのコンストラクタを使って frm = New Form2(データ) というようにしてはいかがですか？

> ただし注意点として、
> 　(1) 引数付きコンストラクタだけでなく、引数なしコンストラクタもオーバーロードで残すこと。
> 　(2) コンストラクタ内では、最初に InitializeCompoent() を呼び出すこと。
> を忘れずに。



基からデータを渡すための引数を設定…思いつきませんでした。
書きやすそうだったので、上記のご意見を踏まえて書き直してみました。
※追加したコードは＊＊＊で囲ってあります。



<修正後ソースコード>

【Form1】
Public class Form1 

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊	
＊	'Form2のコンストラクタにデータを渡すための引数を入れる変数
＊	Dim df As DataSet
＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊



	'xmlからデータを取得
	Function xmlGet(Byval a As String,Byval b As String)

		'xmlへのパスやLoadなど（省略）

		 	 　・
			 　・
			 　・
			 　・

	End Function


	'フォーム内での動き
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

		'DBに接続するための情報をxmlから取得
		Dim id As String = xmlGet("a","b_id") 
		Dim pass As String = xmlGet("a","b_pass")

 
		'接続文字列の指定やSQL文の設定、接続、DBからレコード取得（省略）
			
					　・
					　・
					　・
					　・

	End Sub


＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊
＊	'ボタンクリックイベント(Form2が開く)
＊	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
＊       
＊		Dim frm As Form2
＊        	frm = New Form2(df) 
＊        	frm.Show()  '(※１)
＊
＊	End Sub
＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊


End class	



【Form2】

Public Class Form2


＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊
＊	Private df As DataSet
＊
＊
＊	'Form2のオーバーロード（引数あり）
＊	Public Sub New()
＊
＊        	InitializeComponent()
＊
＊	End Sub
＊
＊
＊	'Form2のオーバーロード（引数あり）
＊	Public Sub New(df As DataSet)
＊              IntializeComponent()
＊        	Me.df = df
＊	End Sub
＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊


	'ここでDBから取得した値をコンボボックスに入れる
	Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊
＊	'Form1_Loadの呼び出し
＊	Dim fType As Type = Form.GetType()
＊
＊      Dim f2 As New Form()
＊
＊      fType.InvokeMember("Form1_Load",
＊                         BindingFlags.NonPublic Or
＊                         BindingFlags.Instance Or
＊                         BindingFlags.InvokeMethod,
＊                         Nothing,
＊                         Form1,
＊                         New Object() {Form1, f2}
＊                         )
＊
＊
＊		'コンボボックスにDB内のテーブルを連結
＊		'ここでdf使ってます
＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

            	'コンボボックスに表示したいデータ
   	        '実際に扱うデータをSelectValueで取得する
      	    	
	End Sub

End class






上手く書くことが出来ました！
しかし、エラーもなかったので実行してみると、ソースコードの（※１）のところで
「保護されているメモリに読み取りまたは書き込み操作を行おうとしました。他のメモリが壊れていることが考えられます。」
という例外が発生してしまいます。

これも色々と調べてはみたのですが、よく分からず…。
すみませんが、引き続きご教授頂けますとありがたいです。
（タイトル違いでしたら新しいスレッド立てます）

■No87773 (WebSurfer さん) に返信

WebSurferさん、回答ありがとうございます。

 
> C# ですがサンプルを書いておきます。Form5 ⇒ Form1, Form6 ⇒ Form2 に読み替えてください。
> 
> デザイナで Form5 には Button を、Form6 には ComboBox をドラッグ＆ドロップして、必要なイ
> ベントハンドラを生成しただけです。


サンプルコードありがとうございます！
おかげさまで、無事に実行が成功しました^^


>     public partial class Form5 : Form
>     {
>         public Form5()
>         {
>             InitializeComponent();
>         }


まさかのオーバーロードの書き忘れによるエラーでした…。
（オーバーロードを両方のFormに書く必要があるのだと知らずに初歩的なミスをしていました）

上記のコードをForm1に入れたらちゃんと動くようになりました！

本当にありがとうございました！








■No87776 (魔界の仮面弁士 さん) に返信

魔界の仮面弁士さん、回答ありがとうございます。



>><修正後ソースコード>
>>	'xmlからデータを取得
>>	Function xmlGet(Byval a As String,Byval b As String)
> 
> Function の戻り値のデータ型が示されていません。
> 戻り値が無いのなら Sub にするべきですし、
> 戻り値があるのなら、末尾に「As String」などの記述が必要です。


すみません、今回の質問やエラーに直接関係ないかなと思って戻り値書いていませんでした。
あと、As Stringも書き忘れてますね…申し訳ないです。


 

>>＊　'ボタンクリックイベント(Form2が開く)
>>＊　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
>>＊　　Dim frm As Form2
>>＊　　frm = New Form2(df) 
>>＊　　frm.Show()  '(※１)
> 
> この段階で、df の中身が Nothing になっていたりはしませんか?
 

はい、その段階でなっていました。多分、dsとdfが混在していたことが原因だったとは思うんですが…。




>>＊　'Form2のオーバーロード（引数あり）
>>＊　Public Sub New()
>>＊　　InitializeComponent()
>>＊　End Sub
>>＊　'Form2のオーバーロード（引数あり）
>>＊　Public Sub New(df As DataSet)
>>＊　　IntializeComponent()
>>＊　　Me.df = df
>>＊　End Sub
> 
> この 2 箇所の IntializeComponent() の行で、[F9]キーを押してブレークポイントを貼り、
> この行で一時停止させてみてください。
> 
> (※1) からは、後者「Sub New(df As DataSet)」側の IntializeComponent が呼ばれるはずです。
> 後者が呼ばれた場合は、引数 df が Nothing で無いことを確認してください。
> もし、引数に Nothing が渡されるとマズイ場合には、IntializeComponent を呼ぶ前に
> 　If df Is Nothing Then
> 　　Throw New ArgumentNullException("df")
> 　End If
> などを設けておくとよいでしょう。


なるほど、勉強になります。
確かに（※１）からは後者が呼ばれていました。
何でもかんでもtry-catchで囲むんでなく、if文で例外をthrowするといいんですね。
万が一のこともあると思うので、ソースコードに追加します。



 
> 一方、前者「Sub New()」側の IntializeComponent が呼ばれることがあるとすれば、
> それは想定外の呼び出しとなります。
> 引数が渡されなければ、Me.df も Nothing のままになってしまうわけで。
> 
> もしも前者が呼ばれるようであれば、それがどこから呼び出されているのか
> コードを見直してみてみてください。
> 
> たとえば、前者を
> 　Public Sub New()
> のままにしただけなら、コンパイルが通る（ただし実行時エラー）のに、それを
> 　Private Sub New()
> にしただけでコンパイルエラーになるようであれば、現在のプロジェクト設定
> もしくはコーディングのどこかが間違っているのだと思います。
>  
> 本来は前者を削除して、後者だけにしたいところなのですが、その場合、
> 特定の条件を満たしたときに、自動生成される *.designer.vb 内で、
> VB のコンパイルエラー BC30109 を生じさせることがあるのが悩ましいところ。
> 
> デザイナコードでエラーが生じると、話がややこしくなるため、
> No87759 では意図的に、引数なしコンストラクタを残すように案内しています。
> （きちんと理解している人なら、前者を削除した状態でも正常に動作するコードを書けるはず）


少しのミスでエラーが起きる世界だと改めて分かったので、
もっとプログラミングに関しての知識を深めていけるように頑張ります。

引数なしのコンストラクターは参照0個だし必要あるのかなと疑問でしたが、
これがないだけで発生するエラーがあるんですね…。
今回は特にコンストラクタに対しての指定はないですし理解も不十分なところがあるので、
引数なしコンストラクタを書いておくようにします。
教えていただきありがとうございました。





> Reflection が必要となるのは、非常に限定された処理であって、
 
> それに、Form1_Load を自前で呼び出すのも避けるべきです。
> イベントハンドラーを、普通のメソッドのように呼び出すことはもちろん可能ですが、
> これは本来「呼びだされる物」であって、「呼び出す物」ではありませんので。


なるほど、できるだけ使用しないべきという訳ではなく、特定の条件下で使用するのがベストなんですね。
今回のことでイベントハンドラーは呼び出される物だと分かったので、これからは「メソッドと同じ扱いはしない」
ということを肝に銘じておきます。










回答頂いた皆様、短い間ではありましたが、お付き合いいただき本当にありがとうございました！
まだまだ初心者ですが、皆様のおかげで多くのことを勉強することができました。
この場を借りてお礼申し上げます。
また今後お世話になることもあるかとは思いますが、その時はどうぞよろしくお願いします。