
Kodlar o zaman şöyle olur:
Kod:
Private Sub d_DblClick(Cancel As Integer)
cevap = MsgBox("Seçilen ürünü silmek istediğinize emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = 6 Then
Dim secilen, fiyat As Integer 'secilen:listeden seçilen veri, fiyat: listeden seçilenin fiyatı
secilen = d
d.RemoveItem (secilen) 'secileni listeden sil
fiyat = Right([secilen], InStr(1, [secilen], "") + 1) 'seçilen anakart asus 53 verisinin 53ünü al
toplam = toplam - fiyat 'toplamdan seçileni çıkart
Else
MsgBox "Silme işlemi yapılmadı", vbOKOnly, "SİLME YAPILMADI"
End If
End Sub