VB.NET-TIPS などプログラミングについて

「コンボボックスの基本的な使い方」の中で コンボボックスの項目のコレクションとしての Itemsプロパティに文字列を設定していますが、 この文字列の代わりにクラスのデータを設定する方法を示します。

クラス名を ComboItemとし表示文字列とコードを内部に持ったクラスを宣言します。
以下にソースを示します。ここで重要なのは、ToString()メソッドを宣言することで、 コンボボックスの選択時に文字列として表示されるのが、このメソッドの戻り値が使用されるためです。

    ''' 

    ''' コンボボックスのItemsに設定される、表示文字列とコードを持ったクラス
    ''' 
    Public Class ComboItem
        'コードデータ退避
        Private mintCode As Integer
        '表示文字列データ退避
        Private mstrText As String

        ''' 

        ''' 文字列プロパティ
        ''' 
        Public ReadOnly Property Text As String
            Get
                Return Me.mstrText
            End Get
        End Property

        ''' 

        ''' コードプロパティ
        ''' 
        Public ReadOnly Property Code As Integer
            Get
                Return Me.mintCode
            End Get
        End Property

        ''' 

        ''' クラスデータの表示文字列を返す
        ''' 
        ''' 表示文字列
        ''' ComboBoxの表示部分には、ToString()メソッドの内容が表示される
        Public Overrides Function ToString() As String
            Return mstrText
        End Function

        ''' 

        ''' コンストラクタ
        ''' 
        '''コード
        '''表示文字列
        Public Sub New(ByVal intCode As Integer, ByVal strText As String)
            mintCode = intCode
            mstrText = strText
        End Sub

    End Class

さてこのクラスを使用したコンボボックスへの設定ですが、以下のソースを見て下さい。
その後、フォームロードイベントでコンボボックスの Itemsプロパティ（ObjectCollection） に、4個クラスデータを生成し追加で初期化を行います。
ボタン１クリックイベントでは、 選択されているIndexの取得を行い、値が -1 で無ければ、 コンボボックスの選択値を取得し、クラスデータとしてキャストしたものから、コード及び文字列を取得し表示します。
ボタン２クリックイベントでは、コンボボックスの選択を解除します。

コンボボックスのItemsプロパティにクラスデータを設定する方法

Public Class frmComboBoxItemsClass

    ' =====
    ' 実際はここに上のクラス宣言がある
    ' =====
    
    ''' 

    ''' フォームロードイベント
    ''' 
    Private Sub frmComboBox_Load(sender As Object, e As EventArgs) Handles Me.Load
        'コンボボックス初期化
        With Me.ComboBox1
            .DropDownStyle = ComboBoxStyle.DropDownList
            'クラスを使用してコンボボックスへの設定
            Dim cboItem As ComboItem
            cboItem = New ComboItem(10, "あいうえお")
            .Items.Add(cboItem)
            cboItem = New ComboItem(20, "かきくけこ")
            .Items.Add(cboItem)
            cboItem = New ComboItem(30, "さしすせそ")
            .Items.Add(cboItem)
            cboItem = New ComboItem(40, "たちつてと")
            .Items.Add(cboItem)
        End With
    End Sub

    ''' 

    ''' ボタンクリックイベント・選択状態の表示
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '選択されているIndexの取得
        Dim intIdx As Integer = Me.ComboBox1.SelectedIndex
        If intIdx <> -1 Then
            '選択されている項目の取得(クラスデータへのキャスト)
            Dim cboItem As ComboItem = CType(Me.ComboBox1.SelectedItem, ComboItem)
            '結果表示
            Dim strDsp As String = "コード : " & cboItem.Code & vbCrLf & "文字列 : " & cboItem.Text
            MsgBox(strDsp, MsgBoxStyle.OkOnly, Me.Text)
        Else
            MsgBox("未選択!!", MsgBoxStyle.OkOnly, Me.Text)
        End If
    End Sub

    ''' 

    ''' ボタンクリックイベント・選択状態の解除
    ''' 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '選択されている状態を解除
        Me.ComboBox1.SelectedIndex = -1
    End Sub
End Class

結果これを実行しますと、以下の様になります。

ボタン１のクリック時は以下の様になります。

ボタン２のクリック時はコンボボックスの選択が解除され何も表示されないはずです。

尚、フォームロードイベントでのコンボボックスへの初期化ですが、 クラスデータの配列を宣言し、AddRangeを使って以下の様に書き換えることもできます。

    ''' 

    ''' フォームロードイベント
    ''' 
    Private Sub frmComboBox_Load(sender As Object, e As EventArgs) Handles Me.Load
        'コンボボックス初期化
        With Me.ComboBox1
            .DropDownStyle = ComboBoxStyle.DropDownList
            Dim cboItems() As ComboItem = {
                New ComboItem(10, "あいうえお"), New ComboItem(20, "かきくけこ"),
                New ComboItem(30, "さしすせそ"), New ComboItem(40, "たちつてと")
            }
            .Items.AddRange(cboItems)
        End With
    End Sub

