Функция GetClassName

Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long,  _
        ByVal lpClassName As String,  _
        ByVal nMaxCount As Long) As Long

GetClassName возвращает имя класса, которому принадлежит окно. Имя класса, содержащее в строке, передается как lpClassName

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

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

Параметры

hWnd
описатель окна, чье имя класса мы определяем
lpClassName
Строка для получения имени класса
nMaxCount
Размер в байтах строки lpClassName

Пример

' Показываем имя класса окна формы Form1
Dim classname As String ' переменная для имени класса
Dim slength As Long ' длина строки

' Создаем место для строки
classname = Space(255) ' вполне достаточно
' Получаем имя класса
slength = GetClassName(Form1.hWnd, classname, 255)
' Извлекаем информацию из строки
classname = Left(classname, slength) ' удаляем пробелы
Debug.Print "Класс формы Form1: "; classname

Категория

Классы