Listbox kutusunda seçili satırı silme

[gulec_44]

Selam arkadaşlar. ben listbox kutusunda sadece seçili satırı silmek istiyorum. vede seçili satırdan bilgi almak istiyorum.

ör:
textbox1=ListBox1.Selected(1)

listbox kutusundaki 1 satırı textbox1 yazdırmak istiyorum


silmedede listbox1 deki seçili satırı button ile silmek istiyorum.

 

[a_self_lion]

ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.SetFocus

Dim Stutar, Ttutar As Variant
Ttutar = 0
Stutar = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Stutar = ListBox1.List(i, 9) * 1
Ttutar = Ttutar + Stutar
End If
Next
lblBorcToplam.Caption = Format(Ttutar, "#,##0.00")

bu kod ile lblborcToplam.captiona listbox1 deki seçili olan anları bu kodları bir butona atayarak toplattıtıyorum. Umarım işinizi görür. Küçük bir değişiklikle sildirilebilir. Aktarım yapılabilir hepsi olur.

 

[gulec_44]

bu kod ile lblborcToplam.captiona listbox1 deki seçili olan anları bu kodları bir butona atayarak toplattıtıyorum. Umarım işinizi görür. Küçük bir değişiklikle sildirilebilir. Aktarım yapılabilir hepsi olur.

Teşekkürler.