Teşekkür ederim canım kardeşim. Çok güzel görünüyor
Access formlarında. Case ile kodları da yazdımı süper oldu. Ellerine sağlık. Elimden gelse bir kenarına "bu düğmeleri sevgili kardeşim Bilgisayarcı bizim için hazırladı" yazardım. Ama senin bildiğin ve incelediğin o elektrikçiler için hazırladığım programın ana menüsünü tamamen yenileyip bu düğmeleri kullandım. Bütün buton click yordamlarını silip case select kodlarını yeniden yazdım. Bir haftadır kullanılıyor. Çok güzel oldu.. Şimdi senin de aynı kodları bu çalışmada kullandığını görünce yine de önünden geçeyim dedim. Sen zaten 1 ay önce bu kodları eklediğinde konuşmuştuk if mi case mi daha iyi olur diye. Tekrar teşekkürler.
Sayın Mehmet Demiral iltifatlar için teşekkür ederim. Lakin o yanarlı dönerli labelların iki versiyonu var. Birinde sadece labelleri diğerinde formun renklendirmesini de işin içine alarak yapıyor.LBRenkler formu da renklendirir. Zaman zaman güncelliyorum onları son hali bu örnektedir.
MouseClick olayını private function olarak kullanırsanız sorun da çıkarmaz.
Sanırım benim kullandığım modülde formun renklendirilmesi de yapılıyor. Formun alt ve üstünde mavi barlar oluşuyor, formun zemin rengi de değişiyor. Düğmelerin üzerine gelindiğinde yazı rengi beyaz ve koyu oluyor. Fark olarak benim farketmediğim bir şey mi ekledin?
Yok aynı şeylerden bahsediyoruz sorun yok. Eğer belirtilmezse MAVI renk kümesini default olarak kullanır. Form'un tag'ından istediğin renk kümelerininden birini seçebilirsiniz. (Gri,Yeşil Mor falan var) ya da koddan takip ederseniz o renklerin tamamını const olarak kullanıyor. Renkleri istediğiniz renklerle değiştirebilirsiniz. Efekt verme işlemleri o constları kullandığı için sadece renk atandığı yerde değişiklik yapmak yeterli olur.
Bu arada LBRenkler sanırım RSM1 görürse lbl1 ile eşleştirip resimli label haline getiriyordu. Yerleşimine kodla müdahale etmedim. İstediğin yere koyabilirsiniz diye. Ama rsm1 - lbl,1 rsm2 - lbl2 eşleştirmesi oto olarak yapılıyor...
Son bir ekleme: Form üst bilgi ve altbilgi de de buton koyulunca mousemove olaylarınında bi düzenleme yaptım. Örnekteki Bilgisayarci formunun en altına iki satır ekledim.
F.Section(acHeader).OnMouseMove = "=DetayMouseMove()"
F.Section(acFooter).OnMouseMove = "=DetayMouseMove()"
bunları eklersen tamamdır....
Sayın bilgisayarcı;
Çalışmaya büyük katkınızı heyecanla izledim ve arşivime ekledim. Katkılarınız ve emeğiniz için teşekkür ederim.
Sevgi ve saygılar..