• 締切済み

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")

  • 65_
  • お礼率68% (17/25)

みんなの回答

  • TAGOSAKU7
  • ベストアンサー率65% (276/422)
回答No.3

Form2_Load イベント内 以降を Dim frm As Form set frm = Form1 MessageBox.Show(CStr(frm.ListView1.Items.Count), "Form2") というようにはできませんか？ 多分でしか言えないけど、どうもNewが悪さをしているように見えるのですが・・・・

65_
質問者

お礼

何度もありがとうございます でも、できないんですよね… ２行目の Form1は「'Form1'は型であるため、式として使用することはできません。」 というエラーメッセージが出ます 私もNewでインスタンスを作ると 何も実行していないForm1ができるので リストビューの項目数を見ても0になってしまうと思うのですが

  • TAGOSAKU7
  • ベストアンサー率65% (276/422)
回答No.2

VB.NETを使用したことありませんが。。。 Form1はオブジェクト名で存在するのであれば、変数でForm1というのは使用すべきではないと思うのですが、、、VB.NETの仕様であればすいません。 この発言は、VB.NET以前の感覚で話しておりますので、はずしていたら無視してください。 ＞Dim Form1 As New Form1() Newの仕様がVB6以前と一緒ならば、Form1変数はフォーム1の複製物であって、フォーム1そのものではないのでは？ Form1_Load イベント内 　　ListView1.Items.Add("Item1") 　　ListView1.Items.Add("Item2") 　　ListView1.Items.Add("Item3") 　　MessageBox.Show(CStr(ListView1.Items.Count), "Form1") 　　Form2.Show() Form2_Load イベント内 　　MessageBox.Show(CStr(Form1.ListView1.Items.Count), "Form2") ではだめなのですか？

65_
質問者

お礼

回答ありがとうございます それが、だめなんです それだと「非共有メンバを参照するには、オブジェクト参照が必要です。」 というエラーメッセージが出ます ヘルプにはインスタンスを参照しろとあるんですが…

  • osamuy
  • ベストアンサー率42% (1231/2878)
回答No.1

＞ Dim Form1 As New Form1() この時点では、まだインスタンス化しただけなので、ListViewのアイテム数は、0です。 Form1.Showを実行してからなら、3になるのではないかと。 たしか、デフォルトで、同名のpublic変数が定義されるはずだから、このローカル変数定義が悪さしているのかも。 VB.NET使った事無いから、外しているかな。

参考URL：
http://support.microsoft.com/default.aspx?scid=kb;ja;JP308537
65_
質問者

お礼

