VB.NET 【GUI編】



目次


フォーム

Formクラスを継承し、Form画面を作成する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

End Class

解説

Inherits Form

Formクラスを継承します。


ラベル

フォームにラベルを追加する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

   Private Label1 As Label

   Public Sub New()

      Label1 = New Label()
      With Label1
         .Text = "ラベル"
         .Left = 10
         .Top = 10
         .Width = 50
         .Height = 20
      End With
      Me.Controls.Add(Label1)

   End Sub

End Class

解説

Labelコントロール = New Label()

ラベルのインスタンスを生成します。

Form.Controls.Add(Labelコントロール)

ラベルをフォームに追加します。


テキストボックス

フォームにテキストボックスを追加する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

   Private Text1 As TextBox

   Public Sub New()

      Text1 = New TextBox()
      With Text1
         .Left = 10
         .Top = 10
         .Width = 100
         .Height = 20
      End With
      Me.Controls.Add(Text1)

   End Sub

End Class

解説

Textコントロール = New TextBox()

テキストボックスのインスタンスを生成します。

Form.Controls.Add(Textコントロール)

テキストボックスをフォームに追加します。


ボタン

フォームにボタンを追加する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

   Private Button1 As Button

   Public Sub New()
      Button1 = New Button()
      With Button1
         .Text = "ボタン"
         .SetBounds(10,10,50,20)
      End With
      AddHandler Button1.Click, AddressOf Button1_Click
      Me.Controls.Add(Button1)
   End Sub

   Private Sub Button1_Click(ByVal sender As Object, _
                              ByVal e As EventArgs)
       MessageBox.Show("メッセージ")
   End Sub

End Class

解説

Buttonコントロール = New Button()

ボタンのインスタンスを生成します。

SetBounds(X座標,Y座標,幅,高さ)

指定した位置とサイズに設定します。

AddHandler イベント名, AddresOf プロシージャ名

イベントとプロシージャを結び付けます。

Form.Controls.Add(Buttonコントロール)

ボタンをフォームに追加します。


チェックボックス

フォームにチェックボックスを追加する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

   Private Check1 As CheckBox, Check2 As CheckBox

   Public Sub New()
      Check1 = New CheckBox() With {.Text = "チェック１"}
      Check1.SetBounds(10,10,100,20)
      AddHandler Check1.Click, AddressOf Check_Click
      Me.Controls.Add(Check1)

      Check2 = New CheckBox() With {.Text = "チェック２"}
　　　Check2.SetBounds(110,10,100,20)
      AddHandler Check2.Click, AddressOf Check_Click
      Me.Controls.Add(Check2)
   End Sub

   Private Sub Check_Click(ByVal sender As Object, _
                            ByVal e As EventArgs)
      Me.Text = "1:" & Check1.Checked & _
                  "2:" & Check2.Checked
   End Sub

End Class

解説

CheckBoxコントロール = New CheckBox()

チェックボックスのインスタンスを生成します。

Form.Controls.Add(CheckBoxコントロール)

チェックボックスをフォームに追加します。


ラジオボタン

フォームにラジオボタンを追加する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

   Private Radio1 As RadioButton, Radio2 As RadioButton

   Public Sub New()
      Radio1 = New RadioButton() With {.Text = "ラジオ１"}
      Radio1.SetBounds(10,10,100,20)
      AddHandler Radio1.Click, AddressOf Radio_Click
      Me.Controls.Add(Radio1)

      Radio2 = New RadioButton() With {.Text = "ラジオ２"} 
      Radio2.SetBounds(110,10,100,20)
      AddHandler Radio2.Click, AddressOf Radio_Click
      Me.Controls.Add(Radio2)
   End Sub

   Private Sub Radio_Click(ByVal sender As Object, _
                            ByVal e As EventArgs)
      If Radio1.Checked = True Then _
         Me.Text = "ラジオ1" Else Me.Text = "ラジオ2" 
   End Sub

End Class

解説

RadioButtonコントロール = New RadioButton()

ラジオボタンのインスタンスを生成します。

Form.Controls.Add(RadioButtonコントロール)

ラジオボタンをフォームに追加します。


コンボボックス

フォームにコンボボックスを追加する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

   Private Combo1 As ComboBox

   Public Sub New()
      Combo1 = New ComboBox()
      Combo1.SetBounds(10,10,100,20)
      Combo1.Items.Add("項目１")
      Combo1.Items.Add("項目２")
      Combo1.Items.Add("項目３")
      Combo1.Items.Add("項目４")
      Combo1.Items.Add("項目５")
      AddHandler Combo1.SelectedIndexChanged, _
                                    AddressOf Combo_Changed
      Me.Controls.Add(Combo1)
   End Sub

   Private Sub Combo_Changed(ByVal sender As Object, _
                                ByVal e As EventArgs)
      Me.Text = Combo1.SelectedItem
   End Sub

End Class

解説

ComboBoxコントロール = New ComboBox()

コンボボックスのインスタンスを生成します。

ComboBox.Items.Add(項目名)

コンボボックスに選択項目を追加します。

Form.Controls.Add(ComboBoxコントロール)

コンボボックスをフォームに追加します。


リストボックス

フォームにリストボックスを追加する処理について解説します。

プログラムソース

Imports System
Imports System.Windows.Forms

Public Class Form1 : Inherits Form

   Private List1 As ListBox

   Public Sub New()
      List1 = New ListBox()
      List1.SetBounds(10,10,100,60)
      List1.Items.Add("項目１")
      List1.Items.Add("項目２")
      List1.Items.Add("項目３")
      List1.Items.Add("項目４")
      List1.Items.Add("項目５")
      AddHandler List1.Click, AddressOf List_Click
      Me.Controls.Add(List1)
   End Sub

   Private Sub List_Click(ByVal sender As Object, _
                          ByVal e As EventArgs)
      Me.Text = List1.SelectedItem
   End Sub

End Class

解説

ListBoxコントロール = New ListBox()

リストボックスのインスタンスを生成します。

ListBox.Items.Add(項目名)

リストボックスに選択項目を追加します。

Form.Controls.Add(ListBoxコントロール)

リストボックスをフォームに追加します。