UserForm auf Screenresolution anpassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Geliebte K.Rola,
ooops, da hab ich gar nicht dran gedacht, da ich das mit einem leeren Form getestet habe. Aber solange sich der Verursacher der Antwort nicht meldet scheint es Ok zu sein.
Ich bin übrigens der globalen Lautstärkeeinstellung auf die Schliche gekommen. Wenn es ausgereift ist, dann gebe ich laut.
Hast du das After_Print zum laufen gebracht? Ich habe das bei VB-fun als Tipp angemeldet. Angie hat es auf Herz und Nieren getestet und für gut befunden. Ist zwar noch nicht aufgenommen, aber sie meldet sich wieder.
Mit dem Officeclipboard in XP habe ich noch keine Infos, da ich keine Zeit zum testen hatte. Muss auch manchmal arbeiten auf der Arbeit.
Momentan steh Mitarbeiterschulung auf dem Programm, kennst du eine Trick, mit der sich mit einem Mausklick alle Anzeigen einer Fremdanwendung von deutsch auf türkisch / griechisch / russisch und analphabetisch umschalten lässt? Gut wäre ein System, das erkennt wer vor der Kiste sitzt eventuell auszulesen daran, mit wie viel Kilogramm die Mausbuttons betätigt werden?
Glühendheiße Grüße
Nepumuk

Hallo,
nein das funktioniert so wie von Nepomuk geschildert doch nicht so ganz, bin aber trotzdem woanders fündig geworden, also es geht so:
StandardModule: basMain
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()
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
Sub CallForm()
frmFullSize.Show
End Sub
ClassModule: frmFullSize


Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
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

Für alle die das Gleiche Problem haben, aber trotzdem vielen Dank.
Grüsse
Drazen

Beliebteste Forumthreads (12 Monate)

UserForm auf Screenresolution anpassen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm auf Screenresolution anpassen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread