Combo Box 1

[Vec]

How can I set Combo1 so that it auto sizes to the form during form load?

-------------------------------------------------------------------------
-------------------------------------------------------------------------

"Only two things are infinite, the universe and human stupidity, and I'm not sure about the former."
- Albert Einstein (1879-1955)

 

[LPlates]

Combo1.Width = Me.ScaleWidth

 

[LPlates]

You can also move a control like so..

With Combo1
.Move Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth
End With

You can't resize a combo height, but for a command button or other control you can add the height parameter to the code..

With Command1
.Move Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight
End With

Or
With Command1
.Move 20, 100, 1000, 300
End With

Have fun & Thanks for the votes!

 

[Vec]

LPlates:
Thank you for all the great help. I will be making a couple more posts this evening, still working out a few details on my project, hope to see your input!

-------------------------------------------------------------------------
-------------------------------------------------------------------------

"Only two things are infinite, the universe and human stupidity, and I'm not sure about the former."
- Albert Einstein (1879-1955)

 

[CCLINT]

>You can't resize a combo height
However, it is possible with the MoveWindow API.
Drop this into a public module so it can be used by any ComboBox control.[blue]

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

Public Sub SetComboHeight(ByRef oCombo As ComboBox, lHeight As Long)
    Dim iOrigScaleMode  As Integer
    Dim lReturn         As Long
    Dim bRepaint        As Long
    bRepaint = 1&
    With oCombo

[green]

        'cache the parent's current scale mode.

[blue]

        iOrigScaleMode = .Parent.ScaleMode

[green]

        'change the parent's scale mode to Pixels.

[blue]

        .Parent.ScaleMode = vbPixels

[green]

        'Position combo, keeping it's current Left, Top, and Width positions, but changing the height.

[blue]

        lReturn = MoveWindow(.hwnd, .Left, .Top, .Width, lHeight, bRepaint)

[green]

        'restore the parent's scale mode to the original value.

[blue]

        .Parent.ScaleMode = iOrigScaleMode
    End With
End Sub

[black]
Then, call it as follows (this example sets the height twice this size as the default size):

SetComboHeight Combo1, Combo1.Height * 2

 

[CCLINT]

No one's complaining yet?