関連する記事

おすすめ本

• 基礎からきちんと知りたい人のVisual Basicプログラミング入門 (日経BPパソコンベストムック)
• Visual Basic 2017パーフェクトマスター (Perfect Master)
• VB.NET基礎学習Bible―270例題で学ぶプログラミングの散歩道

コンボボックスの基本的な使い方として、コンボボックスの項目に文字列を設定し、 選択されている状態を取得する方法などを説明します。

フォーム上にコンボボックスを1個と、ボタンを2個貼り付けます。 その後、フォームロードイベントでコンボボックスの Itemsプロパティ（ObjectCollection） に各種文字列の追加で初期化を行います。
ボタン１クリックイベントでは、コンボボックスの選択値を取得し表示し、 ボタン２クリックイベントでは、コンボボックスの選択を解除します。

コンボボックスの基本的な使い方

Public Class frmComboBox

    ''' 

    ''' フォームロードイベント
    ''' 
    Private Sub frmComboBox_Load(sender As Object, e As EventArgs) Handles Me.Load
        'コンボボックス初期化
        With Me.ComboBox1
            .DropDownStyle = ComboBoxStyle.DropDownList
            .Items.Add("あいうえお") 'ItemsはObjectのコレクション
            .Items.Add("かきくけこ")
            .Items.Add("さしすせそ")
            .Items.Add("たちつてと")
            .Items.Add("なにぬねの")
            .Items.Add("はひふへほ")
            .Items.Add("まみむめも")
            .Items.Add("やゆよ")
        End With
    End Sub

    ''' 

    ''' ボタンクリックイベント・選択状態の表示
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '選択されているIndexの取得
        Dim intIdx As Integer = Me.ComboBox1.SelectedIndex
        '選択されている文字列の取得
        Dim strSel As String = CType(Me.ComboBox1.SelectedItem, String)

        '結果表示
        Dim strDsp As String = "Index : " & intIdx.ToString & vbCrLf & "文字列 : " & strSel
        MsgBox(strDsp, MsgBoxStyle.OkOnly, Me.Text)
    End Sub

    ''' 

    ''' ボタンクリックイベント・選択状態の解除
    ''' 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '選択されている状態を解除
        Me.ComboBox1.SelectedIndex = -1
    End Sub
End Class

結果これを実行しますと、以下の様になります。

ボタン１のクリック時は以下の様になります。

ボタン２のクリック時はコンボボックスの選択が解除され何も表示されないはずです。

尚、選択されている項目Index(SelectedIndex)ですが、この値が -1 であることが 未選択状態を表しますので、 -1 の場合には何も処理をしない様にした方が良いと思います。

関連する記事

おすすめ本

• 基礎からきちんと知りたい人のVisual Basicプログラミング入門 (日経BPパソコンベストムック)
• Visual Basic 2017パーフェクトマスター (Perfect Master)
• VB.NET基礎学習Bible―270例題で学ぶプログラミングの散歩道

以下のページではフォームクラスにフラグを宣言し、フォームActivatedイベントの処理で最初の呼び出しかどうかを判定していました。

