VB6 combo使用的疑惑。

Question

list属性能否添加下拉框项目？如何通过判断combo控件是否选定来触发事件？如何返回combo选择的string值？或者说VB6中什么相当于VB2010中的combobox1.selecteditem和

combobox1.selectedindex？希望谁能给我一个正确答复、

Answer 1

一、要用AddItem属性添加下拉框列表。
下面是我连接数据库中的民族表，把ID和民族两个字段添加到Combo1下拉框列表中。
Dim rsx1 As New ADODB.Recordset
rsx1.Open "SELECT * FROM mz Order By ID", cn, 3, 3
While Not rsx1.EOF
Combo1.AddItem rsx1(0) & " | " & rsx1(1)
rsx1.MoveNext
Wend
rsx1.Close
Set rsx1 = Nothing
二、通过获得焦点事件来判断combo控件是否被选定。即：
Private Sub Combo1_GotFocus()
End Sub
三、可以通过失去焦点事件来返回combo选择的string值。比如：
Private Sub Combo1_LostFocus()
a = Combo1.Text
End Sub
四、VB6中的 Combo1.ItemData 相当于 VB2010中的 combobox1.selecteditem 、Combo1.ListIndex 相当于 combobox1.selectedindex