Функция SetWindowLong

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
        ByVal hWnd As Long,  _
        ByVal nIndex As Long,  _
        ByVal dwNewLong As Long) As Long

SetWindowLong устанавливает 32-битное значение, определяющее стиль окна.

Возвращаемое значение

В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае возвращается предыдущее значение установленного стиля.

Параметры

hWnd

Описатель окна

nIndex

Значения, определяющие стиль окна. Возможные значения смотри на GetWindowLong

dwNewLong

32-битное значение, устанавливающее новый стиль окна

Пример

' Смотри также примеры apiform.zip и exstyles.zip

' Например, можно создать новый стиль для текстового поля,
' который позволяет вводить только цифры или заглавные буквы
Private Const GWL_STYLE = (-16)
Private Const ES_UPPERCASE = &H8&

Private Sub Form_Load()
Dim style As Long
    style = GetWindowLong(Text1.hwnd, GWL_STYLE)
    style = style Or ES_UPPERCASE  ' Только заглавные буквы
    SetWindowLong, Text1.hwnd, GWL_STYLE, style
End Sub

Смотри также

GetWindowLong, SetClassLong

Категория