Mit "Exit Windows" gehts nich, wie in nem Post vor mir beschrieben.
Ich denk mir das so:
Privat Sub Form_Load()
[Der code]
End Sub
Was muss ich an Stelle von [Der Code]schreiben? Thx schon mal im Voraus.
Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge
T-Rex
(Anonym)
„Kann mir jemand den Visual Basic Code geben um Windows zu be“
Ist zwar extrem ausführlich, sollte aber auf jeden Fall funzen.
Grüße
T-Rex
PS: Auf der Site wird Dir in der Regel schneller geholfen, wenn es um VB und VBA geht.
(Anonym)
T-Rex
„ Ist zwar extrem ausführlich, sollte aber auf jeden Fall funzen. Grüße T-Rex...“
Hier ein einfaches Beipiel, und was noch wichtiger ist:Es ist nicht active-vb. Denn hier bei nickles.de wird einem immer schnell geholfen !!!!!!!!!!!
Option Explicit
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_REBOOT = 2
Private Sub cmdTerminate_Click()
Dim lngRet As Long
If MsgBox("Soll WIndows wirklich beendet werden?", vbYesNo + vbQuestion, "Windows neu starten") = vbYes Then
lngRet = WinNeustart
If lngRet = 1 Then
MsgBox "Beenden von Windows zu diesem Zeitpunkt nicht möglich!"
End If
End If
End Sub
Function WinNeustart() As Long
Dim lngRet As Long
lngRet = ExitWindowsEx(EWX_REBOOT, 0)
End Function
(Anonym)
T-Rex
„ Ist zwar extrem ausführlich, sollte aber auf jeden Fall funzen. Grüße T-Rex...“
Du kannst eine Shell-Verknüpfung erstenllen. Das sieht dann so aus:
forml...
shell("rundll32.exe,user ExitWindows")
end ...
:)
Ps: Falls dies nicht gehen sollte, kannst du ja den Code von der Adresse die T-Rex dir gegeben hatte, nehmen!
(Anonym)
Nachtrag zu: „Du kannst eine Shell-Verknüpfung erstenllen. Das sieht dann so aus: forml......“
Jetzt schreibt er schon nicht mehr mit seinem Nick - wie armselig.
(Anonym)
Nachtrag zu: „Du kannst eine Shell-Verknüpfung erstenllen. Das sieht dann so aus: forml......“
Jetzt schreibt er schon nicht mehr mit seinem Nick - wie armselig.
