Thomas Risi Softwareentwicklung

Direktfenster (VBA-IDE) per VBA löschen

Eine Möglichkeit um das Direktfenster von Eintragungen zu befreien ...

Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _ ByVal hwndParent As Long, ByVal hwndChildAfter As Long, _ ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long Dim hwnd As Long Sub ClearImmediateWindow() hwnd = FindWindow("wndclass_desked_gsk", vbNullString) hwnd = FindWindowEx(hwnd, 0, vbNullString, "Direktbereich") SetFocus hwnd SendKeys "^{a}" SendKeys "{DELETE}" End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)