' - - - - - - - - - - - - - - - - - - - - - - -
' Erstelle 5 Formen
' Namen: Form1 - Form4, Topper
'
' Erstelle 6 CommandButtons auf Form1
' Namen: Command1 - Command6
'
' Füge Nachfolgenden code in den Privaten Deklarations Bereich der Form1
' Aussprobieren und spass haben ... ;)
' - - - - - - - - - - - - - - - - - - - - - - -
' Ich denke mal der restliche Code erklärt sich von selbst!
' - - - - - - - - - - - - - - - - - - - - - - -
Option Explicit
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 Sub SetTopLevelWindow(ByVal hWnd As Long, Optional topmost As Boolean = _
True)
Const HWND_NOTOPMOST = -2
Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
SetWindowPos hWnd, IIf(topmost, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, _
SWP_NOMOVE + SWP_NOSIZE
SetWindowPos Me.hWnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
Private Sub Command1_Click()
SetTopLevelWindow Form2.hWnd
End Sub
Private Sub Command2_Click()
SetTopLevelWindow Form3.hWnd
End Sub
Private Sub Command3_Click()
SetTopLevelWindow Form4.hWnd
End Sub
Private Sub Command4_Click()
SetTopLevelWindow Form2.hWnd, False
End Sub
Private Sub Command5_Click()
SetTopLevelWindow Form3.hWnd, False
End Sub
Private Sub Command6_Click()
SetTopLevelWindow Form4.hWnd, False
End Sub
Private Sub Form_Initialize()
Command1.Caption = "Form2 Top"
Command2.Caption = "Form3 Top"
Command3.Caption = "Form4 Top"
Command4.Caption = "Form2 NotTop"
Command5.Caption = "Form3 NotTop"
Command6.Caption = "Form4 NotTop"
Command1.Move 240, 2000, 800, 500
Command2.Move 240, 2500, 800, 500
Command3.Move 240, 3000, 800, 500
Command4.Move 1040, 2000, 800, 500
Command5.Move 1040, 2500, 800, 500
Command6.Move 1040, 3000, 800, 500
End Sub
Private Sub Form_Load()
Form1.Move 1000, 1000, 2200, 5000
Form2.Move 1000, 1000, 50, 50
Form3.Move 1500, 1100, 50, 50
Form4.Move 2000, 1200, 50, 50
Topper.Move -1000, -1000, 0, 0
Form2.Show
Form3.Show
Form4.Show
Topper.Show
SetTopLevelWindow Form2.hWnd
SetTopLevelWindow Form3.hWnd
SetTopLevelWindow Form4.hWnd
SetTopLevelWindow Topper.hWnd
End Sub Ohne Mampf, kein Kampf ! |