Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

UserForm gesamter Bildschirm

Betrifft: UserForm gesamter Bildschirm von: Philipp
Geschrieben am: 28.08.2004 11:04:52

Hallo,
ich möcht meine UserForm über den gesamten Bildschirm haben, habe schon versucht
siehe Makro.
Jedoch ist bei mir die UserForm links noch etwas Frei und recht oben sehe
ich nicht das Kreuz in der Leiste.
Geht das auch das ich "Unten" die gesamte Office Leiste abdecken kann ???
Gruß
Philipp
Hier mein Makro:

Private Sub UserForm_Initialize()
  With UserForm1
      .Height = Application.Height
      .Width = Application.Width 
  End With
End Sub



  


Betrifft: AW: UserForm gesamter Bildschirm von: Nepumuk
Geschrieben am: 28.08.2004 11:28:11

Hallo Philipp,
so geht's:


Option Explicit

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As LongByVal nIndex As LongAs Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As LongAs Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As LongByVal hdc As LongAs Long

Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 0
        .Top = 0
        .Left = 0
        .Height = GetDeviceCaps(GetDC(0&), 8)
        .Width = GetDeviceCaps(GetDC(0&), 10)
    End With
    ReleaseDC 0, GetDC(0&)
End Sub


Gruß
Nepumuk


  


Betrifft: Danke Super von: Philipp
Geschrieben am: 28.08.2004 12:16:52

Hallo Nepumuk,
funktioniert SUPER, DANKE.
Gruss
Philipp


  


Betrifft: Hallo Kann man noch... von: Philipp
Geschrieben am: 28.08.2004 12:22:58

Hallo Nepumuk,
kann man noch etwas erweitern das man nicht verschieben kann ?

Gruss Philipp


  


Betrifft: AW: Hallo Kann man noch... von: Nepumuk
Geschrieben am: 28.08.2004 12:30:32

Hallo Philipp,
man kann, frau auch:


Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As StringAs Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As LongByVal bRevert As LongAs Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As LongByVal nPosition As LongByVal wFlags As LongAs Long

Private Sub UserForm_Activate()
    Dim hwndForm As Long, hwndMenu As Long
    hwndForm = FindWindow(vbNullString, Me.Caption)
    If hwndForm <> 0 Then
          hwndMenu = GetSystemMenu(hwndForm, 0)
          If hwndMenu <> 0 Then DeleteMenu hwndMenu, &HF010, &H0
    End If
End Sub


Gruß
Nepumuk


  


Betrifft: AW: Hallo Kann man noch... von: philipp
Geschrieben am: 28.08.2004 15:00:22

Hallo Nepumuk,
herzlichen Dank.
Super funktioniert!
Gruss Philipp


  


Betrifft: AW: Hallo Kann man noch... von: Ulf
Geschrieben am: 28.08.2004 17:38:25

Option Explicit

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 0
        .Top = -25
        .Left = 0
        .Height = GetDeviceCaps(GetDC(0&), 8)+25
        .Width = GetDeviceCaps(GetDC(0&), 10)
    End With
    ReleaseDC 0, GetDC(0&)
End Sub


Ulf


 

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