VB程序设计中Combobox的取值问题

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

转载于:https://www.cnblogs.com/gyc19920704/p/5386156.html