Re: Userform ohne schliessen Kreuz mit Logo

Hallo Klaus,

Klaus Heinrich schrieb:
> danke für Dein Feedback. Es gab noch einen zweiten Fehler:
> Eine Anweisung hat das Menü total ausgeschaltet, daher konnte
> kein Logo dargestellt werden.

wenn das Systemmenü ausgeblendet wird, indem das Stilbit gelöscht wird,
wird auch kein Icon dargestellt.
Man kann aber auch nur einen Menüpunkt löschen, in dem Fall "Schließen".

lngSysMenu = GetSystemMenu(mlngForm, 0&)
DeleteMenu lngSysMenu, 6, MF_BYPOSITION

Das Kreuz wird dann ausgegraut dargestellt.
Das Schließen mit der Tastenkombination Alt-F4 muss aber in allen Fällen
gesondert behandelt werden, denn weder das Ausblenden des Systemmenüs,
noch eines einzelnen Punktes verhindert das.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

> Ich hab nen coding aus Frankreich bekommen, viel weniger Zeilen
> und funktioniert super. Kann ich bei Bedarf hier posten.

Würde mich auch interessieren.
Wenn du nicht immer ein Anzeige-Steuerelement mit einem Bild
mitschleifen willst, bietet sich die API ExtractIcon an.

strPath = Environ$("systemroot") & "\system32" & "\moricons.dll"
lngIcon = ExtractIcon(lngInst, strPath, 0)

Damit kannst du neben normalen .Ico Dateien auch die in Bibliotheken und
ausführbaren Dateien enthaltenen Icons nutzen

MfG
Michael

--
Michael Schwimmer http://michael-schwimmer.de
Excel VBA ISBN 3-8273-2183-2
Excel Programmierung - Das Handbuch ISBN 3-8606-3548-4
.

Relevant Pages

  • Re: Kennt sich jemand mit Check Point SecureClient =?ISO-8859-1?Q?f=FCr?= Mac aus?
    ... Mache dort erst mal "echo $SHELL", damit du rausfindest, welche shell du ... dann gibt es in /etc entsprechende Dateien ... Prev by Date: ... Next by Date: ...
    (de.comp.sys.mac.misc)
  • Re: Grausamkeit: Nokia 770 brauchbarer Newton-Ersatz...?
    ... mit der aktuellen Ausrichtung der ... Dr. rer. nat. Michael Engel - engel@xxxxxxxxxxxxxxxxxxxxxxxxx ... Prev by Date: ... Next by Date: ...
    (de.comp.sys.handhelds.newton)
  • Re: Öffnen lokaler Dateien / Pade
    ... In den Trefferlisten wird dann doch auch auf Dateien verwiesen, ... Michael Kruss ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.inetserver.iis.asp)
  • Re: Was ist eine "buckets.cab"-Datei
    ... der die aus "buckets.cab" extrahierten Dateien enthält. ... Lösche einfach den Ordner "WindowsUpdates" unter Programme und starte ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.german.windowsme)
  • Re: FileSearch
    ... > Ich habe mit folgender Zeile ein Problem ... > Die Namen der Dateien sind feststehend und sie liegen immer im aktiven ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.excel)