Skip to main content

AccessTr.neT


Treeview kullanımı

Treeview kullanımı

Çözüldü #1
Sayın hocalarım, EK teki dosyayı biryerden indirdim. Oradaki Treeview örneğini kendi projemde kullanmak istdim ancak bir türlü uyarlayamadım. Ben kendi projemde ilk önce okul adlarının listelenmesini istiyorum. Okul adıni seçince altında o kulla ilgili sınıflar varsa onların listelenmesini istiyorum. Sınıfı seçincede o sınıftaki şubeleri listlesin istiyorum. Şubeyi seçincede o şubede bulunan öğrencileri listelemek istiyorum. Yardım ederseniz sevinirim.
.rar arsiv.rar (Dosya Boyutu: 860,48 KB | İndirme Sayısı: 33)
Cevapla
Çözüldü #2
Sayın ynlmz  Umarım yapmak istediklerinizi dogru anlamışımdır örnek programı ekliyorum inceleyiniz
sonucunu forma yazarsanız bizlerde emegimizin karşılıgını almış oluruz istediğiniz gibi ise konu çözülmüştür diye bir not düşünüz
.rar OKULLAR.rar (Dosya Boyutu: 30,67 KB | İndirme Sayısı: 33)
Son Düzenleme: 17/02/2013, 15:43, Düzenleyen: simendifer.
Cevapla
Çözüldü #3
Sayın simendifer; ilgine çok teşekkür ederim. Ancak ben bunu VB 6.0 da yapmak istiyorum. Ek teki örneği incelerseniz sevinirim.
Cevapla
Çözüldü #4
Bende bekliyorum
Son Düzenleme: 20/02/2013, 17:13, Düzenleyen: idrisy.
Cevapla
Çözüldü #5
Arkadaşlar bu konuda bir firkri olan yok mu acaba?
Cevapla
Çözüldü #6
Sn:ynlmz
Aşağıdaki örnek kodu deneyiniz.
Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "A", "Dede")
Set nodX = TreeView1.Nodes.Add("A", tvwChild, "B", "Oğul")
Set nodX = TreeView1.Nodes.Add("B", tvwChild, "C", "Torun")
nodX.EnsureVisible

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
Dim msg As String
Select Case Node.Key
Case "A"
msg = "Bu TreeView nesnesindeki en üst düzey yetkilidir.Tüm altbirimler bu kişiye bağlıdır."
Case "B"
msg = "Benim 'Babam' A Anahtarı oğlum ise C Anahtarıdır.Ayrıca oğlum da herşeyi benden izin alıp yapar."
Case "C"
msg = "Ben buraların en küçük efendisiyim.Büyüyünce herşeyi ben yönetçem."
End Select
MsgBox msg, vbExclamation, Node.Text & " : " & Node.Index & ". Sıra"
End Sub
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task