我是一只小老鼠:VB里怎么为复合框里的 汉字 赋值

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/13 05:24:01
我说是让框里的汉字怎么样才能 代表数字啊,

使用ItemData属性储存数字

例:
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 7
Combo1.AddItem WeekdayName(i)
Combo1.ItemData(Combo1.NewIndex) = i
Next

Private Sub Combo1_Click()
MsgBox "点击数字" & Combo1.ItemData(Combo1.ListIndex)
End Sub

有一个属性好象是AddItem