VB问题（求高手指正）

Question

本帖最后由 billy327 于 2011-02-10 20:17:21 编辑

Answer 1

Private Const 资料一 = 2000
Private Const 资料二 = 3000Private Sub Command1_Click()
Print Combo1.Text
End SubPrivate Sub Form_Load()
Combo1.AddItem 资料一
Combo1.AddItem 资料二
End Sub

Answer 2

'加了双引号则是常量，不加双引号是变量
Private Sub Form_Load()
    Combo1.AddItem 资料一
    Combo1.AddItem 资料二
End Sub

Answer 3

但是我要comboBox的选项要有'资料一'及'资料二'
而print出的结果是数值
这应该怎样去改做？

Answer 4

只能这样
Private Sub Command1_Click()
Print Combo1.Text
End SubPrivate Sub Form_Load()
Combo1.AddItem "2000"
Combo1.AddItem "3000"
End Sub

Answer 5

If Combo1 = ”资料一" Then print 2000
如果这样好像会很． ． ． ．
有没有一些可以简化／储存资料的方法？

Answer 6

属性itemdata 专门用来存储 数值Private Const 资料一 = 2000
Private Const 资料二 = 3000
Dim i&
Private Sub Form_Load()
   Combo1.AddItem "资料一"
   Combo1.AddItem "资料二"
   Combo1.ItemData(0) = 资料一
   Combo1.ItemData(1) = 资料二
End SubPrivate Sub Command1_Click()
   For i = 0 To 1
      Print Combo1.ItemData(i)
   Next i
End Sub