ListBox'ta Tüm Değerler Aynı ise...

[ragnorak]

If FOLDER.Column(1, 0) = "-" And FOLDER.Column(1, 1) = "-" And _
   FOLDER.Column(1, 2) = "-" And FOLDER.Column(1, 3) = "-" And _
   FOLDER.Column(1, 4) = "-" And FOLDER.Column(1, 5) = "-" And _
   FOLDER.Column(1, 6) = "-" Then: Label1 = "Tüm Klasörler Boş!": Beep: Exit Sub

Yukarıda yazdığım kodu döngü ile yapmak mümkün mü?

 

[Muzaffer Ali]

Merhaba
Aşağıdaki gibi yapılabilir.

Sub Test()
    Dim Bak As Integer
    For Bak = 0 To FOLDER.ListCount - 1
        If FOLDER.Column(1, Bak) = "-" Then
            Label1 = "Tüm Klasörler Boş!"
        Else
            Label1 = "Tüm Klasörler Boş Değil!"
            Exit For
        End If
    Next
    Beep
End Sub

 

[ragnorak]

Kod:
Sub Test()
Dim Bak As Integer
For Bak = 0 To FOLDER.ListCount - 1
If FOLDER.Column(1, Bak) = "-" Then
Label1 = "Tüm Klasörler Boş!"
exit sub
Else
Label1 = "Tüm Klasörler Boş Değil!"
Exit For
End If
Next
Beep
End Sub

@dalgalikur bende böyle yaptım ama, benim "tüm klasörler boş" olunca işlemden "exit sub" ile çıkmam lazım. Burada yukarıdaki gibi eklersem ilk yakaladığı "Tüm Klasörler Boş!" kaydında çıkış yapıyor. Listenin altına kadar ilerleyip hepsinin boş olduğundan emin olmuyor.

 

[Muzaffer Ali]

Anladığım kadarıyla bu kodlardan sonra eğer doluysa çalışan kodlar var.
Aşağıdaki kodu kullanabilirsiniz.

Sub Test()
    Dim Bos As Boolean
    Dim Bak As Integer
    For Bak = 0 To FOLDER.ListCount - 1
        If FOLDER.Column(1, Bak) = "-" Then
            Label1 = "Tüm Klasörler Boş!"
            Bos = True
        Else
            Label1 = "Tüm Klasörler Boş Değil!"
            Bos = False
            Exit For
        End If
    Next
    Beep
    If Bos Then Exit Sub
End Sub

 

[ragnorak]

Bu şekilde doğru çalışıyor. "Boolean" nedir ne işe yarar bilmiyorum ama öğrenmek lazım Teşekkür ederim. Elinize sağlık @dalgalikur

 

[Muzaffer Ali]

Boolean tipli değişkenler iki farklı değer alabilir.
Doğru(True) ve Yanlış(False)

Değişkenler konusu ilk öğrenmeniz gereken konudur forumda bu konu var. Araştırınız.