Toolbar Örneği - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html) +--- Konu Başlığı: Toolbar Örneği (/konu-toolbar-ornegi--8544.html) |
Cvp: Toolbar Örneği - Coskun0559 - 29/09/2010 (29/09/2010, 11:08)coskun_cakal yazdı: syn estapan; tamamdır örneği güncelledim.bi bakın If ButtonMenu.Key = "sled" Then MsgBox "sledgeab Hocam Merhaba Nasılsın..." End If kod bu şekilde button menü yordamına yazıyosun ama toolbarda her alt menü için bi key vermen lazım.vermiş olduğun key kod sayfasında butonunu temsil ediyor. ben örneğin değişik ve biraz daha gelişmiş versiyonunu hazırlıyorum onuda paylaşacam şimdilik kolay gelsin Cvp: Toolbar Örneği - estapan - 29/09/2010 ÇOK TEŞEKKÜRLER... Cvp: Toolbar Örneği - estapan - 29/09/2010 sn coskun_cakal, yazdığınız komutu denedim fakat olmadı. accesstr ye basınca ardından tamam dümesine basınca çıkıyor. Yani direk alt menüden tercih yapılamıyor. .Yaptığınız örneği sabırsızlıkla bekliyoruz. paylaşımınız için teşekkürler.. Cvp: Toolbar Örneği - Coskun0559 - 29/09/2010 (29/09/2010, 12:00)estapan yazdı: sn coskun_cakal, ofisi kuruyorum örneği fırına sürücem birazdan çıkınca hep birlikte tadarız Cvp: Toolbar Örneği - ercansahin - 29/09/2010 Sn coskun_cakal, güzel örnek için teşekkürler. Cvp: Toolbar Örneği - Coskun0559 - 30/09/2010 öncelikle belirteyim 1. mesajdaki örnekten farklı olduğu için 1. mesajdaki örneği güncellemedim.yeniden ekledim. bu kez 2 adet imagelist nesnesi kullandım ve menülerin hareketli olmasını sağladım. syn estepanın uyarıs ile kodları değiştirdim Private Sub Toolbar0_ButtonClick(ByVal Button As Object) '/////////////////coşkun ' Çakal//////////////// bu alana yazılan kodlar toolbar nesnesindeki ana menüler için On Error Resume Next Select Case Button.Key Case "not" Dim stAppName As String stAppName = "C:\WINDOWS\NOTEPAD.EXE" Call Shell(stAppName, 1) Case "kapat" DoCmd.Quit acQuitSaveAll End Select End Sub Private Sub Toolbar0_ButtonMenuClick(ByVal ButtonMenu As Object) '/////////////////coşkun ' Çakal//////////////// bu alana yazılan kodlar toolbar nesnesindeki alt menüler içindir. If ButtonMenu.Key = "fk" Then MsgBox "Farklı Kaydet Seçildi" 'toolbar üzerindeki ilk menüde(kaydet) ve ona ait alt menüde farklı kaydet (fk) menüsünün çalışması için gerekli kod DoCmd.Save End If If ButtonMenu.Key = "dk" Then MsgBox "Diskete Kaydet Seçildi" End If If ButtonMenu.Key = "cdk" Then MsgBox "CD Ye Kaydet Seçildi" End If End Sub |