Screensaver

    • VB.NET

    Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Samus Aran.

      Screensaver

      Hi Leute,
      ich hab mich mal hingesetzt und nen kleinen screensaver geschrieben.
      Hier die Projektmappe:
      Screensaver.rar

      hier der nur der Code:

      VB.NET-Quellcode

      1. Public Class Form1
      2. Dim Transparenz As Integer = 255
      3. Dim Farbe As New Color
      4. Dim MausPos As New Point
      6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      7. Me.BackColor = Color.Black
      8. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
      9. Me.TopMost = True
      10. Me.ShowIcon = False
      11. Me.ShowInTaskbar = False
      12. Me.WindowState = FormWindowState.Maximized
      13. MausPos = MousePosition
      14. End Sub
      17. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      18. If Label1.Location = New Point(Label1.Location.X, 0) Then
      19. Timer2.Enabled = True
      20. Timer1.Enabled = False
      21. End If
      22. Label1.Location = Label1.Location - New Point(0, 1)
      23. End Sub
      25. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
      26. If Label1.Location = New Point(Label1.Location.X, My.Computer.Screen.Bounds.Height - Label1.Height) Then
      27. Timer1.Enabled = True
      28. Timer2.Enabled = False
      29. End If
      30. Label1.Location = Label1.Location + New Point(0, 1)
      31. End Sub
      33. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
      34. If Label1.Location = New Point(0, Label1.Location.Y) Then
      35. Timer4.Enabled = True
      36. Timer3.Enabled = False
      37. End If
      38. Label1.Location = Label1.Location - New Point(1, 0)
      39. End Sub
      41. Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
      42. If Label1.Location = New Point(My.Computer.Screen.Bounds.Width - Label1.Width, Label1.Location.Y) Then
      43. Timer3.Enabled = True
      44. Timer4.Enabled = False
      45. End If
      46. Label1.Location = Label1.Location + New Point(1, 0)
      47. End Sub
      49. Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
      50. If Transparenz = 1 Then
      51. Timer6.Enabled = True
      52. Timer5.Enabled = False
      53. Farbe = Color.FromArgb(Transparenz)
      54. End If
      55. Transparenz -= 1
      56. Farbe = Color.FromArgb(Transparenz)
      57. Label1.ForeColor = Farbe
      58. Label1.Text = TimeOfDay.Now
      59. End Sub
      61. Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
      62. If Transparenz = 254 Then
      63. Timer5.Enabled = True
      64. Timer6.Enabled = False
      65. Farbe = Color.FromArgb(Transparenz)
      66. End If
      67. Transparenz += 1
      68. Farbe = Color.FromArgb(Transparenz)
      69. Label1.ForeColor = Farbe
      70. Label1.Text = TimeOfDay.Now
      71. End Sub
      73. ' Wenn die Maus bewegt wird, wird das programm beendet
      74. Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
      75. If MousePosition = MausPos = False Then
      76. Application.Exit()
      77. End If
      78. End Sub
      79. End Class


      lg.

      WoW ist echt cool aber ich hätte da eine Verbesserungs Idee musst du aber nicht machen ist ja schon TOP!

      Also meine Idee wäre folgendes:

      Man könnte doch z.B anstat Schwartzen hintergrund das es jede 5sekunden die hintergrund farbe änder in grün blau oder so das wäre meine Idee :)


      Mfg
      Killazzz

      Wollte nuhr mahl sagen dass man diese Coode Rutine auch Prima zu Anderen Sachen wie Fullscreen Spiele verwenden kan!

      Der Thread ist ca. zwei Jahre alt, nur weil irgendjemand den wieder ausgegraben hat, muss man nicht beginnen, dort wieder zu posten.
      Ist das Video von dir? Wenn ja, mach diese aufdringliche Werbung am Anfang weg, das ist einfach hirnlos :D

    Facebook
    Telefonspende