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

前へ 次へ
このQ&Aのポイント
  • VB.Net2005では、フォームのイベントには「New」、「Finalize」、「InitializeComponent」の3つしかありません。
  • VB.Net2005でForm_Loadイベントを書きたい場合は、自分で「Private Sub Form1_Load(Byval ～」と書く必要があります。
  • 初歩的な質問ですが、VB.Net2005でForm_Loadイベントを書く方法を教えてください。
回答を見る
  • ベストアンサー

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

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

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

Newとかがあるほうは、クラスのコンストラクタなどのほうです。 Loadを追加するには、 (全般) 　Form1 　　(Form1 Events) を選択して、Loadイベントを追加してください。

tatsurou
質問者

お礼

suyasuyasuyaさん 回答ありがとうございました。 (Form1 Events)のところにLoadイベントがありました。

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

関連するQ&A

  • VB.net(.net framework 3.5 sp1)でフォーム

    VB.net(.net framework 3.5 sp1)でフォーム上に設置したコントロールのプロパティを一括で設定する方法はないでしょうか？ 下記は実行しても反映されないのですが、処理のイメージとしてはこんな形です。 Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim test As New Button test.Text = "TEST" test.Top = 0 Me.Button1 = test End Sub End Class

  • 複数フォームへのイベントの通知方法について

    Visual Basic2005にてプログラミングをしております。プログラミング初心者です。 以下、どなたかご教授いただけませんでしょうか？ あるクラスを定義し、そのクラスの1つのインスタントがイベントを出した時に、 フォーム1～フォーム3の各Formにイベントを通知する様なプログラムを作成しております。 複数フォームへのイベントの通知方法として、以下の様なやり方は一般的に正しいのでしょうか？ プログラムを実行させて見ると、動作上は何の問題もなく動いている様に見えますが、 プログラミング経験が少ない事もあり、以下のやり方が本当に正しいのかどうか、あまり自信が持てません。 どなたかご教授いただけると助かります。宜しくお願い致します。 =================================================================================== 'クラスA Public Class classA 　　Public Event StatusChange(ByVal status As Integer) 　　Public Event MassageOutput(ByVal message As String) 　　Private status As Integer 　　Private Sub EventReport1() 　　　　　　status = 5 　　　　　　'statusの変更を通知するイベントを生成させる 　　　　　　RaiseEvent StatusChange(status) 　　End Sub 　　Private Sub EventReport2() 　　　　　　'メッセージを通知するイベントを生成させる 　　　　　　RaiseEvent MassageOutput("メッセージを通知します") 　　End Sub End Class 'モジュール Module moduleA 　　Public myInstance As New classA End Module 'フォーム1 Public Class form1 　　Private WithEvents myInstance1 As classA 　　Public Sub New() 　　　　　　InitializeComponent() 　　　　　　myInstance1 = myInstance 　　End Sub 　　Private Sub StatusChange(ByVal message As String) _ 　　　　　　　　　　　　　　　Handles myInstance1.MassageOutput 　　　　　　TextBox1.Text = message 　　End Sub End Class 'フォーム2 Public Class form2 　　Private WithEvents myInstance1 As classA 　　Public Sub New() 　　　　　　InitializeComponent() 　　　　　　myInstance1 = myInstance 　　End Sub 　　Private Sub StatusChange(ByVal status As Byte) _ 　　　　　　　　　　　　　　　Handles myInstance1.MassageOutput 　　　　　　TextBox1.Text = status.ToString 　　End Sub End Class 'フォーム3 Public Class form3 　　Private WithEvents myInstance1 As classA 　　Public Sub New() 　　　　　　InitializeComponent() 　　　　　　myInstance1 = myInstance 　　End Sub 　　Private Sub StatusChange(ByVal status As Byte) _ 　　　　　　　　　　　　　　　Handles myInstance1.MassageOutput 　　　　　　TextBox1.Text = (status + 10).ToString 　　End Sub End Class ===================================================================================

  • マルチスレッド[ VB.NET 2005 ]

    VB.NET 2005 VC++で作成した通信DLLをマルチスレッドで呼び出すプログラムを作成しています。 マルチスレッドについてご質問です。 ---------------------------------------------------------------- Private Sub ThreadMethod(ByVal aiIndex As UInt32) fSockInit() ← スレッドスタートなので別スレッドで動く End Sub '************************************************** ' フォームロード '************************************************** Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load wkThread(Index) = New Thread(New ThreadStart(AddressOf ThreadMethod)) wkThread(Index).Start() End Sub '************************************************** ' 接続ボタン押下 '************************************************** Private Sub btConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btConnect.Click fConnect() ← スレッドを指定して動かしたい End Sub '************************************************** ' パラメータ設定ボタン押下 '************************************************** Private Sub btParm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btParm.Click fParmSet() ← スレッドを指定して動かしたい End Sub ---------------------------------------------------------------- 上記の例では、fSockInitはスレッド別に動作しますが、fConnect、fParmSetはメインスレッドで動作するようになっています。 frmMain_Loadで作成したスレッドを指定（※１）して関数を呼び出すことは出来ないのでしょうか？ ※１．「クリックイベント（メインスレッド）→実行するスレッドを指定→関数呼び出し→メインスレッドに戻す」の様に。。。

  • VB2010でMDI親フォームから子フォームを表示

    VB2010でソフトを作っております。 MDI親フォームから子フォームを表示させたいのですが…。 過去に少しだけVB6を使っていたことがありますが、クラスという概念に苦労しております インスタンスや初期化といったところをうまく扱えばとは思うのですが、よろしくご指導お願いいたします。 1.MDI親フォーム(Form1)のボタンを押し、子フォーム(Form2)を表示させる 2.子フォームが表示されていなかったら表示させる 3.子フォームが表示されていたら何もしない これだけの事ですがずいぶん悩んでおります。 全コードがこれです。 Public Class Form1 Private f2 As New Form2 Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.IsMdiContainer = True End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fChild As Form() = Me.MdiChildren For Each f As Form In fChild If f.Text = "Form2" Then Exit Sub End If Next f2 = New Form2 f2.MdiParent = Me f2.Show() f2.Activate() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If f2 Is Nothing OrElse f2.IsDisposed Then f2 = New Form2 f2.MdiParent = Me End If f2.Show() f2.Activate() End Sub End Class ボタン１でもボタン２でも、期待する動作はするのですが、 ボタン１ではアクティブになっているフォームの名前を力技で取得している気がして… ボタン２では子フォーム(Form2)をすでに表示している状態でもさらにShowをしているのが気に入らなくて… もっとスマートな方法がありましたら、ご指導お願いします。

  • Form1.vbをイベントなしで動作させるには？

    VB2005初心者で困っています。 Menu.vbとForm1.vb, Form2vb, Form3.vb・・・を作り、Menu.vbのButton1_ClickでForm1.Show()としてForm1.vbに移行し、次にForm1のButton1_clickイベントでExcelからDataを読み込んでGraphを書かせています。（この時は問題なく動作しています） これを、Form1に移行したらすぐにGraphを表示しようとして、Form1.vbの Public Class Form1 Private Sub Button_Clic(Byval sender As System・・・・・)Handles Button1.click 　　Dim g As Graphics 　　・・・・ を変更して、 　Private Sub Form1_Load(Byval sender As System・・・・)Handles MyBase.load Me.Show() Dim g As Graphics 　　・・・・ と、しましたが、一瞬Graphは表示しますが、すぐに消えます。 また、罫線はまったく表示しません。 Button_ClickイベントなしでForm1を動かすにはどうすればよいのでしょうか？

  • VB2008で親フォームから子フォームを開いたときの処理で

    VB2008で親フォームから子フォームを開いたときの処理で 質問させて頂きます。 親フォームから子フォームを開いて、 子フォーム画面ロード時に、TreeViewにノードを追加する処理を行おうとするのですが、 ノードの追加ができません。 親フォームから子フォームの呼び出しの部分 Using frmAct As New form2 frmAct.ShowDialog() end using 子フォームLoad処理 Private Sub F_Actresult_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call MP_hogeload() ←別のモジュールからサブルーチンを呼び出してノード処理を追加させる。 End Sub 外部サブルーチン Public Sub MP_hogeload() With form2 .trehoge.Nodes.Add("hoge") end with end sub 同じ子フォーム内に記述している場合は問題なく追加できています。 この開き方の場合、別のモジュールでノードを追加させる方法を探しています。 よろしくお願いいたします。

  • フォームのイベントを標準モジュールから呼び出す

    フォームのイベントを標準モジュールから呼び出す事は出来ないのでしょうか？ ちなみにアクセスです。 例えば、 Private Sub Form_Load() MsgBox "test" End Sub というのはフォームを開いたときにしか発生しないですよね。 でもフォームを開いている状態でForm_Loadと全く同じ事をしてほしい時は どうすればいいですか？ 標準モジュールで Sub a() Call Form_フォーム1.Form_Load End Sub としてみましたが、メソッドまたはデータ メンバが見つかりません。 (Error 461)になりました。 MsgBox "test" だけなら、 Sub a() MsgBox "test" End Sub にすりゃいいじゃん！って思われがちですが、 実際はForm_Loadイベントにはたくさんのコードが書かれています。 標準モジュールからイベントの呼び出しを教えてください。

  • フォームを画面のど真ん中に表示させたいのですが

    フォームを画面のど真ん中に表示させたいのですが、 http://dobon.net/vb/dotnet/form/startposition.html を見たのですがコードの書き方がよくわかりません。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim f As New Form1() 'フォームを画面の真ん中に表示する f.StartPosition = FormStartPosition.CenterScreenf.Show() End Sub End Class こうすると、「FormStartPosition.CenterScreenf」の部分に波線がひかれます。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.StartPosition = FormStartPosition.Manual Me.Location = New Point(0, 0) End Sub End Class これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか？

  • フォームを開く時のイベント処理

    Visual Basic 6.0 あるフォーム読込時イベント[Private Sub Form_Load()]で コマンドボタンにフォーカスを移動しようとしたら、エラーしてしましました。 Private Sub Form_Load() CommandButton.SetFocus　’プロシージャの呼び出し、または引数が不正です End Sub Form_Open や BeforeUpdate ？ 開いた後にフォーカスをセット出来る イベント処理は無いでしょうか？ ご教授願います。

  • VB.NET：モーダルで表示したフォームを最小化

    Form2をForm1の所有として、モーダルで表示しました。 '------------------------ Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChildMdl.Click 　'Form2を開く 　Dim frmN As New Form2 　frmN.ShowDialog(Me) 'MeはForm1 End Sub '------------------------ Form2が最小化された時に、親フォームであるForm1も最小化させたいと思い、 Form2のResizeメソッドに以下のようなコードを書きました。 '------------------------ Private Sub Form2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize 　Select Case Me.WindowState 　　Case FormWindowState.Minimized 　　　'親フォームも最小化((1)) 　　　Me.Owner.WindowState = FormWindowState.Minimized 　　Case FormWindowState.Maximized 　　　'親フォームも最大化((2)) 　　　Me.Owner.WindowState = FormWindowState.Maximized 　　Case FormWindowState.Normal 　　　'親フォームも通常サイズ((3)) 　　　Me.Owner.WindowState = FormWindowState.Normal 　End Select End Sub '------------------------ しかし、(2)、(3)は問題なく実行できるのですが、 (1)を実行すると、自フォーム(Form2)が閉じてしまうのです。 そういう仕様なのでしょうか？ ご存知の方、教えてください。よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する