Panel durch die Form sehen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von DosiSoft.

    Panel durch die Form sehen

    Hey,

    Habe eine Form im Vollbildmodus erstellt.
    Darauf liegt ein Panel.
    Dieses Panel kann ich bereits verschieben.
    Nun soll an der Stelle, wo das Panel liegt dieses unsichtbar sein, was ich ebenfalls geschafft habe. Jedoch sieht man da noch die Form.
    Doch diese soll nur außerhalb des Panels zu sehen sein.
    Wie kann ich sowas bewerkstelligen?

    Habe es der Verständlichkeit halber mal grafisch dargestellt:



    Danke schonmal.

    Grüße

    Ich bin mir ziemlich sicher, dass es dafür eine schönere Variante gibt, aber so funktionierts:

    Form > Eigenschaft > TransparentKey > Farbe auswählen
    Panel > BackColor > Gleiche Farbe auswählen

    Man beachte, dass dann diese Farbe immer transparent dargestellt wird!
    Wenn du Bilder auf deiner Form hast, kann das ein Problem werden --> Siehe Bild (Links ist ein Panel mit Hintergrundfarbe, rechts eine PictureBox mit Bild)



    Greez
    Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Diese Eigenschaft kannte ich noch garnicht. ^^ Danke.
    Allerdings gibt es noch ein kleines Problem:
    Wenn ich nun dieses Panel zur Laufzeit verschieben möchte, minimiert sich die Form, da anscheinend durch das transparente Panel geklickt wird.
    Kann man das irgendwie fixen?

    Danke schonmal.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DosiSoft“ ()

    Okey, ich hab's nach bisschen hirnen hingekriegt.

    Das kann man sicher schöner machen, aber es funktioniert (Falls jemand weiss wie, melden. Würd mich auch interessieren :D )

    Ich hoffe ich habs genug kommentiert. Ansonsten frag nach ;)

    VB.NET-Quellcode

    1. Public Class Frm_MoveTransparentPanel
    3. #Region "Variablen"
    5. 'Deklarationen (Damit man einen Klick ausserhalb der Form erkennt)
    6. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    8. 'Variablen
    9. Private MouseOutside As Boolean = False
    10. Private MouseIsPressed As Boolean = False
    11. Private MouseIsMoving As Boolean = False
    12. Private PanelPositionBeforeMove As Point
    14. 'Einstellungen
    15. Private WaittimeMouseinside As Integer = 100
    16. Private WaittimePanelmove As Integer = 100
    17. #End Region
    19. #Region "Formevents"
    21. Private Sub Frm_MoveTransparentPanel_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
    22. 'Hintergrundthread starten, der Mausbewegungen analysiert
    23. bgw_mouseanalyse.WorkerReportsProgress = True
    24. bgw_mouseanalyse.RunWorkerAsync()
    25. End Sub
    27. Private Sub Frm_MoveTransparentPanel_MouseEnter(sender As Object, e As System.EventArgs) Handles Me.MouseEnter
    28. MouseOutside = False 'Maus hat Form betretten
    29. End Sub
    31. Private Sub Frm_MoveTransparentPanel_MouseLeave(sender As Object, e As System.EventArgs) Handles Me.MouseLeave
    32. MouseOutside = True 'Maus hat Form verlassen
    33. End Sub
    35. #End Region
    37. #Region "BackgroundWorker Events"
    39. Private Sub bgw_mouseanalyse_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgw_mouseanalyse.DoWork
    40. While True
    41. While MouseOutside Or MouseIsMoving 'Nur wenn Maus ausserhalb
    43. 'Mausposition ermitteln
    44. Dim X As Integer = Windows.Forms.Cursor.Position.X
    45. Dim Y As Integer = Windows.Forms.Cursor.Position.Y
    47. 'Mausstatus (true = gedrückt)
    48. MouseIsPressed = (GetAsyncKeyState(1) <> 0)
    50. 'Aktion ermitteln
    51. If MouseIsMoving Then
    52. If MouseIsPressed Then
    53. 'Veränderung der Position -> Panel verschieben
    54. bgw_mouseanalyse.ReportProgress(0, New Point(X - PanelPositionBeforeMove.X, Y - PanelPositionBeforeMove.Y))
    55. Threading.Thread.Sleep(WaittimePanelmove)
    56. Else
    57. 'Nicht mehr -> Abschluss der Panel verschiebung
    58. MouseIsMoving = False
    59. PanelPositionBeforeMove = New Point(X, Y)
    60. End If
    61. Else
    62. If MouseIsPressed Then
    64. 'Überprüfen, ob erster Mausklick in Panel liegt (Falls ja, Mausbewegungen beachten)
    65. If X >= (pnl_transparent.Location.X + Me.Location.X) And X <= (pnl_transparent.Location.X + pnl_transparent.Size.Width + Me.Location.X) AndAlso Y >= (pnl_transparent.Location.Y + Me.Location.Y) And Y <= (pnl_transparent.Location.Y + pnl_transparent.Size.Height + Me.Location.Y) Then
    66. PanelPositionBeforeMove = New Point(Windows.Forms.Cursor.Position.X - pnl_transparent.Left(), Windows.Forms.Cursor.Position.Y - pnl_transparent.Top)
    67. MouseIsMoving = True
    68. End If
    70. End If
    71. End If
    73. End While
    74. Threading.Thread.Sleep(WaittimeMouseinside)
    75. End While
    76. End Sub
    78. Private Sub bgw_mouseanalyse_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw_mouseanalyse.ProgressChanged
    79. 'Panel an übergebene Position setzen
    80. pnl_transparent.Location = CType(e.UserState, Point)
    81. End Sub
    83. #End Region
    85. End Class


    Edit: Beispielprojekt angehängt

    Greez
    Dancger
    Dateien
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dancger“ ()

    Erstmal Danke für die Hilfe.

    VB.NET-Quellcode

    1. Select Case True
    2. Case MouseIsMoving & MouseIsPressed 'Veränderung der Position -> Panel verschieben
    3. bgw_mouseanalyse.ReportProgress(0, New Point(X - PanelPositionBeforeMove.X, Y - PanelPositionBeforeMove.Y))
    4. Threading.Thread.Sleep(WaittimePanelmove)
    5. Case MouseIsMoving & Not MouseIsPressed 'Nicht mehr -> Abschluss der Panelverschiebung
    6. MouseIsMoving = False
    7. PanelPositionBeforeMove = New Point(X, Y)
    8. Case MouseIsPressed 'Überprüfen, ob erster Mausklick in Panel liegt (Falls ja, Mausbewegungen beachten)
    9. If X >= (Panel1.Location.X + Me.Location.X) And X <= (Panel1.Location.X + Panel1.Size.Width + Me.Location.X) AndAlso Y >= (Panel1.Location.Y + Me.Location.Y) And Y <= (Panel1.Location.Y + Panel1.Size.Height + Me.Location.Y) Then
    10. PanelPositionBeforeMove = New Point(Windows.Forms.Cursor.Position.X - Panel1.Left(), Windows.Forms.Cursor.Position.Y - Panel1.Top)
    11. MouseIsMoving = True
    12. End If
    13. End Select


    Was genau passiert da?`Habe es mal versucht selbst herauszufinden, allerdings erscheint bei dem

    VB.NET-Quellcode

    1. Select Case True
    2. Case MouseIsMoving & MouseIsPressed '


    Ein Fehler:

    VB.NET-Quellcode

    1. Ungültige Konvertierung von der Zeichenfolge FalseTrue in Typ Boolean.


    Sobald ich den Cursor in das Panel bewege. Wie kann ich das beheben?

Facebook
Telefonspende