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

> TextBoxに文字を入れて、20文字を超えた瞬間にMsgBoxを表示させるように
> したいのですが、なにかいい方法はないでしょうか？

TextChangedイベントを捕まえればよさげ。

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) _
                                                   Handles TextBox1.TextChanged
  If TextBox1.Text.Length >= 20 Then
     MessageBox.Show("いっぱいいっぱいっす", "ヤバいっす", _
                     MessageBoxButtons.OK,MessageBoxIcon.Information)
  End If
End Sub

いつもお世話になっております。
VB.NET初心者です。

Form1でDBから取得したデータを、Form2にあるコンボボックスに入れたいのですが、
調べるうちにどうもよく分からなくなってきたため、分かる方いましたら是非ご教授をお願いします。
その際、サンプルコードか参考となるページなどがあれば、よければ教えていただけますとありがたいです。



＜開発環境＞
vb2015、.NET Framework3.0

＜ソースコード＞
【関数の呼び出し元Form1】

Public class Form1 

	'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から取得(※1)
		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
        	frm.Show()  

	End Sub

End class	



【Function関数を使用したいForm2】

Public Class Form2

	'ここでDBから取得した値をコンボボックスに入れる
	Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		
		'コンボボックスにDB内のテーブルを連結
            	'コンボボックスに表示したいデータ
   	        '実際に扱うデータをSelectValueで取得する
      	    	
	End Sub

End class


----------------------------------------------------------------------------------------


【質問】

�@Form1_LoadをprivateのままでForm2で取得し、使用したい

実行：Form2で
	
	'Form1のインスタンス化
	Dim cls As New Form1
	cls.Form1_Load() 'エラー発生

エラー内容：Form1_Loadはprivateのためアクセスできない



�AForm2でForm1_Loadだけを取得した場合、(※1)は正常に動作するのか

（以下では、正常に動作しなかった場合を考えました）
実行：Form2で

	'Form1のインスタンス化
	Dim cls As New Form1
	cls.xmlGet() 'エラー発生

エラー内容：変数aとbに対して引数が指定されていない
		→　aとbには引数を１つではなく複数入れたいため、配列を使用する必要がある？


-----------------------------------------------------------------------------------------


素人が作成しているため、細かい間違いが多いと思います。何卒ご容赦下さい。
ですが、大きな間違いに関してはご指摘くだされば幸いです。
以上、よろしくお願いします。

■No87757 (にゃるら さん) に返信

にゃるらさん、回答ありがとうございます。


>>�@Form1_LoadをprivateのままでForm2で取得し、使用したい
> 
> ある型のメンバを呼び出すのに、Reflectionが使えます。
> 
>   http://smdn.jp/programming/netfx/reflection/
> 
> privateなインスタンスメンバであれば
> 
>   BindingFlags.NonPublic | BindingFlags.Instance
> 
> の条件をつけることでアクセスできます。


なるほどそういう方法があったんですね！
早速書いてみました。

Dim fType As Type = Form1.GetType()

        Dim f2 As New Form2()

        fType.InvokeMember("Form1_Load",
                           BindingFlags.NonPublic Or
                           BindingFlags.Instance Or
                           BindingFlags.InvokeMethod,
                           Nothing,
                           From1,
                           New Object() {Form1, f2}
                           )


参考(https://dobon.net/vb/dotnet/programing/invokenonpublicmember.html
「隠蔽されている非パブリックメンバを呼び出す」)

これで合ってますかね…？




>>�AForm2でForm1_Loadだけを取得した場合、(※1)は正常に動作するのか
> 
> 正常の意味がよくわからないですが、呼び出そうとする処理の中に
> 状態や変数のライフタイムなどが関係ないようなものであれば
> 大丈夫じゃないでしょうか。
> 
> ちなみに余計なお世話ですけども。
> 「素人」というのが本当なのであれば、privateでなくpublicだけで実装されるのが無難と思いますよ。
> 動くプログラムを作られてからカプセル化に挑戦する方が良いと思いますよ。


あ、すみません「正常」という言葉は「エラーは出ないのか？」という意味で使ったので、その解釈であってます。
「素人」という言葉も「初心者」という意味合いで使っていました。
 
また、以前「基本はPublicではなくPrivateで書いたほうがいい」と授業で習った覚えがあったので、
Privateで記述していました。
でも、まずはにゃるらさんの言う通りPublicでやった方がやりやすいかもですね…。
次回からはその方法も試してみます。

■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






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

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

■No87766 (WebSurfer さん) に返信

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

 
> 上記（'Form1_Loadの呼び出し）は何でしょう？　意味がなさそうに見えるのですが。と言うよりこれがエラーの原因？？？
> 
> frm = New Form2(df) で Form2 を初期化する際に Form1 で生成した DataSet への参照を引数 df 
> 経由で渡して、その後 Form2 の Load イベントのハンドラで、渡された DataSet の情報を元に 
> Form2 に配置されている ComboBox を設定するのではないのですか？
> 
> であれば、そのコードは意味不明＆多分不要なのですが・・・




早速指摘されたところを削除してみましたが、エラーは治りませんでした…。
なので、エラーを補足するためにtry catchで囲ってみました。


'ボタンクリックイベント(Form2が開く)
	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       		
		Try

			Dim frm As Form2
        		frm = New Form2(df) 
        		frm.Show()  '(※１)

		Catch ave As AccessViolationException

		End Try

	End Sub


