ö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
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 !
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Son Düzenleme: 30/09/2010, 09:34, Düzenleyen: Coskun0559.
