如上圖，下拉出節目序號后，相對應的節目票價能隨之顯示。代碼應該怎么寫？求解?
uj5u.com熱心網友回復：
假設節目序號下拉框叫“Combo1”，總價文本框叫“text1”select case Combo1.listindex
case 0
text1.text="20元"
case 1
text1.text="50元"
case ....
end select
uj5u.com熱心網友回復：
首先，你應該找到combobox的被點擊事件，然后分辨點擊的是哪一項，然后對應的在text中顯示資料uj5u.com熱心網友回復：
Dim X As Integer
Private Sub Combo1_Click()
Dim MM As Integer
MM = Val(Combo1.Text)
Select Case MM
Case 1: X = 15
Case 2: X = 20
Case 3: X = 25
Case 4: X = 30
Case 5: X = 35
End Select
End Sub
Private Sub Form_Load()
Combo1.Clear
For I = 1 To 5
Combo1.AddItem I
Next I
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_Change()
Dim AA As Integer
AA = Val(Text1.Text)
Text2.Text = AA * X
End Sub
在Combo1_Click中設定票價，在Text1_Change事件中就可以計算出總價。很簡單的！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76792.html
標籤：控件