?? form1.vb
字號:
Public Class Exam2
Private Sub cbState_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbState.SelectedIndexChanged
'獲取當前選取的state值以便顯示其Capital
Dim input As Int16
input = cbState.SelectedIndex
Select Case input
Case 0
TextBox1.Text = "Choose a state"
Case 1
TextBox1.Text = "Montgomery"
Case 2
TextBox1.Text = "Denver"
Case 3
TextBox1.Text = "Boise"
Case 4
TextBox1.Text = "Trenton"
Case 5
TextBox1.Text = "Bismarck"
End Select
End Sub
Private Sub cbCapital_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbCapital.SelectedIndexChanged
'獲取當前選取的capital值以便顯示其state
Dim input As Int16
input = cbCapital.SelectedIndex
Select Case input
Case 0
TextBox2.Text = "Choose a Capital"
Case 1
TextBox2.Text = "Alabama"
Case 2
TextBox2.Text = "Colorado"
Case 3
TextBox2.Text = "Idaho"
Case 4
TextBox2.Text = "New Jersey"
Case 5
TextBox2.Text = "North Dakota"
End Select
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -