Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sevMenuXP v2 nach visible=False/True in falscher Position
Autor: emersonlakeandpalmer
Datum: 20.06.13 11:31
Die von mir gebildet MenuBar soll sowohl in der Menuleiste, als auch den anhängenden Pulldown Menus nur die Funktionen anzeigen, welche auch im jeweiligen Zustand sinnvoll sind. In den Pulldown-Menus funktioniert alles so wie erwartet: d.h. beliebiges Umschalten (.visible) für dazu das die Pulldownmenupunkte jeweils wieder in der Abfolge deren Erstellung dargestellt werden. Innerhalb der Menuleiste des MDI jedoch nicht! Private Sub MDIForm_Load() 'Menü anlegen Dim mnuFile As sevMenuXP.MenuItem Dim mnuEdit As sevMenuXP.MenuItem Dim mnuTool As sevMenuXP.MenuItem Dim mnuWindow As sevMenuXP.MenuItem Dim mnuHelp As sevMenuXP.MenuItem Dim mnuRows As sevMenuXP.MenuItem Dim mnuNKO As sevMenuXP.MenuItem Dim mnuTeil As sevMenuXP.MenuItem Dim mnuDummy As sevMenuXP.MenuItem With MenuBar1.MenuItems ' ImageList zuweisen Set MenuBar1.ImageList = ImageList1 ' Style MenuBar1.Style = mnuOffice2003 'mnuOfficeXP MenuBar1.Font.Name = "Arial" MenuBar1.Font.Size = 11 ' Main-Menus erstellen Set mnuFile = .Add(" &Datei ", "Datei") Set mnuEdit = .Add(" Bearbeiten ", "Bearbeiten") Set mnuTool = .Add(" Werkzeuge ", "Werkzeuge") Set mnuWindow = .Add(" Fenster ", "Fenster") Set mnuHelp = .Add(" Hilfe ", "Hilfe") Set mnuDummy = .Add("-", "Dummy") 'Trennung zwischen den Standard Menüs und spezifischen Menüs wenn mindestens eine Datei geöffnet ist Set mnuRows = .Add(" Zeilen ", "Zeilen") Set mnuNKO = .Add(" Nachkommastellen ", "NKO") Set mnuTeil = .Add(" zus. Teil ", "Teil") ... End sub Für nach dem Setup der Menupunkte durch : Sub SetMenu() Set d = mf.MenuBar1.MenuItems Nester = (lCol - iCol) / iWth + 1 On Error Resume Next Zeilen = mf.ActiveForm.sevHand.Rows > 0 d.Item("Dummy").Visible = dCount > 0 d.Item("Datei").Visible = True d.Item("Ansicht").Visible = dCount > 0 And Nester > 0 d.Item("Bearbeiten").Visible = dCount > 0 d.Item("Werkzeuge").Visible = dCount > 0 d.Item("Fenster").Visible = dCount > 0 d.Item("Hilfe").Visible = True d.Item("Hinzu").Visible = dCount > 0 d.Item("Schließen").Visible = dCount > 0 d.Item("Speichern").Visible = dCount > 0 d.Item("SpeichernUnter").Visible = dCount > 0 d.Item("SpeichernAlle").Visible = dCount > 1 d.Item("Eigenschaften").Visible = dCount > 0 And Zeilen d.Item("Drucken").Visible = dCount > 0 d.Item("Eigenschaft").Visible = dCount > 0 And Zeilen d.Item("Report").Visible = dCount > 0 And Zeilen d.Item("ExportExcel").Visible = dCount > 0 And Zeilen d.Item("Drucken").Visible = dCount > 0 And Zeilen d.Item("Senden").Visible = dCount > 0 And Zeilen d.Item("Überlappend").Visible = dCount > 1 d.Item("Nebeneinander").Visible = dCount > 1 d.Item("Übereinander").Visible = dCount > 1 d.Item("Arrangieren").Visible = dCount > 1 d.Item("Zeilen").Visible = dCount > 0 d.Item("LeerZeilenEntfernen").Visible = dCount > 0 And Zeilen d.Item("NKO").Visible = dCount > 0 And Zeilen d.Item("Teil").Visible = dCount > 0 d.Item("TeileSortieren").Visible = dCount > 0 And Nester > 1 End Sub Zur Menupunktfolge in der Menuleiste: Bearbeiten Werkzeuge Fenster Datei | Zeilen Nachkommastellen zus. Teil Hilfe Warum?

sevMenuXP v2 nach visible=False/True in falscher Position	1.027	emersonlakeandp...	20.06.13 11:31
Re: sevMenuXP v2 nach visible=False/True in falscher Positio...	482	Franki	22.06.13 03:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen