Thema Datum  Von Nutzer Rating
Antwort
Rot UserForminhalte Auslösung anpassen
 02.03.2007 10:35:40 Beachy
NotSolved
04.03.2007 09:19:17 Rasta
NotSolved
08.03.2008 21:15:40 Neuhier
NotSolved

Ansicht des Beitrags:
Von:
Beachy		 Datum:
02.03.2007 10:35:40		 Views:
2496		 Rating:
     
Antwort:
  Ja
Thema:
UserForminhalte Auslösung anpassen
Hallo zusammen,

ich habe eine Automatische Bildschirmanpassung für mein UserForm.
Jetzt habe ich aber noch das Problem das er die Inhalte nicht automatisch der Größe anordnet.
Kann mir da jemand bitte weiterhelfen.
Hier mein Code für die Bildschrimauflösung [der kann auch gerne verschwinden wenn es einen schöneren gibt : ) ]

'Bildschirmauflösung

Private Declare Function GetSystemMetrics Lib _
"user32" (ByVal nIndex As Long) As Long
Private Const SM_CYSCREEN As Long = 1
Private Const SM_CXSCREEN As Long = 0

'Position

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Private Declare Function MoveWindow Lib "user32" (ByVal hwnd _
As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal bRepaint As Long) As Long

'Starten einer Userform im Vollbildmodus


Private Sub UserForm_Activate()
BildschirmBreite = GetSystemMetrics(SM_CXSCREEN)
BildschirmHöhe = GetSystemMetrics(SM_CYSCREEN)
wHandle = FindWindow(vbNullString, Me.Caption)
MoveWindow wHandle, 0, 0, BildschirmBreite, BildschirmHöhe, 1
End Sub



Danke für eure Bemühen

Gruß Beachy

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot UserForminhalte Auslösung anpassen
 02.03.2007 10:35:40 Beachy
NotSolved
04.03.2007 09:19:17 Rasta
NotSolved
08.03.2008 21:15:40 Neuhier
NotSolved