Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
UserForm ohne Excel
Es soll eine UserForm angezeigt werden, ohne das Excel sichtbar ist. Das kann man natürlich prima mit anderen UserForm-Hacks kombinieren.
Quellcode für die UserForm ...
Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Declare Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Sub UserForm_Initialize()
Call ShowWindow(Application.hwnd, ByVal SW_HIDE)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call ShowWindow(Application.hwnd, ByVal SW_NORMAL)
End Sub
© 2001 -
by Thomas Risi