Skip to main content

AccessTr.neT


Forma Kısayol Menüsü Eklemek.

Forma Kısayol Menüsü Eklemek.

Çözüldü #1
buna yeni item ekleyeyim dedim ama olmadı
.rar GordonCBar.rar (Dosya Boyutu: 24,59 KB | İndirme Sayısı: 8)
@benbendedeilem
Cevapla
#2
Bu şekilde konu başlığı yazmaya devam ederseniz uyarı puanı alabilirsiniz.


(06/07/2009 23:57)AccessTr.neT Adlı Kullanıcıdan Alıntı: 6-) Açacağınız konunun başlığına “Şunu Yapamıyorum”, "Şurasını Yapamadım","SQL", "Access", "bu mümkün müdür?", "acil yardım", "lütfen yardım”, “bana yol gösterin”, “bir bakar mısınız”, “Otomobil Takip Programı”, “Eğitim Takip Programı”, “Cari Hesap Programı” vb. şeklinde yazmayınız, Sorunuzu/konunuzu kısaca özetleyecek şekilde yazınız. Konu başlığınız “Stok Takip” yerine “Açılan Kutu Sorunu” şeklinde olmalıdır. Bu kurala uymayan konular çöp kutusuna taşınır.
Sürekli ihlalde uyarı puanı verilecektir. 
Uyarı Bitiş Süresi : 4 Ay,
Uyarı Seviyesi +2



Eklediğiniz örnekteki modülde kısayol menüsü eklemek için kod mevcut. Ancak kod içerisinde yapılan değişiklikler için yani kısayol menüsünü yenilemek için kod eklemek, CreateContextMenu kodunu tetiklemek gerekli.

Modüldeki kodların tamamını

Visual Basic Code
Option Compare Database
Option Explicit

Public Sub CreateContextMenu()

Const strMenuName As String = "Form1_CommandBar"

Dim cbar As CommandBar
Dim bt As CommandBarButton

Application.CommandBars("Form1_CommandBar").Delete
    
    Set cbar = CommandBars.Add(strMenuName, msoBarPopup, , False)
    Set bt = cbar.Controls.Add
        bt.Caption = "Cut"
        bt.OnAction = "=fCut()"
        bt.FaceId = 21
    Set bt = cbar.Controls.Add
        bt.Caption = "Copy"
        bt.OnAction = "=fCopy()"
        bt.FaceId = 19
        
        
    Set bt = cbar.Controls.Add
        bt.Caption = "Test"
        bt.OnAction = "=bildir()"
        bt.FaceId = 42

End Sub

Function bildir()
    MsgBox "bildirdim"
End Function

Function fCut()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Cut")
End Function

Function fCopy()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Copy")
End Function

Function fPaste()
On Error Resume Next
    Application.CommandBars.ExecuteMso ("Paste")
End Function


kodu ile değiştir.

forma buton ekle, tıklandığında olayına da

Visual Basic Code
CreateContextMenu

kodu ekle.

Formu açıp butonu tıkladığında menü değişecektir.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
süpersin admin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da