Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserFrom minimieren

UserFrom minimieren
19.05.2006 11:31:33
Christian
Hallo zusammen,
ich habe eine Userform zur Datenefassung erstellt hinter der die Datenbank liegt. Nun möchte ich gerne den normalen "Minimieren - Maximieren"-Button oben am Rand haben, damit ich nicht dauernd die Eingabemaske manuell nach unten ziehen muss, wenn ich die Eingaben kontrollieren möchte.
Kann mir da jemand weiterhelfen?
Grüsse, Christian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserFrom minimieren
19.05.2006 11:33:20
Gerd
Hi,
schon mal die Recherche befragt? 56 Treffer.
mfg Gerd
AW: UserFrom minimieren
19.05.2006 11:50:56
Christian
yep, grade gemacht aber da steht nix passendes...
gruss, christian
AW: UserFrom minimieren
19.05.2006 15:43:15
Thomas
Hallo Christian,
auf meiner Webseite findest Du bei den Beispielen eine Klasse, die das (und noch mehr) kann.
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - Web Services
AW: UserFrom minimieren
19.05.2006 17:47:57
Christian
Hallo Thomas,
erstmal danke, aber leider frisst der debugger den Initialize - Befehl nicht. Ist es schon richtig das ich diesen in der Userfrom verankere?
gruss, christian
Anzeige
AW: UserFrom minimieren
20.05.2006 18:24:41
Thomas
Hi,
versuch's mal hiermit, ist etwas einfacher gestrickt (in's Klassenmodul der UserForm kopieren) ...


Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
 ByVal lpClassName As StringByVal lpWindowName As StringAs Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
 ByVal hwnd As LongByVal nIndex As LongAs Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
 ByVal hwnd As LongByVal nIndex As LongByVal dwNewLong As LongAs Long
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZEBOX = &H20000
Const WS_SYSMENU = &H80000
Const WS_THICKFRAME = &H40000
Const GWL_STYLE = (-16)
Private Sub UserForm_Initialize()
    Dim hwnd As Long, lStyle As Long
    Select Case Int(Val(Application.Version))
        Case 8
            hwnd = FindWindow("ThunderXFrame", Me.Caption)
        Case 9, 10, 11
            hwnd = FindWindow("ThunderDFrame", Me.Caption)
    End Select
    lStyle = GetWindowLong(hwnd, GWL_STYLE)
    SetWindowLong hwnd, GWL_STYLE, lStyle Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX Or WS_THICKFRAME
End Sub


Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - Web Services
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige