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

最新文章

  1. PHP流式上传和表单上传（美图秀秀）
  2. 循环数据forin，foreach，for of
  3. 安卓自写Adapter
  4. 图片跟着鼠标动js
  5. Hibernate操作Clob数据类型
  6. 201521123052《Java程序设计》第4周学习总结
  7. oracle11g 体系结构详解
  8. “Swift Language Version” (SWIFT_VERSION) build setting must be set to a supported value for targets which use Swift
  9. VC2013 代码图,依赖项关系图,等出错解决办法.
  10. CentOS配置通过DHCP的方式动态获取IP
  11. MUI class="mui-switch" 开关监听
  12. Oracle 12c Sharding测试过程中的问题解决
  13. ---github git clone 加速
  14. （转）WAMP多站点配置
  15. APR Recipe
  16. 奇怪吸引子---BurkeShaw
  17. Redis持久化之RDB与AOF
  18. phython学习
  19. 【Java学习笔记】如何写一个简单的Web Service
  20. cxf之Caused by: java.lang.RuntimeException: Soap 1.1 endpoint already registered on address /rest

热门文章

  1. 一致性hash算法Consistent Hashing
  2. EventBus-实现java状态机
  3. Yahoo 军规（部分）
  4. Oracle JET Model 数据获取与使用
  5. 教你用Python实现简单监督学习算法
  6. flutter SnackBar异常Another exception was thrown: Scaffold.of() called with a context that does not contain a Scaffold
  7. 练习1：python设计停车入库出库系统
  8. 算法之美&数据结构与算法复习
  9. bzoj3929 Discrete Logging 大步小步算法
  10. Go语言入门篇-环境准备