• 最初のフォームActivatedイベントでの処理（1回のみしか処理しない様にする）

このフラグ処理ですが、全てのフォームに宣言するのも手間が掛かりますので、いっそ継承クラスのフォームにしてはと思い テスト的なフォームのクラスを作成してみました。
先ずはフォーム名をfrmOneActiveBaseとして、 ソース内容は上記の「最初のフォームActivatedイベントでの処理」の内容をそのままコピーしてきます。 但し、テキストボックスの処理は削除してあります。

イベントを1個作成し名前をOneActivatedとして宣言します。 このイベントを、初回のフォームActivatedイベントで発生させる様にします。 ソースは以下の様になります。

ベースのフォーム処理

Public Class frmOneActiveBase

    'イベント宣言
    Public Event OneActivated(ByVal sender As Object, ByVal e As EventArgs)

    'アクティブフラグ
    Private mblnActivated As Boolean = False

    ''' 

    ''' フォームアクティブイベント
    ''' 
    Private Sub frmOneActiveBase_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        'アクティブフラグOFF??
        If Me.mblnActivated = False Then
            'フラグON
            Me.mblnActivated = True
            'イベント発生
            RaiseEvent OneActivated(Me, New EventArgs)
        End If
    End Sub

    ''' 

    ''' フォームロードイベント
    ''' 
    Private Sub frmOneActiveBase_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.mblnActivated = False
    End Sub

End Class

ここで一旦ビルド作業を行います。 その後、このfrmOneActiveBaseフォームを継承するフォームを作成してみます。

メインメニューの「プロジェクト」⇒「新しい項目の追加」を選択し、以下の表示になったら 左の「Windows Fomrs」を選択後「継承されたフォーム」を選択し、フォーム名をfrmOneActiveとします。

その後「継承ピッカー」の選択になりますので、先ほどの「frmOneActiveBase」を選択しますと以下の様な表示なります。

frmOneActiveのフォームが以下の様に表示されます。

frmOneActiveのフォームが表示されたら、1個のテキストボックスを貼付け、 複数行許可を画面右のプロパティウインドウから行います。

ここでfrmOneActiveフォームのソースを表示させ、 さらに、「frmOneActive(アクティブ)」から「OneActivated」イベント探して、指定します。

そこで、以下の様にソースを記述します。

Public Class frmOneActive

    Private Sub frmOneActive_OneActivated(sender As Object, e As EventArgs) Handles Me.OneActivated
        'テキストボックに時刻表示
        Me.TextBox1.Text &= "Activated..." & Now.ToString("hh:mm:ss") & vbCrLf
    End Sub

End Class

これでフォームのActivatedイベントでフラグ処理を行わずとも、このOneActivatedイベントの中で処理が可能となります。

関連する記事

フォームが表示されて初めてアクティブになった時に行いたい処理が在る場合、 以下のソースの様にActivatedイベント時に処理を記述します。

フォーム上に1個のテキストボックスを貼付け、そのテキストボックスを複数行入力許可とします。
そして、Activatedイベント時に現在の時刻を表示します。 ソースは以下の通りです。

フォームのActivatedイベントでの処理

Public Class frmActive

    ''' 

    ''' フォームアクティブイベント
    ''' 
    Private Sub frmActive_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        'テキストボックに時刻表示
        Me.TextBox1.Text &= "Activated..." & Now.ToString("hh:mm:ss") & vbCrLf
    End Sub

    ''' 

    ''' フォームロードイベント
    ''' 
    Private Sub frmActive_Load(sender As Object, e As EventArgs) Handles Me.Load
        'テキストボックスを複数行許可
        Me.TextBox1.Multiline = True
        Me.TextBox1.Height = 200
    End Sub

End Class

これを実行すると以下の様な表示になります。

上手く動いたかに見えますが、このフォームから別のプログラムなどをアクティブにしてから このプログラムを再度アクティブにすることを繰り返すと以下の様な表示になります。 （日付の表示がどんどん増えていきます）

