Drag+Fade Window

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Agita.

      Drag+Fade Window

      Mein Lösungsweg wie man ganz einfach ein Fenster ohne Titelleiste bewegen kann
      Dabei wird die Form ausgeblendet und beim Loslassen der Maustaste wieder eingeblendet

      Hier die Vorschau

      Was zu tun ist:

      - neues einfaches Projekt erstellen
      - neues Modul erstellen
      - auf der Form eine PicBox anlegen
      - Wenn der Standartname nicht "PictureBox1" ist dann in diesen umbenennen
      - Folgendes als jeweiligen Code einfügen:

      Code für die Form

      VB.NET-Quellcode

      1. Imports System.Threading
      3. Public Class Form1
      5. Public MyForm As Class_MyForm
      7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      9. MyForm = New Class_MyForm(Me)
      10. MyForm.SetAlpha(0.0)
      12. MyForm.SetFading(1.0, 20, 50)
      13. Dim NewThread = New Thread(AddressOf MyForm.StartFading)
      14. NewThread.Start()
      16. End Sub
      18. Private Sub PicBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseDown
      20. Dim NewThread As Thread = Nothing
      22. MyForm.SetFading(0.4, 10, 100)
      23. NewThread = New Thread(AddressOf MyForm.StartFading)
      24. NewThread.Start()
      26. MyForm.DragMe(Me.Handle)
      28. MyForm.SetFading(1, 5, 50)
      29. NewThread = New Thread(AddressOf MyForm.StartFading)
      30. NewThread.Start()
      32. End Sub
      34. Public Sub CallBack_SetOpacity(ByVal Opacity_ As Double)
      35. Me.Opacity = Opacity_
      36. End Sub
      38. End Class


      Code für das Modul

      VB.NET-Quellcode

      1. Public Class Class_MyForm
      3. Private Declare Function ReleaseCapture Lib "user32" () As Integer
      4. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Object) As Integer
      5. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
      6. Private Delegate Sub CallBack_SetOpacity(ByVal Alpha As Double)
      8. Private Const HTCAPTION As Short = 2
      9. Private Const WM_NCLBUTTONDOWN As Short = &HA1S
      10. Private Const WM_SYSCOMMAND As Short = &H112S
      12. Private AlphaNow As Double = 1
      13. Private AlphaNew As Double
      14. Private LoopsI As Integer
      15. Private SleepI As Integer
      16. Private IsFading As Boolean = False
      17. Private LoopI As Integer
      18. Private AlphaBit As Double
      20. Protected That As Object
      21. Sub New(ByVal This As Object)
      22. That = This
      23. End Sub
      25. Public Sub SetAlpha(ByVal AlphaNow_ As Double)
      26. Dim frm = That
      27. Dim d As New CallBack_SetOpacity(AddressOf frm.CallBack_SetOpacity)
      28. AlphaNow = AlphaNow_
      29. If (AlphaNow > 1) Then AlphaNow = 1
      30. If (AlphaNow < 0) Then AlphaNow = 0
      31. frm.Invoke(d, New Object() {AlphaNow})
      32. End Sub
      34. Public Sub SetFading(ByVal AlphaNew_ As Double, ByVal LoopsI_ As Integer, ByVal SleepI_ As Integer)
      35. AlphaNew = AlphaNew_
      36. LoopsI = LoopsI_
      37. SleepI = SleepI_
      38. LoopI = 1
      39. AlphaBit = ((AlphaNew - AlphaNow) / LoopsI)
      40. End Sub
      42. Public Sub StartFading()
      43. If (IsFading = False) Then
      44. IsFading = True
      45. For Me.LoopI = 1 To LoopsI
      47. SetAlpha(AlphaNow + AlphaBit)
      48. Application.DoEvents()
      49. Sleep(SleepI)
      50. Next LoopI
      51. SetAlpha(AlphaNew)
      52. IsFading = False
      53. End If
      54. End Sub
      56. Public Sub DragMe(ByVal hwnd As Long)
      57. ReleaseCapture()
      58. SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
      59. End Sub
      61. End Class


      Würd mich freuen wenn dies für den ein oder anderen interessant ist ^,^

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

      Nun nur noch eine kurze Erklärung:

      Da ich nicht wusste ob/wie es möglich ist einem Thread beim starten parameter zu übergeben, gibt es die SetFading-Funktion
      Mit ihr setzt man die Werte die mit "StartFading" benutzt werden sollen
      Wer die Werte von "SetFading" ändern möchte:

      Parameter #1: (Double) NewAlpha
      Der neue Alpha Wert der erreicht werden soll (Zwischen 0.0 und 1.0)

      Parameter #2: (Int) LoopI
      Die Anzahl von Loop-Runden

      Parameter #3: (Int) SleepI
      Die Sleep-Zeit pro Runde

      Anhand von LoopI und SleepI kann man festsetzen wie lange das Fading dauern soll