実現したいこと
Windows Formsアプリケーションプロジェクトを使用してWindowsでシャットダウン、再起動、スリープ、休止状態への切り替えが出来るアプリを作りたい。
試したこと
コパイロットに質問
ソースコード
Visual
1Imports System.Diagnostics 2 3Public Class MainForm 4 Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load 5 ' ボタンをフォームに追加 6 Me.Controls.Add(btnShutdown) 7 Me.Controls.Add(btnRestart) 8 Me.Controls.Add(btnSleep) 9 Me.Controls.Add(btnHibernate) 10 End Sub 11 12 Private WithEvents btnShutdown As New Button With {.Text = "シャットダウン", .Location = New Point(13, 13)} 13 Private WithEvents btnRestart As New Button With {.Text = "再起動", .Location = New Point(13, 42)} 14 Private WithEvents btnSleep As New Button With {.Text = "スリープ", .Location = New Point(13, 71)} 15 Private WithEvents btnHibernate As New Button With {.Text = "休止状態", .Location = New Point(13, 100)} 16 17 Private Sub btnShutdown_Click(sender As Object, e As EventArgs) Handles btnShutdown.Click 18 If MessageBox.Show("本当にシャットダウンしますか?", "確認", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.Yes Then 19 Process.Start("shutdown", "/s /f /t 0") 20 End If 21 End Sub 22 23 Private Sub btnRestart_Click(sender As Object, e As EventArgs) Handles btnRestart.Click 24 If MessageBox.Show("本当に再起動しますか?", "確認", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.Yes Then 25 Process.Start("shutdown", "/r /f /t 0") 26 End If 27 End Sub 28 29 Private Sub btnSleep_Click(sender As Object, e As EventArgs) Handles btnSleep.Click 30 If MessageBox.Show("本当にスリープしますか?", "確認", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.Yes Then 31 Application.SetSuspendState(PowerState.Suspend, True, True) 32 End If 33 End Sub 34 35 Private Sub btnHibernate_Click(sender As Object, e As EventArgs) Handles btnHibernate.Click 36 If MessageBox.Show("本当に休止状態にしますか?", "確認", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.Yes Then 37 Application.SetSuspendState(PowerState.Hibernate, True, True) 38 End If 39 End Sub 40End Class 41
ボタン情報
シャットダウンボタン:
Text プロパティ: シャットダウン
Name プロパティ: btnShutdown
再起動ボタン:
Text プロパティ: 再起動
Name プロパティ: btnRestart
スリープボタン:
Text プロパティ: スリープ
Name プロパティ: btnSleep
休止状態ボタン:
Text プロパティ: 休止状態
Name プロパティ: btnHibernate
質問
エラーを直す方法を教えてください
エラー詳細
error
1'Controls' は 'MainForm' のメンバーではありません。 2 イベント 'Load' が見つかりません。
あなたの回答
tips
プレビュー