Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi