Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Userform Teil 8 In Bildschirmgröße
zurück: Tipp: PDF erzeugen mit VBA weiter: Einführung in die Regressionsanalyse Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nepumuk
VB / VBA Programmierer


Verfasst am:
11. März 2007, 20:29
Rufname: Max
Wohnort: Dusseldoof


Userform Teil 8 In Bildschirmgröße - Userform Teil 8 In Bildschirmgröße

Nach oben
       Version: Office 2k (2000)

Teil 8: In Bildschirmgröße

1. Mit Titelleiste:

Code:
Option Explicit

Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
    ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0&
Private Const SM_CYSCREEN = 1&

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
        .Top = 0
        .Left = 0
        .Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
        .Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
    End With
End Sub


2. Ohne Titelleiste:

Code:
Option Explicit

Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
    ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" ( _
    ByVal hwnd As Long) As Long

Private Const GWL_STYLE = -&H10
Private Const WS_CAPTION = &HC00000
Private Const GC_CLASSNAMEMSUSERFORM = "ThunderDFrame"
Private Const SM_CXSCREEN = 0&
Private Const SM_CYSCREEN = 1&

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim hWndForm As Long
    hWndForm = FindWindow(GC_CLASSNAMEMSUSERFORM, Me.Caption)
    If hWndForm <> 0 Then
        SetWindowLong hWndForm, GWL_STYLE, GetWindowLong(hWndForm, GWL_STYLE) And Not WS_CAPTION
        DrawMenuBar hWndForm
        With Me
            .StartUpPosition = 0
            .Top = 0
            .Left = 0
            .Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
            .Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
        End With
    End If
End Sub


3. Controls anpassen:

Code:
Option Explicit

Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
    ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Sub UserForm_Activate()
    Dim sngWidth As Single, sngHeight As Single
    sngWidth = Me.Width
    sngHeight = Me.Height
    Me.Left = 0
    Me.Top = 0
    Me.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
    Me.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
    Me.Zoom = Fix(WorksheetFunction.Min(Me.Width / sngWidth, Me.Height / sngHeight) * 100)
End Sub

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zellenbezug einer Formel zum Teil fixieren 6 -easyrider75- 4444 16. Aug 2008, 21:15
-easyrider75- Zellenbezug einer Formel zum Teil fixieren
Keine neuen Beiträge Excel Formeln: Teil einer Formel Fett ? 1 ReneG8 2011 24. Jul 2008, 08:51
ReneG8 Teil einer Formel Fett ?
Keine neuen Beiträge Excel Formeln: Teil der Zelle zwischen zeichen ersetzen 2 Mandrake 3542 30. Jun 2008, 11:58
Mandrake Teil der Zelle zwischen zeichen ersetzen
Keine neuen Beiträge Excel Formeln: Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge 3 Steph95 1722 28. Mai 2008, 17:43
Heinz Schweigert Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge
Keine neuen Beiträge Excel Formeln: Summenprodukt Teil einer zahl suchen und zählen 11 formicacid 3331 28. Mai 2008, 17:09
HermannZ Summenprodukt Teil einer zahl suchen und zählen
Keine neuen Beiträge Excel Formeln: Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2 2 Ruhrpottfriese 499 19. Mai 2008, 10:19
Ruhrpottfriese Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2
Keine neuen Beiträge Excel Formeln: Summenprodukt mit Bedingung Teil der Zelle zB *NAV* ??? 5 Tobias.Sturm 1700 13. Mai 2008, 17:17
Tobias.Sturm Summenprodukt mit Bedingung Teil der Zelle zB *NAV* ???
Keine neuen Beiträge Excel Formeln: Registername in Zelle ausgeben - aber nur Teil davon 2 Gast 3643 03. Mai 2008, 22:40
Gast Registername in Zelle ausgeben - aber nur Teil davon
Keine neuen Beiträge Excel Formeln: Aus einer Zelle ein Teil entnehmen 2 Rantanplan78 389 17. Apr 2008, 08:31
Rantanplan78 Aus einer Zelle ein Teil entnehmen
Keine neuen Beiträge Excel Formeln: teil aus zeile löschen 4 freshbarcode 1112 25. Feb 2008, 20:50
freshbarcode teil aus zeile löschen
Keine neuen Beiträge Excel Formeln: teil der werte vergleichen und diese dann nicht übernehmen?? 2 redcab 486 11. Feb 2008, 12:07
Gast teil der werte vergleichen und diese dann nicht übernehmen??
Keine neuen Beiträge Excel Formeln: Kann Mir Jemand Helfen - WENN, SVERWEIS, TEIL 2 Ekin 799 13. Nov 2007, 16:36
Claudy Kann Mir Jemand Helfen - WENN, SVERWEIS, TEIL
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum