• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ListView'e proje icerisindeki userformları listeleme

Katılım
26 Mayıs 2005
Mesajlar
609
Excel Vers. ve Dili
Office 2022 - Türkçe
Herkese iyi haftalar. Forumda ve nette araştırmamam rağmen bir sonuca varamadım. Benim yapmak istediğim Proje içerisindeki UserForm ları ListView de listeleme burda UserForm1 Hariç diğerlerini listelemek istiyorum böyle birşey yapıla bilirmi. Örnek dosya ekte. Herkese iyi çalışmalar
 

Ekli dosyalar

Ekli dosyalar

Merhabalar

UserForm1'in Inıtialize olay kodlarını şu şekilde revize ediniz.


Kod:
Option Explicit
Const sFormlar = "UserForm2,UserForm3"
[COLOR="DarkGreen"]'Bu sabite; virgülle ayırarak, diğer görüntülemek
'istemediğiniz form isimlerini ilave edebilirsiniz.[/COLOR]

Private Sub UserForm_Initialize()
    Dim sGoruntulenmeyenler As String
    Dim objVBC As VBComponent
    For Each objVBC In ThisWorkbook.VBProject.VBComponents
        If objVBC.Type = 3 Then
            If Not Varmi(objVBC) Then
                With ListView1
                    .ListItems.Add , , objVBC.Name
                    .ListItems(1).ListSubItems.Add , , objVBC.Name
                End With
            End If
        End If
    Next
End Sub

Private Function Varmi(obj As VBComponent) As Boolean
            
    Dim vSpl As Variant
    For Each vSpl In Split(sFormlar, ",")
        If CStr(Trim(vSpl)) = obj.Name Then
            Varmi = True
            Exit For
        End If
    Next
    
End Function


.
 
Sayın Ferhat bey yardımınız için teşekkür ederim tam istediğim gibi olmuş
 
Geri
Üst