VB程序设计中Combobox的取值问题
VB中设定了一个个combobox，下拉菜单中设置了4个选项，分别为粘土，粉土，粉质粘土，砂土。当使用者选择不同的土的时候，对一个变量分别赋予不同的值，例如选择粉土时，变...
VB中设定了一个个combobox，下拉菜单中设置了4个选项，分别为粘土，粉土，粉质粘土，砂土。当使用者选择不同的土的时候，对一个变量分别赋予不同的值，例如选择粉土时，变量a=0.1，砂土的时候a=0.5，请问代码该怎么写
展开
展开全部
楼主参考这段代码：
Private a As Double
Private Sub Combo1_Click()
'1位小数，系数用10
a = Combo1.ItemData(Combo1.ListIndex) / 10
MsgBox a, 32
End Sub
'设置时，把 Combo1 的Style属性设置为2
Private Sub Form_Load()
Combo1.AddItem "粘土"
Combo1.AddItem "粉土"
Combo1.AddItem "粉质粘土"
Combo1.AddItem "砂土"
'ItemData 的值只能为整数
' 按你的数据实际情况选择适当的系数
' 1位小数就用10倍，2位小数就用100倍，等等
Combo1.ItemData(0) = 3 ' 具体值你自己输入
Combo1.ItemData(1) = 1
Combo1.ItemData(2) = 8
Combo1.ItemData(3) = 5
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
