UC知道关于VB 用IF语句做计价器!!!
来源：百度知道 编辑：UC知道 时间：2024/05/25 14:10:15
在此请教一个问题!急!
本人需要编写一个蛋糕的计价器,
但出现了问题.
我要做的效果就是在使用下拉菜单COMBO1时,下拉可选择不同种类蛋糕,同时在下面的Label1中会显示相应的蛋糕价钱,可不知为什么在运行时单价总显示不出,想请教一下.
这是我的代码,
Private Sub Combo1_Change()
If Combo1.Text = "蛋糕1" Then
Label.Caption = "12元"
ElseIf Combo1.Text = "蛋糕2" Then
Label1.Caption = "13元"
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "蛋糕1"
Combo1.AddItem "蛋糕2"
End Sub
谢了!!!!急
本人需要编写一个蛋糕的计价器,
但出现了问题.
我要做的效果就是在使用下拉菜单COMBO1时,下拉可选择不同种类蛋糕,同时在下面的Label1中会显示相应的蛋糕价钱,可不知为什么在运行时单价总显示不出,想请教一下.
这是我的代码,
Private Sub Combo1_Change()
If Combo1.Text = "蛋糕1" Then
Label.Caption = "12元"
ElseIf Combo1.Text = "蛋糕2" Then
Label1.Caption = "13元"
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "蛋糕1"
Combo1.AddItem "蛋糕2"
End Sub
谢了!!!!急
你使用combo的组件不适合用change事件，应改成click事件。
只需把这行Private Sub Combo1_Change()代码改成Private Sub Combo1_Click()既可。。。。
你换个事件试下。
不用change()
好象列表选不怎么触发这个事件。
你可以选Click()
(写错了，不是onClick(),是Click(),ASP写多了。)
不行再说，
我机器里没VB无法测试，只能给个想法了。
好久不用了，记不准了。
把代码写在click事件中,另外用listindex来判断,不要用.text来判断