VB projects - No duplicate entries in combo box
Description: do not permit duplicate entries in combo box
Minimum requirements: VB6
Download: source code
Screenshot:
Project: EXE
Controls: CommandButton cmdAdd (Caption = "Add"), TextBox txt, ComboBox cmb
Additional references: Microsoft Scripting Runtime (scrrun.dll)
Code:
Option Explicit
Dim dRecords As New Dictionary
Private Sub cmdAdd_Click()
On Error GoTo err_Add
If txt.Text <> "" Then
dRecords.Add txt.Text, txt.Text 'if record already exists error will occur
cmb.AddItem txt.Text
MsgBox "Added 1 record"
End If
txt.SetFocus
Exit Sub
err_Add:
MsgBox "Record already exists"
txt.SetFocus
End Sub
Private Sub txt_GotFocus()
txt.SelStart = 0
txt.SelLength = Len(txt)
End Sub
|
