组合框与列表框程序

来源：百度知道 编辑：UC知道 时间：2024/06/28 15:43:21
用vb编写一个含有组合框和列表框的程序，单击组合框的某个数据项，该数据项能显示能列表框内。双击列表框的某个数据项，能将其删除。

问题感觉不难，我估计贴出两个窗口后，也就是一个窗口1、2句语句就行，但刚接触VB ，不会它的具体写法，请您指教！
组合框的Style该选0、1、2的哪个？请给个详细代码吧，谢谢！

Private Sub Combo1_Click()
'选择Combo中的一项后List中添加该项
List1.AddItem Combo1.Text
End Sub

Private Sub Form_Load()
'在Combo里添加一些数据做测试
For i = 1 To 10
Combo1.AddItem CStr(i)
Next
End Sub

Private Sub List1_DblClick()
'双击List中的一项删除该项
List1.RemoveItem (List1.ListIndex)
End Sub

Private Sub Combo1_Click()
List1.AddItem Combo1.Text
End Sub

Private Sub Form_Load()
Dim i As Integer

For i = 1 To 9
Combo1.AddItem "第" & i & "条信息"
Next i
End Sub

Private Sub List1_DblClick()
List1.RemoveItem List1.ListIndex
End Sub

------------------------------------------
组合框的意思就是文本框和下拉菜单的组合
style=0时为组合框，其text属性时可以读写的，就是说你在程序运行起来后可以手动修改其显示的内容。
style=1时为文本框，基本上就和textbox一样了
style=2时为下拉菜单，其text属性为只读，在运行时不可修改，只能显示其列表中的某一项