C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe /target:winexe /out:ShortcutKeysDisplay.exe ShortcutKeysDisplay.vb
Imports System
Imports System.Windows.Forms
Public Class ShortcutKeysDisplay
Inherits Form
Private richTextBox As New RichTextBox()
Private alwaysOnTopCheckBox As New CheckBox()
Public Sub New()
' フォームの設定
Me.Text = "エクスプローラーのすべてのショートカットキー"
Me.Size = New Drawing.Size(800, 600)
Me.MinimumSize = New Drawing.Size(400, 300) ' ウィンドウの最小サイズ
' RichTextBoxの設定
richTextBox.Dock = DockStyle.Fill
richTextBox.ReadOnly = True
richTextBox.ScrollBars = RichTextBoxScrollBars.Vertical
' ショートカットキー情報の追加（太字設定）
AddShortcutKeys()
' チェックボックスの設定
alwaysOnTopCheckBox.Text = "常に最前面に表示"
alwaysOnTopCheckBox.Dock = DockStyle.Top
AddHandler alwaysOnTopCheckBox.CheckedChanged, AddressOf AlwaysOnTopCheckBox_CheckedChanged
' フォームにコントロールを追加
Me.Controls.Add(richTextBox)
Me.Controls.Add(alwaysOnTopCheckBox)
End Sub
' ショートカットキーのリストを追加し、太字に設定
Private Sub AddShortcutKeys()
Dim keys As String() = {
"エクスプローラーのすべてのショートカットキー一覧:",
"基本操作:",
"Ctrl + N : 新しいウィンドウを開く",
"Ctrl + W : 現在のウィンドウを閉じる",
"Alt + D : アドレスバーを選択",
"Ctrl + E / Ctrl + F : 検索バーに移動",
"Ctrl + Shift + N : 新しいフォルダを作成",
"Alt + Enter : プロパティを表示",
"F2 : 名前の変更",
"F3 : 検索バーに移動",
"Alt + P : プレビューウィンドウを表示/非表示",
"Ctrl + Shift + E : 現在のフォルダをペインに表示",
"Ctrl + L : アドレスバーを選択",
"Backspace : 前のフォルダに移動",
"Alt + ↑ : 親フォルダに移動",
"Alt + ← : 前のフォルダに戻る",
"Alt + → : 次のフォルダに進む",
"Ctrl + Shift + W : 全てのウィンドウを閉じる",
"F11 : フルスクリーンモードの切り替え",
"Ctrl + R / F5 : ウィンドウを更新",
"Ctrl + A : すべて選択",
"Ctrl + C : コピー",
"Ctrl + X : カット",
"Ctrl + V : 貼り付け",
"Ctrl + Z : 元に戻す",
"Ctrl + Y : やり直す",
"Shift + Delete : 完全に削除",
"Alt + F4 : 現在のウィンドウを閉じる",
"Ctrl + Shift + Esc : タスクマネージャーを開く",
"Alt + Tab : 開いているアプリケーションを切り替え",
"Ctrl + Tab : タブを移動",
"Ctrl + P : 印刷",
"Esc : アクションをキャンセル",
"Alt + Space : ウィンドウメニューを開く",
"Shift + F10 : コンテキストメニューを開く (右クリックと同様)",
"Ctrl + Shift + 数字 : クイックアクセスにピン留めしたフォルダを開く",
"Ctrl + Shift + 数字 (1-9) : 特定のウィンドウを切り替え",
"Ctrl + Shift + T : 閉じたタブを再度開く",
"Windows + E : エクスプローラーを開く",
"Windows + D : デスクトップを表示/非表示",
"Windows + 上矢印 : ウィンドウを最大化",
"Windows + 下矢印 : ウィンドウを最小化/復元",
"Windows + 左矢印 : ウィンドウを左にスナップ",
"Windows + 右矢印 : ウィンドウを右にスナップ",
"Ctrl + Shift + C : 現在のパスをコピー",
"Shift + マウスのスクロール : 水平方向にスクロール",
"Ctrl + Shift + N : 新しいフォルダを作成"
}
' 太字で追加
For Each key As String In keys
richTextBox.SelectionFont = New Drawing.Font(richTextBox.Font, Drawing.FontStyle.Bold)
richTextBox.AppendText(key & Environment.NewLine)
Next
End Sub
' 常に最前面に表示のチェックボックス変更イベント
Private Sub AlwaysOnTopCheckBox_CheckedChanged(sender As Object, e As EventArgs)
Me.TopMost = alwaysOnTopCheckBox.Checked
End Sub
<STAThread>
Public Shared Sub Main()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.Run(New ShortcutKeysDisplay())
End Sub
End Class