C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe /target:winexe /out:NotepadShortcutKeysDisplay.exe NotepadShortcutKeysDisplay.vb
Imports System
Imports System.Windows.Forms
Public Class NotepadShortcutKeysDisplay
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 + O : ファイルを開く",
"Ctrl + S : ファイルを保存",
"F12 : 名前を付けて保存",
"Ctrl + P : 印刷",
"Alt + F4 : メモ帳を閉じる",
"Ctrl + Z : 元に戻す",
"Ctrl + Y : やり直す",
"Ctrl + X : 切り取り",
"Ctrl + C : コピー",
"Ctrl + V : 貼り付け",
"Ctrl + A : すべて選択",
"Ctrl + F : 検索",
"Ctrl + H : 置換",
"Ctrl + G : 行へ移動",
"Ctrl + W : 閉じる",
"Ctrl + Shift + S : 名前を付けて保存",
"F3 : 次を検索",
"F5 : 日付と時刻の挿入",
"Ctrl + ↑ / ↓ : 1行上 / 下にスクロール",
"Ctrl + Home : 文書の先頭に移動",
"Ctrl + End : 文書の末尾に移動",
"Ctrl + Backspace : 前の単語を削除",
"Ctrl + Delete : 次の単語を削除",
"Alt + Shift + F : フォーマットを選択",
"Ctrl + + / - : ズームイン / ズームアウト",
"Ctrl + 0 : ズームリセット",
"Ctrl + Shift + → / ← : 単語単位で選択",
"Ctrl + Shift + ↑ / ↓ : 段落単位で選択"
}
' 太字で追加
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 NotepadShortcutKeysDisplay())
End Sub
End Class