Soru Combo box elemanlarını Dizi oluşturmak

[k0081]

Merhaba arkadaşlar,

Combo box daki elemanları bir değişkene dizi olarak nasıl alabilirim ?

Ör ;

Combo içeriği:
Deneme.dwg
Deneme.lsp
Deneme.bak
...


Dosyalar=Array(“deneme.dwg”, “deneme.lsp”,”deneme.bak”)

Gibi...

Yardımcı arkadaşa şimdiden teşekkürler

 

[Haluk]

Örnek dosya ektedir....

.

 

[k0081]

Haluk;

Hocam çalışma için çok teşekkür ederim. yalnız çözümümüzde şöyle bir şey gerekiyor...;

Private Sub UserForm_Initialize()
    Dosyalar = Array("deneme.dwg", "deneme.lsp", "deneme.bak")
    ComboBox1.List = Dosyalar
End Sub

Bu koddaki Dosyalar değişkeni bu şekilde değil... Tam tersi olacak... yani combobox tan aldığımız esnada Array komutu kullanılacak hocam..

 

[Haluk]

"UserForm_Initialize" prosedüründeki kodlar sadece ilk başta ComboBox'ı doldurmak için, konuyla ilgisi yok.

Sizin sorunuzun cevabı, alternatifli olarak (2 boyutlu dizi ve 1 boyutlu dizi) "CommandButton1_Click" prosedüründe verildi.

Oluşturulan 2 boyutlu dizi >>>> myArr

Oluşturulan 1 boyutlu dizi >>>> myArr2

.

 

[k0081]

FilePath = CurDir & "\proje.txt"
TextFile = FreeFile
Open FilePath For Output As TextFile


'uzantilar = Array("*.dwg", "*.lsp", "*.bak")
dosyalar= Array(combo_sec)
For Each uz In uzantilar
dosya = Dir(CurDir & "\" & uz)
    Do While dosya <> ""
       Print #TextFile, "file '" & CurDir & "\" & dosya & "'"

        say = say + 1
        dosya = Dir()
    Loop
Next
Close TextFile

Hocam kod bu şekilde... ama bir türlü combodan alamıyorum. combo daki dosya uzantıları sabit değildir.

 

[Haluk]

Bu iş için bahsettiğiniz gibi bir diziye gerek yok.....ComboBox'ın List özelliği zaten kendi başına bir dizi.

ComboBox1 adını kendi çalışmanıza göre değiştirirsiniz.....

    FilePath = CurDir & "\proje.txt"
    TextFile = FreeFile
    Open FilePath For Output As TextFile
        For Each uz In ComboBox1.List
            dosya = Dir(CurDir & "\" & uz)
            Do While dosya <> ""
                Print #TextFile, "file '" & CurDir & "\" & dosya & "'"
                say = say + 1
                dosya = Dir()
            Loop
        Next
    Close TextFile

.

 

[k0081]

List methodunun dizi olduğunu bilmiyordum. Dediğiniz gibi denedim., Argument not optional . şeklinde bir hata alıyorum hocam...

* Ben bunu farklı bir şekilde çözdüm hocam. Daha doğrusu internette araştırma yaparken hazırlanmış bir kod buldum. üzerinde ufak değişiklikler yaptım-düzenledim.

Teşekkür ederim.

 

[Haluk]

Bende çalışan şekli ektedir....

.