Listview Tag Kullanımı

[crpzz37]

Selamunaleyküm

Arkadaşlar herkese hayırlı akşamlar. Worksheetimden listview e veri almaktayım. Aldığım verilere ek listview de görünmesini istemediğim bir veri daha çekmek istiyorum. Bunu tag komutu ile yapabileceğim söylendi ama hiç bir örnek bulamadım yardımcı olursanız sevinirim.


ben verileri aşağıdaki gibi alıyorum. SubItems(10)'a tag olarak nasıl alabilrim worksheetimdeki 13.sütunu mesela

Dim sonsatır As Integer
sonsatır = WorksheetFunction.CountA(Worksheets("urunler").Range("a:A"))

Dim x As Integer
Dim Liste As ListItem
urunler.ListView1.ListItems.Clear
For i = 2 To sonsatır
x = x + 1
Set Liste = urunler.ListView1.ListItems.Add(, , x + 1) 'SIRA NO
Liste.SubItems(1) = Cells(i, 2).Value 'ÜRÜN KODU
Liste.SubItems(2) = Cells(i, 3).Value 'ÜRÜN ADI
Liste.SubItems(3) = Cells(i, 4).Value 'DETAY 1
Liste.SubItems(4) = Cells(i, 5).Value 'DETAY 2
Liste.SubItems(5) = Cells(i, 6).Value 'DETAY 3
Liste.SubItems(6) = Cells(i, 7).Value 'BİRİM
Liste.SubItems(7) = Cells(i, 8).Value 'AÇIKLAMA
Liste.SubItems(8) = Int(Cells(i, 10).Value) 'GİRİŞ
Liste.SubItems(9) = Int(Cells(i, 11).Value) 'ÇIKIŞ
Liste.SubItems(10) = Int(Cells(i, 12).Value) 'KALAN
Next i

 

[Muzaffer Ali]

Merhaba.

ListView'e bir sütun daha eklemek istiyorsunuz fakat bu sütunu kullanıcı göremesin istiyorsunuz. Doğru mu anlamışım?
Eğer doğru anlamışsam;

ListView sütun sayısını artırmazsanız zaten görünmez.

Örneğin siz yukarıda verdiğiniz kodların en sonuna

Liste.SubItems(11) = "Test Kolonu"
satırını eklerseniz bu kolon kullanıcı tarafından görünmez.
Görünmesi için ListView1.ColumnHeaders.Add satırını eklemeniz gerekir.

 

[crpzz37]

Merhaba.

ListView'e bir sütun daha eklemek istiyorsunuz fakat bu sütunu kullanıcı göremesin istiyorsunuz. Doğru mu anlamışım?
Eğer doğru anlamışsam;

ListView sütun sayısını artırmazsanız zaten görünmez.

Örneğin siz yukarıda verdiğiniz kodların en sonuna

Liste.SubItems(11) = "Test Kolonu"
satırını eklerseniz bu kolon kullanıcı tarafından görünmez.
Görünmesi için ListView1.ColumnHeaders.Add satırını eklemeniz gerekir.

muzaffer bey ilginiz için çok teşekkür ederim yalnız bende ilkte dediğinizi yaptım combobox ve listbox da öyle yapıyorum ama listview de çalışmadı hata aldım devamlı

 

[Muzaffer Ali]

Özür dilerim önceki söylediklerimi düzeltiyorum.

Aşağıdaki satır ile görünmeyen bir kolon oluşturabilirsiniz.
Daha doğrusu Eğer kolon eklediyseniz görünür eklemezseniz görünmez

Liste.ListSubItems.Add , , Cells(i, 13).Value

 

[crpzz37]

Özür dilerim önceki söylediklerimi düzeltiyorum.

Aşağıdaki satır ile görünmeyen bir kolon oluşturabilirsiniz.
Daha doğrusu Eğer kolon eklediyseniz görünür eklemezseniz görünmez

Liste.ListSubItems.Add , , Cells(i, 13).Value

Muzaffer bey tekrar teşekkür ederim listeye alma işlemi oldu sanırım hatasız verileri alıyorum. Ancak şimdide o gizlice getirdiğim veriyi listviewe tıklayınca bir label a yazdırmak istiyorum onu alamadım.

Bu şekilde dediğiniz gibi aldım veriyi



Gizli olarak aldıgım veriyi listview tıklanıldığında label2 ye yazdırmak içinde bunu yazdım ama olmadı



Şimdiden çok teşekkür ederim Allah razı olsun

 

[Muzaffer Ali]

Aşağıdaki şekilde öğrenebilirsiniz.

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
MsgBox Item.SubItems(3)
End Sub

 

[crpzz37]

Aşağıdaki şekilde öğrenebilirsiniz.

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
MsgBox Item.SubItems(3)
End Sub

Hocam subitem(3) yazınca 3.sütunu veriyor ben orada gizli olarak aldığımız veriyi görmek istiyorumda

 

[Muzaffer Ali]

Senin gizli sütunun kaçıncı sütunsa 3 yerine onun sıra numarasını yazmalısın.

 

[crpzz37]

Senin gizli sütunun kaçıncı sütunsa 3 yerine onun sıra numarasını yazmalısın.

Hocam listviewe sizin verdiğiniz kod ile aşağıda kırmızı ile işaretli alandaki gibi gizli sütunlarda gözükmücek şekilde veriyi aldım.
Ancak dediğiniz gibi bir sutün sayısı yok. Bu gizli aldığım satıra tekrar ulaşamıyorum.
En son 10 sutün var bende Item.SubItems(11) yazdım hata verdi. Yani eklediğim bu kırmızılı veriye listviewi tıklayınca tekrar ulaşamıyorum.

 

[Muzaffer Ali]

Dosyanızı ekleyin kontrol edeyim.

 

[crpzz37]

Dosyanızı ekleyin kontrol edeyim.

urunler userformuna listview doldurma modülünden çekiyorum verileri.

Urunler userformundaki listview e veriler gelirken listview de gözükmesini istemediğim ama takip etmem gereken bir sütun almak istiyorum.

Urunler userformundaki listview tıkladıgımda o gizli sutünde yazan değeri görmek istiyoum sorunum tam olarak bu yardımınız için çok teşekkürler.

 

[Muzaffer Ali]

Aşağıdaki gibi yapın

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    MsgBox Item.ListSubItems(11).Text
End Sub

 

[crpzz37]

Aşağıdaki gibi yapın

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    MsgBox Item.ListSubItems(11).Text
End Sub

Hocam çözüldü çok teşekkür ederim. Allah razı olsun

 

[Muzaffer Ali]

Rica ederim.
Allah hepimizden razı olsun inşallah.