arkadaşlar ekteki form da listekutusuna veriler giriyorum ve bu verilerin toplamını bi metin kutusunda alıyorum. fakat listekutusuna girdiğim veriyi tekrar silmeyi ve toplam dan değerini çıkarmayı bi türlü beceremedim.. acaba nasıl yapabilirim....
liste kutusunun tıklandığında olayına aşağıdaki kodu yaz
Kod:
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 verinin fiyatını al
toplam = toplam - fiyat 'toplamdan seçileni çıkart
Ben de Sledgeab'ın örneği üzerindek şöyle birşey önereceğim: Kodları tek tıklamaya değil çift tıklamaya yaz. Birf de onay iste. Sledgeab temelini yazmış, süslemeyi de ben yapayım dedim
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
sn alberto22, zahmet olmazsa sorunun çözülüp çözülmediğini yazınız.