GetClassName-Funktion Diese Funktion ermittelt den Klassennamen eines Fensters.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  17.340

Deklaration:

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

Beschreibung:
Diese Funktion ermittelt den Klassennamen eines Fensters.

Parameter:

hWnd	Erwartet das Fensterhandle des Fensters, dessen Klassennameermittelt werden soll.
lpClassName	Erwartet einen Puffer der schon mit Leerzeichen vorinitialisiert ist,um den Klassenamen zu empfangen.
nMaxCount	Erwartet die Größe des Puffers in Bytes.

Rückgabewert:
Ist die Funktion erfolgreich, so liefert sie die Anzahl der Zeichen zurück, die der Klassenname lang ist, exklusive des "VBNullChar" Zeichens. Andernfallswird "0" zurückgegeben.

Beispiel:

Private Declare Function GetClassLong Lib "user32.dll" _
  Alias "GetClassLongA" ( _
  ByVal hWnd As Long, _
  ByVal nIndex As Long) As Long
Private Declare Function SetClassLong Lib "user32.dll" _
  Alias "SetClassLongA" ( _
  ByVal hWnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong  As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" _
  Alias "GetClassNameA" ( _
  ByVal hWnd As Long, _
  ByVal lpClassName As String, _
  ByVal nMaxCount As Long) As Long
Private Declare Function CallWindowProc Lib "user32.dll" _
  Alias "CallWindowProcA" ( _
  ByVal lpPrevWndFunc As Long, _
  ByVal hWnd As Long, _
  ByVal Msg As Long, _
  ByVal WParam As Long, _
  ByVal lParam As Long) As Long
Private Declare Function LoadImage Lib "user32" _
  Alias "LoadImageA" ( _
  ByVal hInst As Long, _
  ByVal lpsz As String, _
  ByVal dwImageType As Long, _
  ByVal dwDesiredWidth As Long, _
  ByVal dwDesiredHeight As Long, _
  ByVal dwFlags As Long) As Long
 
' Get/Set-Class nIndex-Konstanten
Private Const GCL_CBCLSEXTRA = -20 ' Ermittelt die Größe des Extraspeichers der Klasse
Private Const GCL_CBWNDEXTRA = -18 ' Ermittelt die Größe des Extraspeichers des Fensters
Private Const GCL_HBRBACKGROUND = -10 ' Ermittelt das Handle des Brushs der Klasse 
Private Const GCL_HCURSOR = -12 ' Ermittelt das Handle des Cursors der Klasse
Private Const GCL_HICON = -14 ' Ermittelt das Handle des Icons der Klasse
Private Const GCL_HMODULE = -16 ' Ermittelt das Handle des Moduls der Klasse
Private Const GCL_MENUNAME = -8 ' Ermittelt den Menünamen der Klasse
Private Const GCL_STYLE = -26 ' Ermittelt die Fensterstyle der Klasse
Private Const GCL_WNDPROC = -24 ' Ermittelt die Prozeduradresse der Klasse
 
' LoadImage dwImageType-Konstanten
Private Const IMAGE_BITMAP = 0 ' gibt ein Handle zu einem Bitmap zurück
Private Const IMAGE_ICON = 1 ' gibt ein Handle zu einem Icon zurück
Private Const IMAGE_CURSOR = 2 ' gibt ein Handle zu einem Cursor zurück
Private Const IMAGE_ENHMETAFILE = 3 ' gibt ein Handle zu einer Enhanced Metadatei zurück
 
' LoadImage dwFlags-Konstanten
Private Const LR_CREATEDIBSECTION = &H2000 ' Lädt ein Bitmap mit 'Dib-Sektionen 
Private Const LR_DEFAULTCOLOR = &H0 ' Lädt das Bild in den Standardfarben (Not LR_MONOCHROME)
Private Const LR_DEFAULTSIZE = &H40 ' Lädt das Bild in der Standardgröße des Bildes
Private Const LR_LOADFROMFILE = &H10 ' Lädt das Bild von einer Datei
Private Const LR_LOADMAP3DCOLORS = &H1000 ' Ersetzt bestimmte Grautöne eines Bildes mit den Systemfarben 
' für 3D-Ramen die normalerweise den Grautönen  zugeordnet sind
Private Const LR_LOADTRANSPARENT = &H20 ' Ersetzt alle Pixel des Bildes mit dem Farbwert des Ersten Pixels  
' des Bitmaps durch die Standard-Fensterhintergrundfarbe 
Private Const LR_MONOCHROME = &H1 ' Lädt das Bild in Schwarzweiß
Private Const LR_SHARED = &H8000 ' Diese Option erzwingt, dass wenn die Funktion mehrmals 
' aufgerufen wird, jedes Mal das gleiche Handle zurückgegeben 
' wird und das Bild nicht erneut geladen wird
Private Const LR_COPYFROMRESOURCE = &H4000 ' Lädt das Bild aus einer Ressource 
 
' Eine der Fensternachrichten
Private Const WM_CLOSE = &H10 ' Schließt das Fenster
 
Private hIcon As Long

' Der Fensterklasse unserer Form ein anderes Icon zuweisen
Private Sub Form_Load()
  Dim Retval As Long
  Dim Buffer As String * 256
 
  ' Klassennamen ermitteln
  Retval = GetClassName(Me.hWnd, Buffer, Len(Buffer))
  If Retval = 0 Then
    MsgBox "Der klassenname konnte nicht Ermittelt werden"
  Else
    MsgBox "Der Klassenname dieses Fensters ist """ & Left$(Buffer,  _
    Retval) & """"
  End If
 
  ' Icon laden
  hIcon = LoadImage(App.hInstance, App.Path & "\Misc01.ico", IMAGE_ICON,  _
  16&, 16&, LR_LOADFROMFILE)
  If hIcon = 0 Then
    MsgBox "Fehler beim Laden des Icons"
    Exit Sub
  End If
 
  ' Icon der Klasse zuweisen (Das Fenster zeigt darauf keinerlei Reaktionen, 
  ' man müsste zu diesem Zweck selbst ein Fenster dieser Klasse mit Hilfe
  ' der CreateWindowEx Funktion erstellen)
  Retval = SetClassLong(Me.hWnd, GCL_HICON, hIcon)
  If Retval = 0 Then
    MsgBox "Das Icon konnte nicht zugewiesen werden"
  End If
End Sub

' Form schließen einmal anders
Private Sub Command1_Click()
  Dim ProcAddress As Long
 
  ' Prozedur-Adresse unserer Form bekommen
  ProcAddress = GetClassLong(Form1.hWnd, GCL_WNDPROC)
  If ProcAddress = 0 Then
    MsgBox "Die Prozeduradresse der Fensterklasse konnte nicht  _
    ermittelt werden."
    End
  End If
 
  ' Unserer Form die Schließen-Nachricht zusenden
  CallWindowProc ProcAddress, Me.hWnd, WM_CLOSE, 0&, 0&
End Sub