Функция CreateStatusWindow

Declare Function CreateStatusWindow Lib "comctl32.dll" Alias "CreateStatusWindowA" ( _
    ByVal Style As Long, _
	ByVal pszText As String, _
	ByVal hWndParent As Long, _
	ByVal wID As Long) As Long

CreateStatusWindow создает строку состояния. Как правило, строка состояния используется внизу родительского окна и содержит определенный текст

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

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

Параметры

Style

Стиль окна для строки состояния. Данный параметр должен включать стили WS_CHILD и WS_VISIBLE

pszText

Текст в строке состояния

hWndParent

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

wID

Идентификатор элемента для строки состояния. Оконная процедура использует это значение для идентификации сообщений при посылке родительскому окну

Пример

' Программно создадим элемент управления Строка состояния (StatusBar)
' Создадим глобальную переменную hStatusBar
Dim hStatusBar as Long

InitCommonControls
hStatusBar = CreateStatusWindow(WS_CHILD Or WS_VISIBLE, "Русский_Проект", Me.hwnd, 0)

' Перед выходом уничтожаем окно
Private Sub Form_Unload(Cancel As Integer)
   DestroyWindow hStatusBar
End Sub

' Изменяем размеры строки состояния при изменении размеров окна
Private Sub Form_Resize()
   SendMessage hStatusBar,  WM_SIZE, 0, ByVal 0&
End Sub

Категория

Common Controls