title image


Smiley Re: Menüelement mit einem Haken versehen
Hab dazu folgende Acc97-Function:Function AQSCommandBarsMenuItemCheck(strMenuBarName$, nMenu%, ByVal nItem%, ByVal nSubItem%, bCheck%)' 3.40.26 CVDim tbrPopup As CommandBarPopupDim tbrPopupItem As CommandBarControlDim tbrPopupButton As CommandBarButtonOn Error Resume NextSet tbrPopup = CommandBars(strMenuBarName).Controls(nMenu)If nSubItem = 0 Then ' * Check/Uncheck item Set tbrPopupButton = tbrPopup.Controls(nItem) tbrPopupButton.FaceId = IIf(bCheck, 990, 0) Else ' * Check/Uncheck sub-item Set tbrPopupItem = tbrPopup.Controls(nItem) Set tbrPopupButton = tbrPopupItem.Controls(nSubItem) tbrPopupButton.FaceId = IIf(bCheck, 990, 0) End IfEnd FunctionMit Access 2.0 geht´s auch aber dazu mußt du ne WinAPI-Funktion benutzen. Bei Bedarf: nachfragen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: