002
11.12.2004, 22:25 Uhr
~stephan
Gast
|
sieht ganz gut aus, aber ich weiß leider nicht so wirklich was ich damit anfangen soll? wie mach ich das "OnTop" true? ich hab das ganze mal so untergebracht:
Visual Basic: |
Private Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, _ ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1
' Fenster in den Vordergrund setzen Public Sub FormOnTop(ByVal hWnd As Long, _ ByVal OnTop As Boolean)
If OnTop Then ' immer im Vordergrund SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE Else ' normal SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE End If End Sub
Private Sub Form_Load()
End Sub
|
ich denke nicht ma das ist richtig help |