Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.223.32.230] |
|
Сообщ.
#1
,
|
|
|
Private Const GWL_STYLE = (-16) Private Const WS_HSCROLL = &H100000 Private Const WS_VSCROLL = &H200000 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Dim wndStyle As Long Private Sub Form_Load() wndStyle = GetWindowLong(List1.hwnd, GWL_STYLE) If (wndStyle And WS_HSCROLL) <> 0 Then MsgBox "A horizontal scroll bar is visible." Else MsgBox "A horizontal scroll bar is NOT visible." End If If (wndStyle And WS_VSCROLL) <> 0 Then MsgBox "A vertical scroll bar is visible." Else MsgBox "A vertical scroll bar is NOT visible." End If End Sub |