Benötige Hilfe bei meinem Screensaver Projekt

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Shaymin123[CRI09].

    Benötige Hilfe bei meinem Screensaver Projekt

    heyho

    ich benötige mal hilfe zu meinem Screensaver Projekt

    Das Problem ist das wenn ich Vorschau jetzt klicke, das er dann wieder verschwindet.
    Das gleiche wenn er geladen wird bei keinerlei bewegung.

    Hier ist der Code (Samt vorgehen im Screensaver):

    Form1 alias Form1

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
    5. Public LeftWidth As Integer
    6. Public RightWidth As Integer
    7. Public TopHeight As Integer
    8. Public Buttomheight As Integer
    9. End Structure
    11. <Runtime.InteropServices.DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
    12. End Function
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. Try
    16. Me.BackColor = Color.Black
    17. Dim margins As MARGINS = New MARGINS
    18. margins.LeftWidth = -1
    19. margins.RightWidth = -1
    20. margins.TopHeight = -1
    21. margins.Buttomheight = -1
    22. Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
    23. Catch ex As Exception
    24. MsgBox("A OS with Aero is needed for this screensaver!", vbCritical, "Fatal Error")
    25. Application.Exit()
    26. End Try
    30. Try
    31. If My.Application.CommandLineArgs(0) = "/S" Then
    32. Else
    33. previewimageWINDS.Show()
    34. Close()
    35. TimerCloseMe.enabled = True
    36. End If
    37. Catch ex As Exception
    38. Close()
    39. 'MsgBox("This screensaver has no options!" + vbCrLf + vbCrLf + "Windows 7 Feeling Screensaver v1.0" + vbCrLf + "Programmed by Lopunny1984", MsgBoxStyle.Information, "No Options")
    40. End Try
    42. End Sub
    44. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    45. Label1.Text = My.Computer.Info.OSFullName
    46. End Sub
    48. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    49. If Label2.Text = "" Then
    50. Label2.Text = "F"
    51. ElseIf Label2.Text = "F" Then
    52. Label2.Text = "Fe"
    53. ElseIf Label2.Text = "Fe" Then
    54. Label2.Text = "Fee"
    55. ElseIf Label2.Text = "Fee" Then
    56. Label2.Text = "Feel"
    57. ElseIf Label2.Text = "Feel" Then
    58. Label2.Text = "Feeli"
    59. ElseIf Label2.Text = "Feeli" Then
    60. Label2.Text = "Feelin"
    61. ElseIf Label2.Text = "Feelin" Then
    62. Label2.Text = "Feeling"
    63. ElseIf Label2.Text = "Feeling" Then
    64. Label2.Text = "Feeling!"
    65. End If
    66. End Sub
    68. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    69. Timer2.Enabled = True
    70. End Sub
    72. Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
    73. Close()
    74. End Sub
    76. Private Sub Label1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick
    77. Close()
    78. End Sub
    80. Private Sub PictureBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseClick
    81. Close()
    82. End Sub
    84. Private Sub Label2_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseClick
    85. Close()
    86. End Sub
    88. Private Sub Picturebox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
    89. Close()
    90. End Sub
    92. Private Sub TimerCloseMe_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerCloseMe.Tick
    93. previewimageWINDS.Close()
    94. TimerCloseMe.Enabled = False
    96. End Sub
    97. End Class


    Form2 alias
    previewimageWINDS

    VB.NET-Quellcode

    1. Public Class previewimageWINDS
    2. Private Declare Function GetDC Lib "user32" Alias _
    3. "GetDC" (ByVal hwnd As Integer) As IntPtr
    5. Private Declare Function ReleaseDC Lib "user32" Alias _
    6. "ReleaseDC" (ByVal hwnd As Integer, ByVal hdc _
    7. As IntPtr) As Integer
    9. Private Sub previewimageWINDS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Try
    11. Hide()
    12. Dim RedPen As New Pen(Color.Red, 50)
    13. Dim GreenPen As New Pen(Color.GreenYellow, 50)
    14. Dim dc As IntPtr
    15. Dim g As Graphics
    16. Dim i As Integer
    17. Dim waW, waH As Long
    19. waW = Screen.PrimaryScreen.WorkingArea.Width
    20. waH = Screen.PrimaryScreen.WorkingArea.Height
    22. dc = GetDC(My.Application.CommandLineArgs(1))
    23. g = Graphics.FromHdc(dc)
    24. g.DrawImage(My.Resources.image, New PointF(0, 0))
    25. g.Dispose()
    26. Catch ex As Exception
    27. 'Nothing
    28. End Try
    31. End Sub
    32. End Class


    Findet wer den fehler?

    PS: Wenn der Screensaver beendet wird wird er noch weiter ausgeführt. Warum?
    Wenn wer die Projektmappe braucht kann er mich per PN anfragen.


    Gruß

Facebook