Çeşitli Listbox Kontrol Özellikleri

Aşağıdaki örneklerde altı listbox kontrolünden program çalıştırıldığında herhangi birinin üzerine tıklanması durumunda her listbox satırının eşit sıraya gelmesi anlatılmıştır.

Hemen başlangıçtaki kodlar ise listbox kontrollerinde programın her çalışması sırasında tekrar eden elemanlar bulunmaması için alınan önlem gösterilmiştir. 


Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged 

        ListBox1.Items.Clear() 

        ListBox2.Items.Clear() 

        ListBox3.Items.Clear() 

        ListBox4.Items.Clear() 

        ListBox5.Items.Clear() 

        ListBox6.Items.Clear() 

    End Sub 

 

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged 

        ListBox2.SelectedIndex = ListBox1.SelectedIndex 

        ListBox3.SelectedIndex = ListBox1.SelectedIndex 

        ListBox4.SelectedIndex = ListBox1.SelectedIndex 

        ListBox5.SelectedIndex = ListBox1.SelectedIndex 

        ListBox6.SelectedIndex = ListBox1.SelectedIndex 

        ListBox2.TopIndex = ListBox1.TopIndex 

        ListBox3.TopIndex = ListBox1.TopIndex 

        ListBox4.TopIndex = ListBox1.TopIndex 

        ListBox5.TopIndex = ListBox1.TopIndex 

        ListBox6.TopIndex = ListBox1.TopIndex 

 

    End Sub 

 

    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged 

        ListBox1.SelectedIndex = ListBox2.SelectedIndex 

        ListBox3.SelectedIndex = ListBox2.SelectedIndex 

        ListBox4.SelectedIndex = ListBox2.SelectedIndex 

        ListBox5.SelectedIndex = ListBox2.SelectedIndex 

        ListBox6.SelectedIndex = ListBox2.SelectedIndex 

        ListBox1.TopIndex = ListBox2.TopIndex 

        ListBox3.TopIndex = ListBox2.TopIndex 

        ListBox4.TopIndex = ListBox2.TopIndex 

        ListBox5.TopIndex = ListBox2.TopIndex 

        ListBox6.TopIndex = ListBox2.TopIndex 

    End Sub 

 

    Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged 

        ListBox1.SelectedIndex = ListBox3.SelectedIndex 

        ListBox2.SelectedIndex = ListBox3.SelectedIndex 

        ListBox4.SelectedIndex = ListBox3.SelectedIndex 

        ListBox5.SelectedIndex = ListBox3.SelectedIndex 

        ListBox6.SelectedIndex = ListBox3.SelectedIndex 

        ListBox1.TopIndex = ListBox3.TopIndex 

        ListBox2.TopIndex = ListBox3.TopIndex 

        ListBox4.TopIndex = ListBox3.TopIndex 

        ListBox5.TopIndex = ListBox3.TopIndex 

        ListBox6.TopIndex = ListBox3.TopIndex 

    End Sub 

 

    Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged 

        ListBox1.SelectedIndex = ListBox4.SelectedIndex 

        ListBox3.SelectedIndex = ListBox4.SelectedIndex 

        ListBox2.SelectedIndex = ListBox4.SelectedIndex 

        ListBox5.SelectedIndex = ListBox4.SelectedIndex 

        ListBox6.SelectedIndex = ListBox4.SelectedIndex 

        ListBox1.TopIndex = ListBox4.TopIndex 

        ListBox3.TopIndex = ListBox4.TopIndex 

        ListBox2.TopIndex = ListBox4.TopIndex 

        ListBox5.TopIndex = ListBox4.TopIndex 

        ListBox6.TopIndex = ListBox4.TopIndex 

    End Sub 

 

    Private Sub ListBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedIndexChanged 

        ListBox1.SelectedIndex = ListBox5.SelectedIndex 

        ListBox3.SelectedIndex = ListBox5.SelectedIndex 

        ListBox4.SelectedIndex = ListBox5.SelectedIndex 

        ListBox2.SelectedIndex = ListBox5.SelectedIndex 

        ListBox6.SelectedIndex = ListBox5.SelectedIndex 

        ListBox1.TopIndex = ListBox5.TopIndex 

        ListBox3.TopIndex = ListBox5.TopIndex 

        ListBox4.TopIndex = ListBox5.TopIndex 

        ListBox2.TopIndex = ListBox5.TopIndex 

        ListBox6.TopIndex = ListBox5.TopIndex 

    End Sub 

End Class 

 

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

AUTOLISP DOSYALARININ KALICI KULLANIMI

AUTOLISP DOSYALARININ KALICI KULLANIMI Tools/Load application menüsünden yüklenen bir lisp'in yeni bir autocad dosyası açıldığında ya da Autocad bir nedenle kapatıldığında artık bir hükmü kalmaz. Şayet bir lisp programının AutoCAD'in her açılışında ya da yeni AutoCAD dosyası yaratılmak istendiğinde otomatik olarak kullanıma hazır bulunması isteniyorsa aşağıdaki iki adım yerine getirilmelidir. 1. İstenen lisp, tools/load application menüsü ile gelen arayüzdeki startup suite üzerinde bulunan contents komutu kullanılarak kalıcı şekilde yüklenmelidir. Contents komutuna basıldıktan sonra add butonu ile ilgili lisp seçilmelidir. 2. İstenen lisp'in ait olduğu klasör tools/option/Support File Search Path kullanılarak AutoCAD'e kalıcı olarak tanıtılmalıdır. Sol yandaki "+" işareti açılarak sağ yandaki add komutuna tıklanır ve Browse ile lisp'in ait olduğu klasör seçilir. Bu iki adım yerine getirildiğinde artık AutoCAD'in her türlü açılışında lisp de kullanıma h...
Devamı

AUTOLISP PROGRAMLARINI ÇALIŞTIRMAK

.lsp uzantılı olan Autolisp ya da visual lisp dosyaları Autocad içinde Tools/Load Application menusu kullanılarak tanıtılırlar. Bu menünün yönlendirilmesi ile seçilen .lsp uzantılı dosya daha sonra load edilerek kullanıma hazır hale getirilir. Programın kullanılması ise lisp içindeki komutun komut satırına yazılması ile mümkündür. Örnek: (defun c:(deneme) ... ) komut satırına deneme yazılarak çalıştırılır.
Devamı

AUTOLISP İÇİNDE BAŞKA BİR DOSYADAN VERİ OKUMAK

Aşağıdaki rutin gözat ile seçilebilecek txt uzantılı bir dosyadaki verileri okuyarak autolisp formatında bir listeye aktarır ve ekrana print eder. (vl-load-com); Bu satır lisp rutininin visuallisp içeriğini çalıştırmaya olanak verir (defun c:d1() (defun veri-oku (/ veri dosyaadi metindosyasi liste) (setq dosyaadi (getfiled "DATA DOSYASI ... ADRESİNDEDİR :" (getvar "dwgprefix") "txt" 16 ); Bu bölümde .txt dosyasını gözat ile seçebilmek için popup menü açılır. ) (setq metindosyasi (open dosyaadi "r")); dosya okumak amacı ile açılıyor. (while (setq liste (read-line metindosyasi)); satır satır okuma başlıyor (setq veri (cons (read (strcat "(" liste ")")) veri))) (close metindosyasi); dosya kapatılıyor (reverse veri); liste tersten yeniden yazılıyor – duruma göre gerekmeyebilir ) (setq lst (veri-oku)) (print lst) (princ) ); Liste ekrana yazılıyor
Devamı