1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Public Class Form0_2ComboBox
Private Sub Form0_2ComboBox_Load(sender As Object, e As EventArgs) Handles Me.Load
ComboBox1.DropDownStyle = ComboBoxStyle.DropDown
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = String.Empty Then
Exit Sub
End If
ComboBox1.Items.Add(TextBox1.Text)
ComboBox1.Text = ComboBox1.Items(0)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox2.Text = String.Empty Then
Exit Sub
End If
ComboBox2.Items.Add(TextBox2.Text)
ComboBox2.Text = ComboBox2.Items(0)
End Sub
End Class |
