UserForm gesamter Bildschirm

Forumthread: UserForm gesamter Bildschirm

28.08.2004 11:04:52

Philipp

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UserForm gesamter Bildschirm

28.08.2004 11:28:11

Nepumuk
Danke Super

28.08.2004 12:16:52

Philipp
Hallo Kann man noch...

28.08.2004 12:22:58

Philipp
AW: Hallo Kann man noch...

28.08.2004 12:30:32

Nepumuk
AW: Hallo Kann man noch...

28.08.2004 15:00:22

philipp
AW: Hallo Kann man noch...

Ulf

AW: UserForm gesamter Bildschirm

28.08.2004 11:28:11

Nepumuk

Hallo Philipp,
so geht's:

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 = 0
        .Left = 0
        .Height = GetDeviceCaps(GetDC(0&), 8)
        .Width = GetDeviceCaps(GetDC(0&), 10)
    End With
    ReleaseDC 0, GetDC(0&)
End Sub

Gruß
Nepumuk

Danke Super

28.08.2004 12:16:52

Philipp

Hallo Nepumuk,
funktioniert SUPER, DANKE.
Gruss
Philipp

Hallo Kann man noch...

28.08.2004 12:22:58

Philipp

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

AW: Hallo Kann man noch...

28.08.2004 12:30:32

Nepumuk

Hallo Philipp,
man kann, frau auch:

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 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

AW: Hallo Kann man noch...

28.08.2004 15:00:22

philipp

Hallo Nepumuk,
herzlichen Dank.
Super funktioniert!
Gruss Philipp

AW: Hallo Kann man noch...

Ulf

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

Beliebteste Forumthreads (12 Monate)

Forumthread: UserForm gesamter Bildschirm

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread