C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe /target:winexe /out:CmdShortcutKeysDisplay.exe CmdShortcutKeysDisplay.vb
Imports System
Imports System.Windows.Forms
Public Class CmdShortcutKeysDisplay
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 + C : 現在のコマンドを中断",
"Ctrl + V : コピーしたテキストを貼り付け",
"Ctrl + M : マークモードの切り替え",
"Ctrl + ↑ / Ctrl + ↓ : コマンド履歴をスクロール",
"Ctrl + F : 検索ダイアログを開く",
"Ctrl + Home : バッファの先頭にスクロール",
"Ctrl + End : バッファの末尾にスクロール",
"Shift + ↑ / Shift + ↓ : 1行ずつスクロール",
"Shift + Page Up / Shift + Page Down : 1ページずつスクロール",
"Esc : 現在の入力をキャンセル",
"Tab : コマンドの補完",
"F1 : 直前のコマンドを1文字ずつ再入力",
"F2 : 特定の文字までの再入力",
"F3 : 前のコマンドを完全に再入力",
"F4 : 特定の文字まで削除",
"F5 : コマンド履歴のスクロール",
"F7 : コマンド履歴の一覧表示",
"F8 : コマンド履歴の補完検索",
"F9 : コマンド履歴の特定のコマンドを実行",
"Alt + Enter : 全画面モードの切り替え",
"Shift + Insert : クリップボードから貼り付け",
"Ctrl + Shift + ↑ / ↓ : 複数行のコマンド履歴をスクロール",
"Ctrl + Shift + ← / → : カーソルを単語単位で移動",
"Ctrl + Home : カーソル位置から行の先頭まで削除",
"Ctrl + End : カーソル位置から行の末尾まで削除"
}
' 太字で追加
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 CmdShortcutKeysDisplay())
End Sub
End Class