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 广告
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询