これは問題です。何が悪いのかと言えば、Activatedイベントは自分自身のフォームが非アクティブから アクティブに変わった時に必ず発生するからです。 プログラムが起動し、最初のActivatedイベントかどうかはフラグを使うしかない様です。 そこで、プログラムを以下の様に変更します。

フォームのActivatedイベントでの処理その２

Public Class frmActive

    'アクティブフラグ
    Private mblnActivated As Boolean = False

    ''' 

    ''' フォームアクティブイベント
    ''' 
    Private Sub frmActive_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        'アクティブフラグOFF??
        If Me.mblnActivated = False Then
            'フラグON
            Me.mblnActivated = True
            'テキストボックに時刻表示
            Me.TextBox1.Text &= "Activated..." & Now.ToString("hh:mm:ss") & vbCrLf
        End If
    End Sub

    ''' 

    ''' フォームロードイベント
    ''' 
    Private Sub frmActive_Load(sender As Object, e As EventArgs) Handles Me.Load
        'テキストボックスを複数行許可
        Me.TextBox1.Multiline = True
        Me.TextBox1.Height = 200
        'アクティブフラグOFF(くどいですが)
        Me.mblnActivated = False
    End Sub

End Class

上記のソースではアクティブになったフラグをフォームのローカル変数として宣言し、 Activatedイベント時にそのフラグをみてOFFだったら、フラグをONして二度と時刻表示の処理を しない様にしています。
これで何とかうまくいくようになりました。

関連する記事

フォーム上のコントロールがアクティブである場合、キー入力があった時にそのコントロールにキーイベントが発生します。 そのコントロールのキーイベントが発生する前に何か処理を行いたい場合、 フォームの KeyPreviewプロパティをTrueに設定すると、フォームのキーイベントが先に発生します。 このイベント処理で、ファンクションキー等の処理が行えます。

例として、ファンクションキー押下でボタンクリックを行う処理を示します。 この処理ですが、ボタンをマウスでクリックする時と同じことをファンクションキー押下で行えます。
良くあるプログラムで、画面の下にボタンを12個並べて、 ボタンキャプションにファンクションキー名を表示しているあれです。 実行画面は以下の様になります。

以下のソースを見て下さい。 フォームのKeyDownイベントで各キーコードの処理を行っています。
ここで注意するのは e.Handled = True の部分です。 この処理でフォームのKeyDownイベント以降に、その他のコントロールにKeyDownイベント発生を抑止しています。
「F10」などではシステムの予約された処理があるので、それを抑止するためです。

フォームのKeyDownイベントでのファンクションキー処理

Public Class frmFunc

    ''' 

    ''' フォームロードイベント
    ''' 
    Private Sub frmFunc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'フォームが先にキーを受け取る設定
        Me.KeyPreview = True
    End Sub

    ''' 

    ''' フォームKeyDownイベント
    ''' 
    Private Sub frmFunc_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        'キーコードにより処理する
        Select Case e.KeyCode
            Case Keys.F1                            '「F1:キー」
                If Me.Button1.Enabled = True Then   '取りあえずボタン許可チェック
                    Me.Button1.Focus()              'フォーカスセット
                    Me.Button1.PerformClick()       'ボタン１クリック実行
                End If
                e.Handled = True                    '他にKeyDownイベントを発生させない

            Case Keys.F2                            '「F2:キー」
                If Me.Button2.Enabled = True Then   '取りあえずボタン許可チェック
                    Me.Button2.Focus()              'フォーカスセット
                    Me.Button2.PerformClick()       'ボタン１クリック実行
                End If
                e.Handled = True

            Case Keys.F3                            '「F3:キー」
                e.Handled = True

            Case Keys.F10                           '「F10:キー」
                e.Handled = True
        End Select
    End Sub

    ''' 

    ''' ボタン１クリックイベント
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Button1_Click", MsgBoxStyle.OkOnly, Me.Text)
    End Sub

    ''' 

    ''' ボタン２クリックイベント
    ''' 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox("Button2_Click", MsgBoxStyle.OkOnly, Me.Text)
    End Sub

End Class

関連する記事