これで、（※1）に関するエラーは出なくなったのですが、


	'ここでDBから取得した値をコンボボックスに入れる
	Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		
		'コンボボックスにDB内のテーブルを連結
		ComboBox1.DataSource = df.Tables("テーブル名")　'(※2)

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


次は（※2）のところでエラーが発生しました。
エラー内容：NullReferenceException(オブジェクト参照がオブジェクトインスタンスに設定されていません)

どうやらdfの中身がNothingになっていてエラーが出るみたいです。
そのため、Form1のForm1_Load内にあった

Dim ds As DataSet = New DataSet()

を消して、

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

に変えて、変数dsを全部dfにしたら、dfの中身はSystem.Data.DataSetとなり、
df.Tables("テーブル名")の中身は"テーブル名"となりました。

これで実行してみましたが、今度は実行中に応答なしになって、ちゃんと動作してくれませんでした。
何かあと一歩のところまでは来ているような気はするんですが…。
もしかして、dsをdfに変える必要はなかったんですかね…？
ちなみに、変数dsはForm1_Loadでテーブルからレコードを取得する際に

ds.Clear()　と　da.Fill(ds,"テーブル名")　

といった感じで使用していました。
（変数daは　Dim da As New OleDbDataAdapter()　です。）


もう少し考えてみますので、よければお力添えをお願いします。

■No87770 (いまそかり さん) に返信

C# ですがサンプルを書いておきます。Form5 ⇒ Form1, Form6 ⇒ Form2 に読み替えてください。

デザイナで Form5 には Button を、Form6 には ComboBox をドラッグ＆ドロップして、必要なイ
ベントハンドラを生成しただけです。


Form5.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

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

        private void button1_Click(object sender, EventArgs e)
        {
            DataTable table = new DataTable();
            table.Columns.Add(new DataColumn("ID", typeof(Int32)));
            table.Columns.Add(new DataColumn("Name", typeof(string)));
            for (int i = 0; i < 5; i++)
            {
                DataRow row = table.NewRow();
                row["ID"] = i;
                row["Name"] = "Product Name_" + i.ToString();
                table.Rows.Add(row);
            }
            DataSet df = new DataSet();
            df.Tables.Add(table);

            Form6 frm = new Form6(df);
            frm.Show();
        }
    }
}


Form6.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApplication2
{
    public partial class Form6 : Form
    {
        private DataSet df;

        public Form6()
        {
            InitializeComponent();
        }

        public Form6(DataSet df)
        {
            InitializeComponent();
            this.df = df;
        }

        private void Form6_Load(object sender, EventArgs e)
        {
            comboBox1.DataSource = df.Tables[0];
            comboBox1.DisplayMember = "Name";
            comboBox1.ValueMember = "ID";
        }
    }
}

■No87769 (にゃるら さん) に返信

にゃるらさん、回答ありがとうございます。


> あと補足でNew Object()の部分は、Form1_Loadの引数になって渡す値ですね。
> 
> Form1_Loadの1つ目の引数はsender、これはForm1_Loadメソッドを備えている
> Form1のインスタンスを渡してあげる方がよいですね。
> 
> ２つ目の引数はe、Loadイベントを呼んだ補足情報となるEventArgs型の値です。
> 特に使うことがないときは、私はEventArgs.Empty（staticなメンバ）を渡してあげます。
> 何に使うの？っていうと、たとえばですけども、
> ClosingイベントだとCancelEventArgsっていう型になっていて、フォームを閉じようとした
> ときに、「やっぱり閉じるのやめるわ」ってことがCancelEventArgsのCancelプロパティに
> falseを設定することで実現できたりします。
> マウスを動かしているときのMouseMoveイベントだとMouseEventArgsg型で、座標の値(x, y)が取れたりします。
  

解説ありがとうございます！
簡単な例を挙げていただけたので、非常に理解しやすかったです。
少し設定をいじるだけで色々な動作をさせることができるんですね…。



> 動く->適切な設定 の順で試される方が良いと思います。（動いた方が楽しいし！）
 
> ちなみに僕が回答したリフレクションを使って解決するのは、今回の課題の要件でいけば「適切でない方法」「間違った方法」です。
> 他の方からの意見は「適切な方法」「正しい方法」です。
> いじわるしたわけではないですが、やろとする方法で動くようにすることを提案したまでです。
> 
> 適切な方法、適切でない方法、正しい方法、間違った方法、どれも「自分で試す」ことが大事だと思います。 
> 出来ればこれからもプログラミングを楽しいと思ってもらえたら幸いです。


アドバイスもありがとうございます。
以前プログラムが全然書けずに「自分は向いてないんだろうな」と落ち込んでいた時期にも
同じようなことを言って励ましてくれた方がいたので、大変嬉しいです。
私はまだまだ初心者ですが、これからもっと勉強して「正しい方法」と「間違った方法」の
区別をできるように頑張っていきます！

本当に色々とありがとうございました^^






■No87771 (PANG2 さん) に返信

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

> やりたいことが、
> Fomn1のボタンイベントで、Form2 に DataSet を渡した後に、Form2.Form2_Loadを走らせたい。
> であれば、既に解決しているはずです。
> 
> Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
>       
> 	Dim frm As Form2
>        	frm = New Form2(df) 
>        	frm.Show()  'Form2.Form2_Loadが走る
> End Sub
 

そこまでは上手くできた（と思う）んですが、その後に色々なエラーが出てしまった、という感じでした…。