Question

VB 如何给combo的list中添加数据

有3个combox 里面的List有3行，显示的都是a,b,c，三行数据， 这有一个txet，一个command，现在我想在text输入d，单击commnad的时候将text中的内容d 加到3个combox的list中，如何编写程序。
谢谢了。

Answer 1

VB使用AddItem 方法给ComboBox控件添加数据。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件。不支持命名参数。

Private Sub Form_Click()
    Dim Entry, I, Msg   ' 声明变量。
    Msg = "点OK增加100项到ComboBox控件"
    MsgBox Msg   ' 显示信息。
    For I = 1 To 100   ' 计数值从 1 到 100。
         Entry = "Entry " & I   ' 创建输入项。
         Combo1.AddItem Entry   ' 添加该输入项。
    Next I
End Sub

Answer 2

如果你添加后，想重新打开能看到，就需要写入配置文件或数据库呀，在form_load中读出来添加进去

追问

麻烦说的清除点么？我刚接触这个。还有如何判断数据重复？如果里面有d了，我在添加的时候就msgbox("已添加")。

Answer 3

ComboBox1（你的combobox的名称）.Items.Add("你想要的list里的文字")

Answer 4

Combo1.AddItem Text1.Text
Combo2.AddItem Text1.Text
Combo3.AddItem Text1.Text

追问

你好，运行可以的，但是为什么关了之后再运行就又看不到之前加的内容？有得重新添加呢？
而且如何判断重复添加呢？比如说原先里面就有d了，我在添加d的时候就msgbox("已有此机种")。

追答

Dim i As Integer
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Text1.Text Then Exit for
Next
If i = Combo1.ListCount Then
Combo1.AddItem Text1.Text
Else

MsgBox "已有此机种"
End If

Combo2、Combo3同理

动态添加的东西你要储存到文本文件、注册表或数据库中才行啊，这个对你可能有点难了，你慢慢学吧。

追问

确实有点难了，麻烦指点一下呢，我自己摸索摸索。

追答

以下是储存到注册表的代码：

Private Sub Form_Load()
Dim s() As String, i As Integer
Combo1.Clear
s = Split(GetSetting(App.Title, "Combo", "1", "a|b|c"), "|")
For i = 0 To UBound(s)
Combo1.AddItem s(i)
Next
Combo2.Clear
s = Split(GetSetting(App.Title, "Combo", "2", "a|b|c"), "|")
For i = 0 To UBound(s)
Combo2.AddItem s(i)
Next
Combo3.Clear
s = Split(GetSetting(App.Title, "Combo", "3", "a|b|c"), "|")
For i = 0 To UBound(s)
Combo3.AddItem s(i)
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim s As String, i As Integer
s = ""
For i = 0 To Combo1.ListCount - 1
s = s & Combo1.List(i)
If i < Combo1.ListCount - 1 Then s = s & "|"
Next
SaveSetting App.Title, "Combo", "1", s
s = ""
For i = 0 To Combo2.ListCount - 1
s = s & Combo2.List(i)
If i < Combo2.ListCount - 1 Then s = s & "|"
Next
SaveSetting App.Title, "Combo", "2", s
s = ""
For i = 0 To Combo3.ListCount - 1
s = s & Combo3.List(i)
If i < Combo3.ListCount - 1 Then s = s & "|"
Next
SaveSetting App.Title, "Combo", "3", s
End Sub

Answer 5

List1.AddItem Text1.Text