Skip to main content

AccessTr.neT


Toolbar Örneği

Toolbar Örneği

#7
(29/09/2010, 11:08)coskun_cakal yazdı: syn estapan;
bilgisayarımda bi sorun oluştu format atıyorum.programı dediğiniz şekilde yapmaya çalışcam ve gönderecem.

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
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Son Düzenleme: 29/09/2010, 11:39, Düzenleyen: Coskun0559.
Cevapla
#8
ÇOK TEŞEKKÜRLER...
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla
#9
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..
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla
#10
(29/09/2010, 12:00)estapan yazdı: 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..

ofisi kuruyorum örneği fırına sürücem birazdan çıkınca hep birlikte tadarız Sick0021
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
#11
Sn coskun_cakal, güzel örnek için teşekkürler.
Cevapla
#12
ö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


.rar TOOLBAR.rar (Dosya Boyutu: 42,71 KB | İndirme Sayısı: 38)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Son Düzenleme: 30/09/2010, 09:34, Düzenleyen: Coskun0559.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task