Функция GetClassName

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

Платформа

GetClassName возвращает имя класса,которому принадлежит окно. The name of the class is placed into the string passed as 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

Категория:
Классы

В начало.