Größenänderung zur Laufzeit Fenster und/oder Objekte per API zur Laufzeit positionieren und in der Größe anpassen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  19.179
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 7 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgender API-Funktion läßt sich ein Fenster oder Objekt zur Laufzeit positionieren und in der Größe anpassen.

' Hier die benötigte API-Funktion
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
 
' Fenster positionieren und Größe anpassen
Private Sub Form_Load()
  MoveWindow Me.hwnd, 200, 200, 350, 400, 1
End Sub

Anmerkungen:
Die Angaben x, y, nWidth, nHeight müssen in Pixel angegeben werden. Der letzte Parameter legt fest, ob das Fenster/Objekt automatisch "neugezeichnet" werden soll (1=neuzeichnen / 0=kein autom. Neuzeichnen)

Mit dieser API-Funktion ist es auch möglich z.B. die "Aufklapp-Höhe" einer Combobox zu ändern.

' Aufklapphöhe einer Combobox festlegen
Public Sub SetComboDropDownHeight(Combo As ComboBox, _
  ByVal lpHeight As Long)
 
  Dim OldScaleMode As Integer
 
  With Combo
    OldScaleMode = .Parent.ScaleMode
    .Parent.ScaleMode = vbPixels
    MoveWindow Combo.hWnd, .Left, .Top, .Width, lpHeight, 1
    .Parent.ScaleMode = OldScaleMode
  End With
End Sub

Beispiel:

' Aufklapphöhe 150 Pixel
SetComboDropDownHeight Combo1, 150

Auch hier erfolgt die Höhen-Angabe in Pixel.