解答ありがとうございます ああ、Dim Form1 As New Form1() 　の後に Form1.Showすれば見れますね でもこれだと Form1が二つ表示されてしまいますよね 分かりにくくて申し訳ないのですが、VB6のようにForm2でForm1.ListView1～ とかくだけで、Form2からForm1のコントロールの情報を取得したいのですが…

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VB.NETのMDIアプリについて

    現在VB.NET EXP 2008を用いてMDIアプリを作成しています。 下記のような3種類のフォームを作成し,アプリ開始時にMAINの中にMENUを表示させ, MENU上のボタンをクリックすると,MASTERを表示させたいと考えています。 親フォーム : MAIN 子フォーム : MENU 子フォーム : MASTER まずはMAINのLoadイベントで Dim fMENU As New MENU fMENU.MdiParent = Me fMENU.Show() と記述して実行するとMENUがMAIN内に表示されます。 次に,MENU上のボタンクリックイベントで Dim fMASTER as New MASTER Dim fMAIN as New MAIN fMASTER.MdiParent = fMAIN fMASTER.Show() として実行してもMASTERが表示されません。 そこで,MAINのLoadイベントに Dim fMASTER as New MASTER fMASTER.MdiParent = Me と追記し,MENU上のボタンクリックイベントに Dim fMASTER as New MASTER fMASTER.Show() として実行すると,MASTERは表示されますが, MAINの外側に表示されてしまいます。 どのようにすれば,MAIN内にMASTERを 表示させることが出来ますでしょか?

  • VB.Netのフォームロードイベントについて

    こんにちわ。 いまVB.Net2005Expressで勉強をしている者です。 あるフォームがロードされるときの処理を書こうとすると， 従来のVB6ではFormオブジェクトにLoadイベントがありましたが， VB.Net2005では，最初の状態ではフォームのイベントには 「New」，「Finalize」，「InitializeComponent」の3つしかありません。 もしVB.Net2005でForm_Loadイベントを書きたいときは， 自分で， 「Private Sub Form1_Load(Byval ～」と書かなくてはいけないのでしょうか？ 初歩的な質問になるかもしれませんが，教えてください。 よろしくお願いします。

  • 標準モジュールからフォームをコントロールしたい

    こんにちは。 標準モジュールからフォームのリストボックスに文字を追加したいんですが、うまくいきません。 まず、button1をクリックすると、共通モジュールのサブルーチンを呼び出します。そして引数"0"を渡すと、Form1のListBox1に"hello"を追加したいのです。 実行させると、エラーはでないのですが、追加されるはずの"hello"がListBox1に追加されません。 たぶん 　　　　frm1.ListBox1.Items.Add("hello") あるいは 　　 Dim frm1 As New Form1() あたりの宣言の仕方がまずいのだと思うんですが... どなたか、ご教授よろしくお願いします。 ■共通モジュール Module Module1 Dim frm1 As New Form1() Sub PC(ByVal PCrecieve As String) If PCrecieve = "0" Then frm1.ListBox1.Items.Add("hello") End If End Sub End Module ■フォーム Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Call PC("0") End Sub End Class

  • VB.netで標準モジュールからフォームを呼び出す

    お世話になります。 標準モジュールから以下のようにフォームを呼び出しているんですがうまく表示されません。 どこが悪いんですか？ 標準モジュール内---------------------- 　　Public Sub Main() 　　　　Dim frm1 As New Form1 　　　　frm1.Show() 　　End Sub

  • 子フォームから開いたフォームと親子関係を結びたい(VB2003)

    子フォームから開いたフォームと親子関係を結びたい(VB2003) VB.NET2003についての質問です。 formMain のクラスに以下のコードを書いて実行させると、form1がformMainの子フォームとして開きます 下記は、「form1」を「formMain」の子フォームとして開くコードです。 （formMainクラス内のコードです） 　　------------------------------ 　　Dim f As New form1 　　Me.IsMdiContainer=True 　　f.MdiParent=Me 　　f.Show 　　------------------------------ form1には、form2を開くボタンが用意されています。 質問内容は、このform2を、formMainの子フォームとして開くにはどうすればよいか、ということです。 ためしに、form1クラスに以下のコードを書いて実行させたところ、 「formMainは型であるため、式として利用することができない」というエラーメッセージが出てしまいました。 　　------------------------------ 　　Dim f As New form2 　　f.MdiParent = formMain 　　f.Show() 　　------------------------------ 以上、よろしくお願い致します。

  • 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つは出来ないというのが分かりません。 どこに問題があるのでしょうか。 かなり悩んでいますが、解決策が見出せません。 ご教授いただける方が居られましたら、宜しくお願い申し上げます。

  • VB6.0でフォームをずらして表示したいのですが

    以下のコードを実行すると、メッセージボックスに10としか表示されません。 同じ場所にフォームが追加されていきます。 複数表示されているフォームを数える方法はないでしょうか？ ご存知の方教えてください。 よろしくお願いします。 Private Sub CMD_drow_Click() Dim GraphForm As New Form2 Dim GraphNumber As Integer 'グラフカウント GraphNumber = Form2.Count MsgBox GraphNumber 'グラフ表示 GraphForm.Show '表示位置の設定 With GraphForm If GraphNumber <= 5 Then ' .StartUpPosition = 0 .Top = GraphNumber * 100 .Left = 0 Else ' .StartPosition = 0 .Top = (GraphNumber - 5) * 100 .Left = 300 End If End With End Sub

  • VB2005で、フォームを初期化したいのですが、教えてください。

    VB2005で、フォームを初期化したいのですが、教えてください。 VB2005で、フォームにデータベース内容(ORACLE)を表示するプログラムを作っています。その際、F8キーを押すと画面内容（テキストボックスやDatagridviewの編集内容）を初期ロード状態に戻すようにしたいと思い、F8キー押下時のイベントに、以下のようにプログラムしました。 dim frm as form frm = new form1 me.close frm.show() としてみましたが、me.closeで、プログラムが終了してしまうようです。 どうするのが適切かお教えください。

  • フォーム２を出して　フォーム１を閉じたい

    のですが、うまくできません。 何が間違っているのでしょうか Dim WithEvents Frm1 As Form1 Dim WithEvents Frm2 As Form2 ------------------- Frm2 = New Form2() Frm2.Show() Frm1 = New Form1() Frm1.Close() ------------------ net です。

  • Hideについて（.NET)

    Form1をHideで非表示にし、Form2を開いた後、再びForm1を表示したいのですがうまくいきません。 [form1のイベント] Dim frmForm2 as New Form2 frmForm2.Show Me.hide Sub End [form2のイベント] Dim frmForm1 as New Form1 frmForm1.Show Me.Close Sub End としてあります。 非表示されたフォームを再表示されずに、新しくフォームが開いてしまっていると考えられるんですが、どうしたらよいでしょうか？　

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する