sil butonu

[ahsen]

mehabalar. bir sorunum var arkadaşlar.
listbox'ın içindeki verileri silmek için bir sil butonumuz var tıklandığı zaman sadece bir satır siliyor.
oysa ben 4 satır 5 satır işaretlediğim (seçtiğim) halde yine bir satır siliyor.
bunu seçilenlerin tümü silinecek şekilde nasıl yazmalıyız?
herşey için çok teşekkürler. :arkadas:

 

[maviyaz]

Aşağıdaki kodu kendine uyarlayabilirsin

Private Sub CommandButton1_Click()
Dim k As integer
k = 0
Do Until k > ListBox1.ListCount - 1
If ListBox1.Selected(k) = True Then
ListBox1.RemoveItem k
Else
k = k + 1
End If
Loop

End Sub

İyi çalışmalar.

 

[ahsen]

teşekkürler sn maviyaz bu kod çok işime yarayacak :hey: