非共有メンバー参照、オブジェクト参照 ＶＢ2010
- Ｖｉｓｕａｌ Ｂａｓｉｃ2010を使ってプログラムを作成しています。
- Ｆｏｒｍ1、Ｆｏｒｍ2、Ｆｏｒｍ3の３つのWindowsフォームがあります。
- Ｆｏｒｍ3で「非共有メンバーを参照するには、オブジェクト参照が必要です」と表示されますが、対処方法がわかりません。
- ベストアンサー
非共有メンバー参照、オブジェクト参照 ＶＢ2010
Ｖｉｓｕａｌ Ｂａｓｉｃ2010を使ってプログラムを作成しています。 Windowsフォームとして、Ｆｏｒｍ1、Ｆｏｒｍ2、Ｆｏｒｍ3があります。 Ｆｏｒｍ1には、基本登録事項（datagridview使用）があります。 Ｆｏｒｍ2には、基本登録事項（datagridview使用）を利用していろいろＤＡＴＡを入力しています。 Ｆｏｒｍ3には、そのＤＡＴＡを分析した表（listview使用）を表示させます。 Ｆｏｒｍ2は、「Private Sub Form2_Load(・・・・・・・・・・)」というＰＣが自動的に書き込むのではなく、自分で書き込んだ「Private row as ・・・・」という書き方です。 Ｆｏｒｍ1とＦｏｒｍ2は、データの引渡しのコードを設定していますが、Ｆｏｒｍ3にはそれが無い為か「非共有メンバーを参照するには、オブジェクト参照が必要です」と表示されます。 ネット上でいろいろ同じトラブルの対処方法を読みましたが、上手く対応できません。 参考になる対応方法をお教えいただけましたら幸甚です。
- totti1800
- お礼率68% (22/32)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
form1,2,3で共通に参照できるクラスを一つ用意して、それを各々のフォームで参照するように してはどうでしょうか？具体的には、以下の手順で可能と思います。 １．form１で、共通参照用クラス（A class）のインスタンスを生成する。 ２．form１でfom２のインスタンス生成後、form2へＡクラスハンドルを設定する。 ３．form２を表示する。 ４．fomr２でform３のインスタンス精製後、form３へＡクラスハンドルを設定する。 ５．form３を表示する。 上記手順でＡクラスハンドルを持ちまわれば、全てのformの内容を参照することが可能と思い ます。 なお、Ａクラスには、各formに表示する内容は全て保持できる（プロパティとして設定、取り出し が可能）ように作成しておくことが、前提です。 また、form2、form３にて、クラスＡハンドルを取り込むための書き込みプロパティを用意する。 なお、その他方法により上記問題を解決する方法もあるとは思いますが、あくまでも１例として 上記方法を記述しています。
関連するQ&A
- VB.NETでフォーム間でのコントロールの参照
VB.NETでフォーム間でのコントロールの参照が うまくいかず困っています Windows フォーム Form1とForm2があります Form1にはリストビュー（name:ListView1）を配置しています Form1_LoadイベントでListView1にアイテムを追加します Form2を表示し、Form1のListView1のアイテム数を、 取得しようとすると 0 になってしまします どうすればForm2から取得できるのでしょうか？ 次のように書いています Form1_Load イベント内 ListView1.Items.Add("Item1") ListView1.Items.Add("Item2") ListView1.Items.Add("Item3") MessageBox.Show(CStr(ListView1.Items.Count), "Form1") Dim Form2 As New Form2() Form2.Show() Form2_Load イベント内 Dim Form1 As New Form1() MessageBox.Show(CStr(Form1.ListView1.Items.Count), "Form2")
- 締切済み
- Visual Basic
- 別フォームからdatagridviewの削除
vb.netで、form1のdatagridviewを、form2のボタンをクリックした際に、datagridviewのrowを削除したいのですが、newでform1を参照して、datagridviewのrowを削除しようとしたのですが、form1のdatagridviewの情報をform2で取得できなくて、実行時エラーになってしまい困っています。 form1のdatagridviewのデータは、csvファイルを接続して、loadイベントで表示させるようにしています。 わかるかたいらっしゃいましたら、教えていただけると助かります。 宜しくお願いいたします。
- 締切済み
- Visual Basic
- VB2010 ListView 使い方
ＶＢ2010でＬｉｓｔＶｉｅｗを使っています。かなり順調にプログラムが出来ているのですが、トラブルに遭遇しました。 Ｆｏｒｍ1でＤＡＴＡを入力して、Ｆｏｒｍ2とＦｏｒｍ3でそのＤＡＴＡをＬｉｓｔＶｉｅｗを使って表示しています。 そして、Ｆｏｒｍ2のＬｉｓｔＶｉｅｗをＦｏｒｍ4に簡素化した雛形にして、ＬｉｓｔＶｉｅｗを使って表示させています。 同様に、Ｆｏｒｍ3のＬｉｓｔＶｉｅｗをＦｏｒｍ5に簡素化した雛形にして、ＬｉｓｔＶｉｅｗを使って表示させています。 Ｆｏｒｍ2からＦｏｒｍ4は問題なく表示されますが、Ｆｏｒｍ3からＦｏｒｍ5はエラーとなります。 エラーは次のところで生じます。 ListView1.Items(2).SubItems.Add(Form3.ListView1.Items(1).SubItems(2)) エラーメッセージは次のようです。 「'1' の InvalidArgument=Value は 'index' に対して有効ではありません。」 また、次のようにコーディングしてみると、 ListView1.Items(2).SubItems.Add(Form3.Label2.Text) 「Ｌａｂｌ2」と表示されるだけです。Ｌａｂｅｌ2の情報は表示されません。 単純にＤＡＴＡを移すだけなのに、1つは出来て、もう1つは出来ないというのが分かりません。 どこに問題があるのでしょうか。 かなり悩んでいますが、解決策が見出せません。 ご教授いただける方が居られましたら、宜しくお願い申し上げます。
- ベストアンサー
- Visual Basic
- データベースを更新したい（ＶＢ２００８）
ＶＢ２００８でつくったアプリケーションでAccessのデータを更新したいです。DataGridView1でデータを表示させ更新ボタン押下時にデータ(Accessのテーブル)を更新したいです。 DataGridView1でデータを表示することはできましたが、「更新」押下に更新されません。 Accessのテーブル名は「01データです」 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me._01データTableAdapter.Fill(Me.年賀状DataSet._01データ) End Sub Private Sub 更新_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 更新.Click With DataGridView1 .Update() End With MsgBox("更新しました") End Sub
- 締切済み
- Visual Basic
- VB6で2つのＦｏｒｍを使ってプログラムについて
環境：WindowsＸｐ ＶＢ6（ＳＰ？） 操作：2つのフォーム（1と2）1からエクセルのデータを呼び込み⇒表示⇒さらにデーター追加⇒ コマンドボタンを押して2を表示⇒一部1のデータをラベルに表示してさらにデータ追加⇒ コマンド」ボタンを押して1と2のデータをエクセルの帳票に登録・保存 以上のことを繰り返す。 この間2フォームの登録・保存で２のフォームはアンロードする。 質問：1順目はうまくいくのですが、2順目になると、パブリック変数を使用して、テキストやラベルに表 示された、ものはうまくデーターが反映されるが、それ以外は、フォーム上では表示されていて もdebug.printすると、データーが空欄になっているため、登録・保存できない。 例：'****Form1***** Ｐｕｂｌｉｃ ex As String Form2.Show End Sub '******Form2******** Private Sub Form_Load() Label1 = Form1.ex End Sub このとき、2順目のＦｏｒm1.exは””でもＦｏｒｍ2のＬａｂｅｌ1にはデーターが表示されている。 なにがいけないのかが、いろいろネットで調べてもよくわからないので、どなたか教えてくだ さい。（ｉｎｉｔｉｌｉｚｅとかをせっていすべきなのか？） ただ、まだＶＢ6をはじめて半年ほどですので、よろしくおねがいいたします。
- ベストアンサー
- Visual Basic
- VB6のform Load
Private Sub Form_Load() Form1.ScaleMode = 0 Form1.Scale (-10, 10)-(10, -10) Form1.Line (-10, 0)-(10, 0) Form1.Line (0, -10)-(0, 10) End Sub とやって座標画面を作ろうとしましたが Lineが表示されません。 仕方が無いので Private Sub Form_Load() Form1.ScaleMode = 0 Form1.Scale (-10, 10)-(10, -10) End Sub Private Sub Form_Activate() Form1.Line (-10, 0)-(10, 0) Form1.Line (0, -10)-(0, 10) End Sub とやりました。 そういうものだとあきらめるしかないのでしょうか？
- ベストアンサー
- Visual Basic
- [JS] private関数からオブジェクト参照
JavaScriptにて外部から使用する関数をpublicに、内部的に使用するだけの関数をprivateにしたく、 <http://d.hatena.ne.jp/brazil/20051028/1130468761>や<http://www.findxfine.com/programming/javascript/59.html>を参考に以下のようにしてみました。 func1はtestクラス内からしか呼び出せず、privateになっており、 func2はtestクラス外からも呼び出せて、publicになっているようです。 しかし、func2からfunc1を呼び出した際に、func2の呼び出しもとのオブジェクトを参照しようとすると undefinedになってしまいます。 var a = new test(); //a.func1(); // これはprivateなのでエラー a.func2(); // こちらはpublicなのでOK function test(){ var self = this; // private variable var data1 = 1; // public variable this.data2 = 2; // private function function func1(){ console.log(data1); // 1を表示 console.log(this.data2); // これがundefinedとなってしまう } // public function this.func2 = function(){ console.log(data1); // 1を表示 console.log(this.data2); // 2を表示 func1(); }; } どのようにすれば、オブジェクト変数を参照でき、 クラス内でのみ使用可能なprivate関数を定義できるのでしょうか。
- ベストアンサー
- JavaScript
- vb2010で２つのフォームを同時制御
vb2010でプロジェクトを作成しています。 Form1がメインで、Form2を観客用に用意しています。 Form1のButton1をクリックすると、Form2のPictureBox1に画像を表示させたく、 下のようなプログラムを書いたのですが、Form2に画像が表示されないばかりか、 「オブジェクト参照がオブジェクトインスタンスに設定されていません。」というエラーまではかれてしまいます。このエラーの意味もわからないほど、素人なのでわかる方どうかよろしくお願いします。 ------------------------------------------------------------------------------ Private Sub Form1_Load Dim g As New Form2 g.Show() ------------------------------------------------------------------------------ Private Sub Button1_Click Form2.PictureBox1.Image = Image.FromFile("C/xxxxxxx.png") Form2.Refresh() ------------------------------------------------------------------------------
- ベストアンサー
- Visual Basic
- VB.NETで値や参照について ByRefなど
VB.NETで値や参照について、まだ初学ですがよろしくお願いします。 VBは2008です。 以下のようなs文字列を参照引数にしたSetDataメソッドがあります。 ByRef s As Stringという引数は、SetData内でsを書き換えると、 呼び出したSetDataメソッド外でも中身が変わるので 私のByRefの認識ではポインタと解釈しています。間違っているでしょうか？ SetData(1,1, buf)とすれば、DataGridViewの中は、「初期値」という文字が表示されます。 別のメソッド（KaKikae）でbufを"あ"という文字に変えた場合、SetDataメソッドを使わなくても 書き換わっていると思っていたのですが、実際実行してみると書き換わりません。 値や参照について理解が足りないからだと思いますがわかりません。 どのようにすれば、それが実現できるのでしょうか？ Public Class HogeClass Private buf As String = "初期値" Private Sub SetData(ByVal x As Integer, ByVal y As Integer, ByRef s As String) As Boolean Dim dg As DataGridView dg = DataGridView1 dg.Item(x, y).value = s End Sub Private Sub KaKikae() buf = "あ" End Sub End Class
- 締切済み
- Visual Basic
- VB2005 DataGridViewにチェックボックスを追加する方法
タイトル通りなのですが VB2005でDataGridViewにチェックボックスを追加したいです。 ############################################################### Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim chColumn As New DataGridViewCheckboxColmun DataGridView1.ColumnCount = 5 DataGridView1.Columns(0).HeaderText = "1" DataGridView1.Columns(1).HeaderText = "2" DataGridView1.Columns(2).HeaderText = "3" DataGridView1.Columns.Insert(4, chColumn) End Sub End Class ############################################################## Dim chColumn As New DataGridViewCheckboxColmun ↑で'型'DataGridViewCheckboxColmunが定義されていません となってしまいます。 どうすればよいでしょうか。。。。 プログラム初めて1週間の初心者なのでお手柔らかに よろしくお願いします。
- 締切済み
- Visual Basic
お礼
早々に回答をいただき感謝いたします。 明日にでも、共通参照用クラスを活用してみたいと思います。