PDA

Vollständige Version anzeigen : Menüleiste


Rexrömmenen
29.08.2001, 10:06
Weiß jemand wie man ein Feld einer Menüleiste sperrt, daß es noch sichtbar ist aber nicht mehr betätigt werden kann?

thx

rexrömmenen

AZTEKKIS
29.08.2001, 13:07
Probiers mal damit:

Dim cbmenue As CommandBar

Set cbmenue = CommandBars("Menüleistenname")
'Ganze Menüleiste sperren
cbmenue.Enabled = True

'Nur den ersten Menüpunkt sperren
cbmenue.controls(1).enabled = True

Code bei Ereignis Formular-"Öffnen", "Aktivieren" oder "Deaktivieren" entsprechend mit "True" oder "False" eingeben.

Salut AZTEKKIS

Rexrömmenen
29.08.2001, 13:50
hey cool danke für die antwort.

mfg

Rexrömmenen

Rexrömmenen
29.08.2001, 14:00
hab aber nochn problem. hab a97 und des kennt anscheinend den befehl 'commandbar' nicht. gibt es nen ähnlichen befehl der die funktion auch erfüllt?

rex

Phillip-Berlin
29.08.2001, 14:20
commandbars gibt es auch unter ac97

der fehler wird wohl woanders liegen

poste doch mal deinen code

rexrömmene
29.08.2001, 14:32
der code ist wie oben:

Dim cbmenue As CommandBar
Set cbmenue = CommandBars("Menüleistenname")
'Ganze Menüleiste sperren
cbmenue.Enabled = True

'Nur den ersten Menüpunkt sperren
cbmenue.controls(1).enabled = True

als fehlermeldung kommt 'Benutzerdefinierter Typ nicht definiert'!
ich erinnere mich des hab ich schon mal probiert und da ist der selbe Fehler gekommen.

rex

AZTEKKIS
29.08.2001, 15:06
Hab noch vergessen, daß man einen Verweis setzen muß.

Aus de OH:
Sie stellen einen Verweis auf das Auflistungsobjekt CommandBars ein, indem Sie in der Modul-Entwurfsansicht im Menü Extras auf Verweise klicken. Stellen Sie im Dialogfeld Verweise einen Verweis auf die Microsoft Office 8.0 Object Library ein, indem Sie das entsprechende Kontrollkästchen aktivieren.

Salut AZTEKKIS

Phillip-Berlin
29.08.2001, 15:08
@Rexrömmenen

hast du denn eine menüleiste die menüleistenname heisst ? [:)
du musst dir natprlich erstmal eine menüleiste erstellen
und dieser einen namen geben .... meinetwegen: NeueMenueleiste
dann lautet der code

Dim cbmenue As CommandBar
Set cbmenue = CommandBars("NeueMenueleiste")
'Ganze Menüleiste sperren
cbmenue.Enabled = True

'Nur den ersten Menüpunkt sperren
cbmenue.controls(1).enabled = True

HTH

Rexrömmenen
30.08.2001, 09:05
also des funktioniert jetzt soweit, daß ich das ganze Menü sperren kann, aber man

1. die einzelnen menüpunkte nicht mit der '.enabled' Funktion ausblenden kann. dies geht nur mit .visible , dann kann ich sie nur einzeln ausblenden.

2. die Menüpunkte überhaupt nicht mehr sieht.

Kann man Die Menüpunkte so sperren, daß sie in grauer schrift noch zu sehen sind aber nicht mehr betätigt werden können?

schon mal danke für die hilfe :)

rex

Rexrömmenen
30.08.2001, 09:27
jo hat sich erledigt habs rausgefunden warums nicht gegangen is

thx