#237 - Hur du undviker att addera dubletter i en listbox

Kollade detta som Pelle bidragit med och får felmeddelande från modulen

Här är koden..

Form
Private Sub Form_Load()
List1.AddItem "Item #1"
List1.AddItem "Item #2"
List1.AddItem "Item #3"
List1.AddItem "Item #4"
End Sub

Private Sub Command1_Click()
CheckForDupes
End Sub

Sub CheckForDupes()
Dim Ret As Long
Dim A As String
A = Text1.TEXT
Ret = SendMessageFind(List1.hwnd, LB_FINDSTRING, 0, (A))
If Ret = LB_ERR Then
List1.AddItem Text1.TEXT
Else
List1.ListIndex = Ret
MsgBox "Finns redan- kan inte addera till Listboxen.", 16, "Error"
End If
End Sub


Module

Private Declare Function SendMessageFind Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal _
lParam As String) As LongConst WM_USER = &H400Const LB_ERR = (-1)

Const LB_FINDSTRING = &H18F


Den ger bl.a. varningsmeddelande för WM-USER

Tänkte använda koden för att undvika dublettkörniong i en Listbox som matas med filer.

Någon id'e på förbättring ??

Mvh Kenneth

Har VB6 o win 2000

Några radbrytningar som fallit bort..

<code>
Private Declare Function SendMessageFind Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal _
lParam As String) As Long

Const WM_USER = &H400
Const LB_ERR = (-1)
Const LB_FINDSTRING = &H18F
</code>

Skall det vara...

Juste Fredrik

Tackar