Soll in der Anwendung eine Mögichkeiot geschaffen werden, den Windows Shutdown-Dialog zu implemtieren, hier der Code
'Zuersten einen Verweis auf den passenden Namespace
Imports System.Runtime.InteropServices
'jetzt die Shell32 implementieren
<DllImport("shell32", EntryPoint:="#60")> _
Private Shared Function ShowShutDownDialog(ByVal param As Integer) As Integer
End Function
'Aufruf der Funktion (im Beispiel mit dem Button1)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShowShutDownDialog(0)
End Sub
'Eine zweite Variante
Declare Function ShutDownDialog2 Lib "shell32" Alias "#60" (ByVal parameter As Int32) As Int32
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ShutDownDialog2(0)
End Sub
3 Kommentare zum Snippet