VB.NET, C#, PowerShell Tipsサイト

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim strData() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L"}

    'コンボボックスにアイテムを追加する
    ComboBox1.Items.AddRange(strData)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'ドロップダウンリスト部を表示/非表示させる
    ComboBox1.DroppedDown = Not ComboBox1.DroppedDown
End Sub