Antivir einblendeffekt

    • VB.NET

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

      Antivir einblendeffekt

      Blendet eine Form langsam rechts unten über der Taskleite ein.

      Wird benötigt
      1. 1x Windows Form (Name: Popup)

      VB.NET-Quellcode

      1. Public Class Popup
      3. Private y As Integer
      4. Private t As Threading.Thread
      5. Delegate Sub SetLocationCallback(ByVal location As Point)
      6. Delegate Sub CloseCallback()
      8. Private Sub SetLocation(ByVal location As Point)
      9. If Me.InvokeRequired Then
      10. Dim d As New SetLocationCallback(AddressOf SetLocation)
      11. Me.Invoke(d, New Object() {[location]})
      12. Else
      13. Me.Location = location
      14. End If
      15. End Sub
      17. Private Sub _Close()
      18. If Me.InvokeRequired Then
      19. Dim d As New CloseCallback(AddressOf _Close)
      20. Me.Invoke(d)
      21. Else
      22. Me.Close()
      23. End If
      24. End Sub
      26. Private Sub Popup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      27. Me.y = My.Computer.Screen.WorkingArea.Height + Me.Height
      28. Me.TopMost = True
      29. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
      30. Me.Location = New Point(My.Computer.Screen.WorkingArea.Width - Me.Width, y)
      31. Me.t = New Threading.Thread(AddressOf _show)
      32. Me.t.Start()
      33. End Sub
      35. Private Sub Popup_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
      36. Me.t = New Threading.Thread(AddressOf _hide)
      37. Me.t.Start()
      38. End Sub
      40. Private Sub _show()
      41. While Me.Location.Y >= My.Computer.Screen.WorkingArea.Height - Me.Height + 50
      42. Me.SetLocation(New Point(My.Computer.Screen.WorkingArea.Width - Me.Width, y))
      43. Me.y -= 50
      44. Threading.Thread.Sleep(50)
      45. End While
      46. End Sub
      48. Private Sub _hide()
      49. While Me.Location.Y <= My.Computer.Screen.WorkingArea.Height + Me.Height - 50
      50. Me.SetLocation(New Point(My.Computer.Screen.WorkingArea.Width - Me.Width, y))
      51. Me.y += 50
      52. Threading.Thread.Sleep(50)
      53. End While
      54. Me._Close()
      55. End Sub
      56. End Class


      Verbesserungsvorschläge erwünscht :)

      Dein Popup ist bei mir halb auf der Taskleiste, mit folgendem Code wird
      die Screengröße ermittelt , Taskbar in Height abgezogen und damit
      hat man das Popup da wo´s hinsoll.

      VB.NET-Quellcode

      1. Option Strict On
      3. Public Class Popup
      5. Dim screenheightwithouttaskbar As Integer
      6. Dim opening As Boolean
      8. Private Sub Popup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      9. Me.Visible = False
      10. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
      11. Me.TopMost = True
      12. Me.ShowInTaskbar = False
      13. Me.Width = 256
      14. Me.Height = 1
      15. screenheightwithouttaskbar = Screen.PrimaryScreen.Bounds.Height - (Screen.PrimaryScreen.Bounds.Height - Screen.PrimaryScreen.WorkingArea.Height) - Me.Height
      16. Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, screenheightwithouttaskbar)
      17. opening = True
      18. Me.Visible = True
      19. TiShow.Interval = 1
      20. TiShow.Start()
      21. End Sub
      23. Private Sub TiShow_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TiShow.Tick
      24. If opening = True Then
      25. If Me.Height < 256 Then
      26. Me.Height += 2
      27. screenheightwithouttaskbar = Screen.PrimaryScreen.Bounds.Height - (Screen.PrimaryScreen.Bounds.Height - Screen.PrimaryScreen.WorkingArea.Height) - Me.Height
      28. Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, screenheightwithouttaskbar)
      29. ElseIf Me.Height >= 256 Then
      30. System.Threading.Thread.Sleep(2500)
      31. opening = False
      32. End If
      33. Else
      34. If Me.Height > 2 Then
      35. Me.Height -= 2
      36. screenheightwithouttaskbar = Screen.PrimaryScreen.Bounds.Height - (Screen.PrimaryScreen.Bounds.Height - Screen.PrimaryScreen.WorkingArea.Height) - Me.Height
      37. Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, screenheightwithouttaskbar)
      38. ElseIf Me.Height <= 2 Then
      39. Application.Exit()
      40. End If
      41. End If
      42. End Sub
      43. End Class


      Ist etwas kürzer, aber meiner Meinung nach schöner im Ergebnis.

      MfG,

      Derfuhr.

      VB.NET-Quellcode

      1. Screen.PrimaryScreen.WorkingArea.Width - Me.Width - 20


      Sonst ist es ~10px außerhalb des Bildschirms. ;)
      Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
      "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
      "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

      1920x1080
      Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
      "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
      "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?