Private Sub Combo1_Click()Select Case Combo1.TextCase "1#" '在这里设置1#温控仪的数据Case "2#" '在这里设置2#温控仪的数据Case "3#" '在这里设置3#温控仪的数据End SelectEnd Sub
在combo的click事件里写代码即可 判断combo.text值