|
|
|
Click here to copy the following block | Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, _ lpRect As RECT) As Long Private Declare Function ScreenToClientAny Lib "user32" Alias "ScreenToClient" _ (ByVal hWnd As Long, lpPoint As Any) 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
Sub ComboBoxSetHeight(CB As ComboBox, ByVal newHeight As Long) Dim lpRect As RECT Dim wi As Long GetWindowRect CB.hWnd, lpRect wi = lpRect.Right - lpRect.Left ScreenToClientAny CB.Parent.hWnd, lpRect MoveWindow CB.hWnd, lpRect.Left, lpRect.Top, wi, newHeight, True
End Sub |
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|