Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.139.90.131] |
|
Сообщ.
#1
,
|
|
|
Private Type TPoint x As Long y As Long End Type Private Type TRect Left As Long Top As Long Right As Long Bottom As Long End Type 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 Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As TRect) As Long Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As TPoint) As Long Dim i As Integer Public Sub Size_Combo(frm As Form, rCbo As ComboBox, Width, Height) Dim PT As TPoint, Rct As TRect frm.ScaleMode = vbPixels Call GetWindowRect(rCbo.hwnd, Rct) PT.x = Rct.Left PT.y = Rct.Top Call ScreenToClient(frm.hwnd, PT) Call MoveWindow(rCbo.hwnd, PT.x, PT.y, Width, Height, True) End Sub Private Sub Form_Load() For i = 0 To 100 Combo1.AddItem "item - " + CStr(i) Next i Call Size_Combo(Me, Combo1, Combo1.Width, 500) End Sub |