19/07/2009, 16:46
Değişik Bir Treeview Uygulaması
19/07/2009, 16:59
esrefigit
sayın mehmet eser kardeş benim kodumun içine başka bir kişiye ait bir kod girdimi o proje benim için bit miştir ve bu diğer formda sizin için bunca emek harcayan kişiyede saygısızlık olur bir proje benimseyin ve onun üzerinden devam edin asla birinin kodu üzerine diğerinin kodunu yamamayın ben görüyorum ismi önemli değil ama o kişi sizin için günlerce o proje için çalıştı sizin işiniz tamamlansın diye şimdi siz onu tamamen bırakmışsınız ve bütün projenizi benim kodum üzerine kurmuşsunuz şimdi ben sizin dedkilerinizi yaptım diyelim bahsettiğiniz olayların hepsini hepside bait şeyler ancak benim bunca zahmetime karşın yarın bunuda bırakıp bir başka projeye dalarsanız benim emeğime ne olacak
19/07/2009, 17:42
mehmeser
Merhaba,
Burda sizin kodunuzun üzerine başka birinin kodu yamanmadı ki! Hatta bilerek bahsettiğiniz değerli kişinin verdiği kodu buna iliştirmedim. Aynı işi sorunsuzca gördükten sonra değiştirmenin anlamı yok.
İlk örneğim yabancı siteden alınma kodun üstüne idi. Sizden yardım istedim, yerli malı kullanın telkini aldım. Beyefendi X'den (bahsi geçen kişi) yardım istedim sağ olsun elinden geldiğince yol gösterdi ama o şekilde olmuyordu. Bu arada baştan zaten değişecekti temel kodlar. Beyefendi X'in önceden emeği geçtiği başka örneğe yöneldim ama henüz uyarlamamıştım. İstediğim şeyin olabilirliğine dair ufukta güneşi gördüm. Bu sırada sizin istek üzerine yoktan var ettiğiniz örnek çıktı. İlerde takılınca danışacak birisi olması açısından ve örneği geliştirici olduğunuz için (daha iyi bildiğiniz için ya da daha büyüksündüğümden değil, yerli üretici olduğunuzdan, Beyefendi X ile sizi karşılaştırmadım) bu kodlar üzerine uyarlama yaptım. Değiştirdiğim şeyler ise kendi bildiklerim. İhtiyaç doğrultusunda uyarladım.
Bir tek farklı yöntem olarak kayıt buldurma var, onu da zaten Access'in kendisi veriyor liste kutularının kayıt buldurma olarak kullanılması için.
Ben yelkeni bir rotaya çevirdim, dediğinizi yaptım bu sefer de burda kara yok başka yönet mesajı geliyor. Yardım nasıl alınır anlamadım. Bahsettiğiniz kişiyle bugüne kadar bir defadır olsun böyle bir yazışma olmadı. Ben zannettim yaptıklarımdan ötürü siz de memnun olursunuz. Beyefendi X de verilen kararın artılarına eksilerine bakar kanımca ve büyük ihtimal burda yazılanları da okumayacaktır tanıdığım kadarıyla.
En azından tam takır bir başvuru kaynağı olacaktı sizin örneğiniz tamamlanırsa. Ben yine de anladığım kadarıyla bitirmeye çalışırım. Aynı eksikler her iki örnekte de vardı. Yabancı birinin örneğine eklemeler yapmaktansa bizden birilerini tercih ettim.
Burda sizin kodunuzun üzerine başka birinin kodu yamanmadı ki! Hatta bilerek bahsettiğiniz değerli kişinin verdiği kodu buna iliştirmedim. Aynı işi sorunsuzca gördükten sonra değiştirmenin anlamı yok.
İlk örneğim yabancı siteden alınma kodun üstüne idi. Sizden yardım istedim, yerli malı kullanın telkini aldım. Beyefendi X'den (bahsi geçen kişi) yardım istedim sağ olsun elinden geldiğince yol gösterdi ama o şekilde olmuyordu. Bu arada baştan zaten değişecekti temel kodlar. Beyefendi X'in önceden emeği geçtiği başka örneğe yöneldim ama henüz uyarlamamıştım. İstediğim şeyin olabilirliğine dair ufukta güneşi gördüm. Bu sırada sizin istek üzerine yoktan var ettiğiniz örnek çıktı. İlerde takılınca danışacak birisi olması açısından ve örneği geliştirici olduğunuz için (daha iyi bildiğiniz için ya da daha büyüksündüğümden değil, yerli üretici olduğunuzdan, Beyefendi X ile sizi karşılaştırmadım) bu kodlar üzerine uyarlama yaptım. Değiştirdiğim şeyler ise kendi bildiklerim. İhtiyaç doğrultusunda uyarladım.
Bir tek farklı yöntem olarak kayıt buldurma var, onu da zaten Access'in kendisi veriyor liste kutularının kayıt buldurma olarak kullanılması için.
Ben yelkeni bir rotaya çevirdim, dediğinizi yaptım bu sefer de burda kara yok başka yönet mesajı geliyor. Yardım nasıl alınır anlamadım. Bahsettiğiniz kişiyle bugüne kadar bir defadır olsun böyle bir yazışma olmadı. Ben zannettim yaptıklarımdan ötürü siz de memnun olursunuz. Beyefendi X de verilen kararın artılarına eksilerine bakar kanımca ve büyük ihtimal burda yazılanları da okumayacaktır tanıdığım kadarıyla.
En azından tam takır bir başvuru kaynağı olacaktı sizin örneğiniz tamamlanırsa. Ben yine de anladığım kadarıyla bitirmeye çalışırım. Aynı eksikler her iki örnekte de vardı. Yabancı birinin örneğine eklemeler yapmaktansa bizden birilerini tercih ettim.
19/07/2009, 19:57
esrefigit
Şayet bu proje ile devam etmek istiyorsanız istedikleriniz kolay. Sırası ile hepsini yaparız. Ben kodları veririm siz yerine ekler ve son halini eskisi ile değiştirirsiniz.
Bunlar nodları açma kapama ve diğer istekleriniz de kolay. Onlar da sırası ile gelecek. Tabi sizden "bu projeye devam ediyorum" şeklinde bir cevap geldiği zaman...
yarın seçilen noda kadar açma olayı ondan sonraki gün gelinen kayda göre nodu bulma ve açma olayı
[img=http://img411.imageshack.us/img411/9427/adszvpv.th.jpg]
Kod:
Private Sub btn_TVAc_Click()
For Each Node In TreeView1.Nodes
Node.Expanded = True
Next
End Sub
Private Sub btn_TVKapa_Click()
For Each Node In TreeView1.Nodes
Node.Expanded = False
Next
End SubBunlar nodları açma kapama ve diğer istekleriniz de kolay. Onlar da sırası ile gelecek. Tabi sizden "bu projeye devam ediyorum" şeklinde bir cevap geldiği zaman...
yarın seçilen noda kadar açma olayı ondan sonraki gün gelinen kayda göre nodu bulma ve açma olayı
[img=http://img411.imageshack.us/img411/9427/adszvpv.th.jpg]
19/07/2009, 20:56
mehmeser
Merhaba,
Evet, kesinlikle bu kodlar kalacak. Siz şimdi geri dönmeseniz de aynı kodlar üzerinde uğraşacaktım.
Teşekkür ediyorum.
Evet, kesinlikle bu kodlar kalacak. Siz şimdi geri dönmeseniz de aynı kodlar üzerinde uğraşacaktım.
Teşekkür ediyorum.
20/07/2009, 08:27
esrefigit
şu açılışta ilk nodun id sinin gelmesi vardıya işte onun için kodun bazı yerlerinde değişiklik yapacaksın
burda diğerlerini biliyorsun ancak ilk noda gitme olayını nodes(1) işte bu ilk noda gitmeyi sağlıyor selected seçiyoruz expanded ile kapalı tutuyoruz ve akabinde sec fonksiyonunu çağırıyoruzki id yi metin kutusuna alsın
ve şu id yi ayr-ırma kodunuda fonksiyona dönüştürdük
var olan kodları bu şekilde değiştir bylelikle istekelerinden 3 ü yapılmış oldu
burda diğerlerini biliyorsun ancak ilk noda gitme olayını nodes(1) işte bu ilk noda gitmeyi sağlıyor selected seçiyoruz expanded ile kapalı tutuyoruz ve akabinde sec fonksiyonunu çağırıyoruzki id yi metin kutusuna alsın
Kod:
Private Sub Form_Load()
TreeView1.Nodes.Clear 'ağacı temizle
Call treeyap(TreeView1) 'ağaç yap
With TreeView1.Nodes(1)
.Selected = True
.Expanded = False
Call sec
End With
End SubKod:
Function sec()
Dim nodSelected As MSComctlLib.Node
Set nodSelected = Me.TreeView1.SelectedItem
If nodSelected.key Like "BirimId*" Then
Me.Metin5 = Mid(nodSelected.key, 8)
Else
Me.Metin5 = Null
End If
End Function