Ribbon Menü Örneği 2 | Kontolleri Gizleme veya Pasif Yapma |

Merhaba arkadaşlar..

Hazırladığımız menülerde bazı kontrolleri şartlara göre gizlemek/göstermek ya da pasif/akttif yapmak isteyebiliriz.. Bu durumda XML hazırlarken bir kaç ilave düzenleme yapmamız gerekir..

Standart bir button (düğme) elementi bu şekilde..:

XML

<button id="btn14" size="large" label="Düğme 2" 
imageMso = "DistributionListUpdateMembers" onAction="DugmeOlaylari" />

Gizlemek için kontrolün getVisible özelliğini kullanıp fonksiyon ile müdahele etmek gerekir..:

XML

<button id="btn14" size="large" label="Düğme 2" 
imageMso = "DistributionListUpdateMembers" onAction="DugmeOlaylari" getVisible="GetVisible"  />

Pasif yapmak için ise getEnabled özelliğini kullanıyoruz..:

XML

<button id="btn14" size="large" label="Düğme 2" 
imageMso = "DistributionListUpdateMembers" onAction="DugmeOlaylari" getEnabled="GetEnabled"  />

Kontrol, fonksiyon, değişken tanımları ve şartları VBA editöründe bu şekilde olmalı..:

Visual Basic

Public gobjRibbon As IRibbonUI
Public bolCtlEnabled        As Boolean
Public bolCtlVisible        As Boolean
 
Public Sub OnRibbonLoad(ribbon As IRibbonUI)
 
    Set gobjRibbon = ribbon
    bolCtlVisible = True
    bolCtlEnabled = True
 
End Sub
 
Public Sub GetEnabled(control As IRibbonControl, ByRef enabled)
 
    Select Case control.ID
 
        Case Else
            enabled = bolCtlEnabled
    End Select
 
End Sub
 
Public Sub GetVisible(control As IRibbonControl, ByRef visible)
 
    Select Case control.ID
 
        Case Else
            visible = bolCtlVisible
    End Select
 
End Sub

Bir kontrolü gizlemek için bu prosedürü kullanabiliriz..:

Visual Basic

bolCtlVisible = 0 '-1 göstermek için
gobjRibbon.InvalidateControl "kontrol ID si"

Ekteki dosyada bu konuda farklı örnekler hazırladım..

Son olarak bir de ipucu vereyim: Tab ve Gruplar gizlenebilir fakat pasif edilemez..

Çok işime yaradı.

Merhaba,
Taruz hocamın ek dosyası silinmiş tekrar ekleme imkanı varmı.

Saygılarımla.