武动乾坤txt网盘下载:VB里怎么为复合框里的 汉字 赋值

来源:百度文库 编辑:中科新闻网 时间:2024/05/07 18:33:51
我说是让框里的汉字怎么样才能 代表数字啊,

使用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