[Yardım]  ListView Çift tıklama hakkında

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

ListView Çift tıklama hakkında

İleti#1)  osmanucel » 01 Nis 2020 00:19

Private Sub ListView1_DblClick()
On Error Resume Next
a = 1
For i = 1 To Me.ListView1.ListItems.Count
If Me.ListView1.ListItems(i).Selected = True Then
ALIS_SATIS.ListView1.ListItems.Add , , Me.ListView1.ListItems(i).Text
ALIS_SATIS.ListView1.ListItems(a).SubItems(6) = Me.ListView1.ListItems(i).SubItems(2)
ALIS_SATIS.ListView1.ListItems(a).SubItems(10) = Me.ListView1.ListItems(i).SubItems(1)
If Val(Left(ALIS_SATIS.ListView1.ListItems(a).SubItems(8), 2)) = 8 Then
ALIS_SATIS.ListView1.ListItems(a).SubItems(8) = Me.ListView1.ListItems(i).SubItems(7)
If Val(Left(ALIS_SATIS.ListView1.ListItems(a).SubItems(8), 2)) = 10 Then
ALIS_SATIS.ListView1.ListItems(a).SubItems(8) = Me.ListView1.ListItems(i).SubItems(6)
ElseIf Val(Left(ALIS_SATIS.ListView1.ListItems(a).SubItems(8), 2)) >= 12 Then
ALIS_SATIS.ListView1.ListItems(a).SubItems(8) = Me.ListView1.ListItems(i).SubItems(5)
End If
a = a + 1
End If
Next i
Unload Me
End Sub

Bu kodlarda yanlıs olan ne? Bakabilirmisiniz.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 153
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe