Hi,

ich habe eine frage.

Wie kann ich unter VB6 das X recht oben im Fenster anspechen?

also wenn jemand das Fenster mix X schliesen will soll etwas passieren.

danke

mfg
GeCko

Wenn das X geklickt wird tritt das Form_Unload(Cancel as integer) - Ereignis auf, da kannst du tun was du tun willst! um ein schließen zu verhindern setzt du Cancel <> 0

Leider gilt diese Ereignis dann auch bei dem normalen Unload Me befehl, den ich benutze.

gibt es keine andere Möglichkeit das X anzusprechen oder kompkett abzustellen?

wie z.b.
X.Enable=False


danke für die Hilfe

mfg
GeCko

Du kannst in den Frameeigenschaften die Titelleiste komplett rausnehmen.

ein schlampiger Weg, wäre statt
unload.me
einfach nur
me.hide
zu machen

Du kannst es deakivieren:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'APIS  Private Declare Function GetSystemMenu Lib "user32" (ByVal _       hWnd As Long, ByVal bRevert As Long) As Long    Private Declare Function DeleteMenu Lib "user32" (ByVal _       hMenu As Long, ByVal nPosition As Long, ByVal _       wFlags As Long) As Long    Private Declare Function DrawMenuBar Lib "user32" (ByVal _       hWnd As Long) As Long    Private Const SC_CLOSE = &HF060  Private Const MF_BYCOMMAND = &H0      'Aktiviere X       GetSystemMenu Me.hWnd, True  'Deaktiviere X       DeleteMenu GetSystemMenu(Me.hWnd, False), SC_CLOSE, MF_BYCOMMAND

thx M4st3r
genau das habe ich gebraucht

Danke an alle

mgf
GeCko

Du kannst auch einfach das QueryUnload-Ereignis verwenden. Dort kannst du der Variable "UnloadMode" entnehmen, auf welche Weise das Schließen der Form eingeleitet wurde. (In dem Enum "QueryUnloadConstants" (siehe Objektkatalog mit F2) findest du die Beschreibungen der Werte von "UnloadMode".
Kleines Beispiel:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

[color=blue]Private Sub[/color] Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case vbAppTaskManager [color=green]    '-->Anwendung wird vom Windows Task-Manager geschlossen.[/color] Case vbAppWindows [color=#008000]  '-->Aktuelle Windows-Sitzung wird beendet.[/color] Case vbFormCode [color=#008000]  '-->Unload-Methode wurde aus dem Code aufgerufen.[/color] Case vbFormControlMenu [color=#008000]  '-->Der Benutzer hat aus dem Systemmenüfeld im Formular den Befehl "Schließen" gewählt. (also das Ereignis das du Abfangen willst)[/color] Case vbFormMDIForm [color=#008000]  '-->Untergeordnetes MDI-Formular wird geschlossen, da das MDI-Formular geschlossen wird.[/color] Case vbFormOwner [color=#008000]  '-->Der Besitzer des Formulars schließt.[/color] End Select [color=blue]End Sub[/color]