Top Index
| 01 | Public Class Form1 | |
| 02 | Inherits System.Windows.Forms.Form | |
| 03 | ||
| 04 | ┼ | #Region " Windows フォーム デザイナで生成されたコード " |
| 05 | ||
| 06 | Public Sub New() | |
| 07 | MyBase.New() | |
| 08 | ||
| 09 | ' この呼び出しは Windows フォーム デザイナで必要です。 | |
| 10 | InitializeComponent() | |
| 11 | ||
| 12 | ' InitializeComponent() 呼び出しの後に初期化を追加します。 | |
| 13 | ||
| 14 | End Sub | |
| 15 | ||
| 16 | ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。 | |
| 17 | Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) | |
| 18 | If disposing Then | |
| 19 | If Not (components Is Nothing) Then | |
| 20 | components.Dispose() | |
| 21 | End If | |
| 22 | End If | |
| 23 | MyBase.Dispose(disposing) | |
| 24 | End Sub | |
| 25 | ||
| 26 | ' Windows フォーム デザイナで必要です。 | |
| 27 | Private components As System.ComponentModel.IContainer | |
| 28 | ||
| 29 | ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。 | |
| 30 | 'Windows フォーム デザイナを使って変更してください。 | |
| 31 | ' コード エディタを使って変更しないでください。 | |
| 32 | <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() | |
| 33 | ' | |
| 34 | 'Form1 | |
| 35 | ' | |
| 36 | Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12) | |
| 37 | Me.ClientSize = New System.Drawing.Size(292, 273) | |
| 38 | Me.Name = "Form1" | |
| 39 | Me.Text = "Form1" | |
| 40 | ||
| 41 | End Sub | |
| 42 | ||
| 43 | └ | #End Region |
| 44 | ||
| 45 | 'あらかじめイベントが発生するように宣言しておく | |
| 46 | Private WithEvents btn As Button | |
| 47 | ||
| 48 | Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load | |
| 49 | Me.SuspendLayout() | |
| 50 | ||
| 51 | '動的にコントロールを配置する | |
| 52 | For i As Integer = 0 To 3 | |
| 53 | btn = New Button | |
| 54 | Me.Controls.Add(btn) | |
| 55 | AddHandler btn.Click, AddressOf btn_Click '動的にイベントを関連付ける | |
| 56 | btn.Left = 10 | |
| 57 | btn.Top = btn.Height * i + 10 | |
| 58 | Next | |
| 59 | ||
| 60 | Me.ResumeLayout() | |
| 61 | End Sub | |
| 62 | ||
| 63 | Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) | |
| 64 | Dim b As Button = sender | |
| 65 | MessageBox.Show(String.Format("Name {0}, Top {1}", b.Name, b.Top)) | |
| 66 | End Sub | |
| 67 | End Class |