Button

Udo · 2004-12-12T10:32:09+00:00

Hallo Zusammen, ich habe folgende Fragen 1) Wie heißt der Code für Button, damit Excel beendet wird. 2) Kann man eine Userform so steuern das diese Bildschirmfüllend ist und Excel nicht mehr sichtbar ist, wenn ja wie. Danke und einen schönen 3 Advent Udo

Hi Boris und Udo,
... bildschirmfüllend, wenn Excel SELBST MAXIMIERT ist.
Hier aus dem Forum eine Möglichkeit, wie die UF in jedem Fall bildschirmfüllend dargestellt wird, egal wie groß Excel selbst ist.


Private Sub UserForm_Initialize()
'Me.Height = Application.Height
'Me.Width = Application.Width
Dim sSize As String
sSize = ScreenResolution
With Me
.Width = Left(sSize, InStr(sSize, "x") - 1)
.Height = Right(sSize, Len(sSize) - _
InStr(sSize, "x"))
.Left = 0
.Top = 0
End With
End Sub

Und in ein Standardmodul:
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10
Function ScreenResolution()
'Funktion für die Darstellung der UF auf Bildschirmgröße, _
wird in "Userform_Initialize" aufgerufen:
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long

lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)

ScreenResolution = lHSize & "x" & lVSize
End Function
Grüße
Franz

Hallo Udo,
das Ganze geht nur in Verbindung mit dem ganzen Rest, den ich angegeben habe!!! Hier noch mal: Das unten stehende muss in ein normales Modul kopiert werden!!!! Das gehört zu dem anderen Code zwingend dazu!!!
Also die folgenden Zeilen von "Anfang" bis "Ende" in ein normales Modul kopieren:
Anfang:
Declare


Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Declare 

Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare 

Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10

Function ScreenResolution()
'Funktion für die Darstellung der UF auf Bildschirmgröße, _
wird in "Userform_Initialize" aufgerufen:
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function


Ende

Grüße

Franz

Forumthread: Button

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Button

Forumthread: Button

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread