Schwierig!! Mein programm beenden wenn...

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Fruity.

    Schwierig!! Mein programm beenden wenn...

    Hallo ich will gerne mein programm schließen und da gibt es ein problem
    code ist unten
    würde mich über eine lösung freuen :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Fruity“ () aus folgendem Grund: fehler von mir

    so hab mich iwie vertan sry aber ich hab immer noch ein problem das ich wenn ich den bildschirm wieder anschalte das sich das programm schließt steh grad voll aufm schlauch könnt ihr mir hierbei nochmal helfen
    ich würde gerne einen timer benutzen aber wenn es ohne geht auch gerne ohne (ich mag halt timer=P)
    edit sry hab code vergessen hier:

    Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. ''' <summary>
    5. ''' Klasse für Zugriff auf API-Funktion "SendMessage"
    6. ''' </summary>
    7. Public Class Monitor
    8. ''' <summary>
    9. ''' DLL-Deklaration der SendMessage-API
    10. ''' </summary>
    11. <DllImport("user32.dll", EntryPoint:="SendMessageA")> _
    12. Private Shared Sub SendMessage( _
    13. ByVal hWnd As IntPtr, _
    14. ByVal uMsg As Int32, _
    15. ByVal wParam As Int32, _
    16. ByVal lParam As Int32)
    17. End Sub
    19. ''' <summary>
    20. ''' Benötigte Konstanten für die SendMessage API-Funktion
    21. ''' </summary>
    22. Private Enum Params As Int32
    23. SC_MONITORPOWER = &HF170 ' wParam
    24. WM_SYSCOMMAND = &H112 ' uMsg
    25. TURN_MONITOR_OFF = 2 ' Monitor ausschalten
    26. TURN_MONITOR_ON = -1 ' Monitor einschalten
    27. End Enum
    29. ''' <summary>
    30. ''' Schaltet den Monitor entweder ein- oder aus
    31. ''' </summary>
    32. ''' <param name="Index">off = ausschalten / on = einschalten</param>
    33. ''' <param name="Handle">Handle der aufrufenden Anwendung</param>
    34. Public Shared Sub SetMonitorState(ByVal Index As String, ByVal Handle As IntPtr)
    35. Select Case Index
    36. Case "off"
    37. ' Schaltet den Monitor aus
    38. SendMessage(Handle, Params.WM_SYSCOMMAND, Params.SC_MONITORPOWER, _
    39. Params.TURN_MONITOR_OFF)
    40. Case "on"
    41. ' Schaltet den Monitor wieder ein
    42. SendMessage(Handle, Params.WM_SYSCOMMAND, Params.SC_MONITORPOWER, _
    43. Params.TURN_MONITOR_ON)
    45. End Select
    46. End Sub
    47. End Class
    49. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    50. Monitor.SetMonitorState("off", Me.Handle)
    52. End Sub
    54. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    55. Monitor.SetMonitorState("off", Me.Handle)
    58. End Sub
    60. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    62. 'hier würd ich gerner das programm schließen also dieses
    63. End Sub
    64. End Class

    Du hörst dich an wie jemand, der gerne Code irgendwo hinschreibt, nur damit er da ist, nicht um irgendeine Wirkung zu erzielen.
    Wie wärs, wenn du erstmal die Grundlagen lernst. (Den Code im ersten Post hast du nämlich sicher nicht selbst geschrieben)
    Edit: YaPh1l hat schon einen perfekten Hinweis gepostet.

    NEIN!:cursing:
    Ich habe ein anderes problem nicht das was er sagt mit kill und so
    sondern ich will das eiene programm beenden wenn der bildschirm wieder angeht!
    und ich habe keine ahnung wo ich das reinmachen soll
    und den code habe ich wirklich nicht selber geschrieben!

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. 'hier würd ich gerner das programm schließen also dieses
    4. End Sub


    Du widersprichst dir selbst.
    Im Beispielcode oben vermerkst du, wo du den Code hinhaben willst, aber sagst dann, dass du nicht weißt, wohin damit.

Facebook
Telefonspende