لیست باکس (پاک کردن یک رکورد

[hackershz]

سلام من یه لیست باکس دارم
به فرض مثال
توش 100 تا رکورد داره
میخوام تو این صد تا رکورد بگرده
هر چی اسم
ali هست رو پاک کنه ممکنه 10 تا باشه ممکنه 20 تا باشه لطفا راهنمایی کنید
قصد من اینه که یه اسم رو تو کل لیست باکس بگرده هر چند بار که باشه کلا پاک بشه
میشه راهنمایی کنید دوستان ؟

[Babak.Hassanpour]

بفرمایید
تشکر لازم نیست



Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To List1.ListCount
Dim sText As String
Dim lIndex As Long
sText = "Ali"
lIndex = SendMessage(List1.hWnd, LB_FINDSTRINGEXACT, -1, ByVal sText)
If lIndex >= 0 Then List1.RemoveItem lIndex
Next
End Sub