Hello,
vbel said:
Can anyone tell me how can I resize the height of a
ComboBox without changing the font size?
\\\
Private Declare Auto Function SendMessage Lib "user32.dll" ( _
ByVal hwnd As IntPtr, _
ByVal wMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As Int32 _
) As Int32
Private Const CB_SETITEMHEIGHT As Int32 = &H153
Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
SetComboEditHeight(Me.ComboBox1, 50)
End Sub
Private Sub SetComboEditHeight( _
ByVal Control As ComboBox, _
ByVal NewHeight As Int32 _
)
SendMessage(Control.Handle, CB_SETITEMHEIGHT, -1, NewHeight)
Control.Refresh()
End Sub
///
Regards,
Herfried K. Wagner