vb combo 如何记录

来源：百度知道 编辑：UC知道 时间：2024/06/04 13:58:30
在combo1上打字
下回点下拉菜单就会出来
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Combo1.AddItem Combo1.Text
End Sub
这个有两个缺点
1重复记录
2下次就没有了

Mail to happyq6@163.com
or Baidu Hi happyq6

vb.net里有个,可以做历史记录的,象google那样的.
vb6只是存到别处,下次一行行的读取然后 combo.additem 内容即可
例:注册表
Private Sub Form_Load()
AddandLoad ""
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 0 Then
AddandLoad Combo1.Text '先在这里触发了,如果你要在别处,只要移动这一行
End If

End Sub

Sub AddandLoad(ByVal s As String)
Dim s1 As String
Dim i As Long
Dim b As Boolean
Do
i = i + 1
s1 = GetSetting(App.Title, "history", "h" & i, "")
If Len(s1) = 0 Then Exit Do
b = b Or LCase(s) = LCase(s1)
Me.Combo1.AddItem s1
Loop
If Not b Then
If Len(s) > 0 Then
SaveSetting App.Title, "history", "h" & i, s
Me.Combo1.AddItem s