UserForm

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: UserForm
von: Chris
Geschrieben am: 23.05.2002 - 17:38:05

Hallo,

ich nutze unter Excel VBA und habe einige UserFormen für ein kleines Programm. Jede UserForm besitzt das kleine typische X in der rechten oberen Ecke, wie jedes Windows Fenster. Damit lässt sich die UserFrom auch schliessen. Ich möchte aber das dies NICHT möglich ist. Wie kann ich also verhindern das sich die UserForm schliesst, wenn ich auf dieses "x" drücke mit meiner Maus.


Mit freundlichen Grüßen

Chris


nach oben   nach unten

Re: UserForm
von: andreas e
Geschrieben am: 23.05.2002 - 17:41:20

hallo chris

versuchs so :


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'   Damit mit X nicht geschloßen werden kann
    If CloseMode = 0 Then
        MsgBox "Bitte schließen Sie die Anwendung mit der -Ende- Schaltfläche.", vbCritical
        Cancel = 1
    End If
End Sub

gruß
andreas e

http://www.skripteundaufgaben.de viele kostenlose downloads zu excel und mehr

nach oben   nach unten

Re: UserForm
von: Frank
Geschrieben am: 23.05.2002 - 17:54:16

Hallo Chris,

Versuch es mal hiermit!
In den allg. Teil einfügen !

'zunächst die benötigten Deklarationen
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

'Entfernen des Schließen-Symbols
Public Sub DisableCloseButton(hWnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar hWnd
End If
End Sub


Beispiel:

Private Sub Form_Load()
DisableCloseButton Me.hWnd
End Sub

nach oben   nach unten

Re: UserForm
von: Michael Scheffler
Geschrieben am: 24.05.2002 - 08:51:59

Hallo,

schau Dir mal auf der Homepage von Stephen Bullen die angebotenen Excel-Klassen an. Da ist eine dabei (FormFun), mit der kannst Du das "x" aus der Form rausbekommen und andere Dinge treiben.

Gruß

Micha


nach oben   nach unten

Danke für alle Ideen! Es funktioniert -)
von: Chris
Geschrieben am: 24.05.2002 - 15:00:49

Danke

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "UserForm"