请教大家VB中关于text和combo的值传递问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 14:53:16
我建立了一个combo的控件和一个Text的控件...分别是combo1和txtPrice
combo1中的有"节假日"和"工作日"选择
当选择combo1中的选项时,例如"节假日"
现在我想当我选择了"节假日"之后把值传到txtPrice中然后显示出来
前提是我在Form_Load()的时候给combo1赋值了...
Combo1.AddItem "工作日"
Combo1.AddItem "节假日"
我想问大家怎样才能把combo1中所选择的值传递到txtPrice中显示呢?
是不是用到select case 语句呢?
请大家帮帮我吧...最好是把代码写完整一些...我会追加更多的分..谢谢了!
Private Sub Combo1_Change()
txtPrice.Text = Combo1.Text
End Sub

很明显不行啦...希望有高手来帮我吧...谢谢啦~
节假日价钱为30元...工作日为20元
关键是"节假日"和"工作日"这个值传递不到去txtPrice那里啊...我刚才试过了...应该是选择了"节假日"之后然后txtPrice就显示30元..."工作日"票价就显示为20元
就直接显示就可以了...类似于select case中的情况...就是
case 1
"节假日" = 30
case 2
"工作日" = 20
类似这样的...

高手们请进吧...非常感谢了..

Private Sub Combo1_Change()
txtPrice.Text = Combo1.Text
End Sub

很明显不行？没试过谁敢发上来

那是你问的不清楚，我说得就是把选中的信息给传过去
那么你的节假日对应的30，和工作日对应的20，这30和20的数据是存到哪里？数据库里？？

如果就这2个直接if就行了
Private Sub Combo1_Change()
if Combo1.Text="节假日" then
txtPrice.Text = "30元"
else
txtPrice.Text = "20元"
end if
End Sub