C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe /target:winexe /out:EdgeShortcutKeysDisplay.exe EdgeShortcutKeysDisplay.vb
Imports System
Imports System.Windows.Forms
Public Class EdgeShortcutKeysDisplay
Inherits Form
Private richTextBox As New RichTextBox()
Private alwaysOnTopCheckBox As New CheckBox()
Public Sub New()
' フォームの設定
Me.Text = "Edgeのすべてのショートカットキー"
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() = {
"Edgeのすべてのショートカットキー一覧:",
"基本操作:",
"Ctrl + N : 新しいウィンドウを開く",
"Ctrl + T : 新しいタブを開く",
"Ctrl + Shift + N : 新しいInPrivateウィンドウを開く",
"Ctrl + W : 現在のタブを閉じる",
"Ctrl + Shift + W : 現在のウィンドウを閉じる",
"Ctrl + Shift + T : 最後に閉じたタブを再度開く",
"Ctrl + Tab : 次のタブに移動",
"Ctrl + Shift + Tab : 前のタブに移動",
"Ctrl + 1～8 : 特定の位置にあるタブに移動",
"Ctrl + 9 : 最後のタブに移動",
"Alt + Home : ホームページを開く",
"Alt + 左矢印 : 前のページに戻る",
"Alt + 右矢印 : 次のページに進む",
"Ctrl + R / F5 : ページを再読み込み",
"Shift + F5 / Ctrl + Shift + R : キャッシュを無視してページを再読み込み",
"Esc : ページの読み込みを停止",
"Ctrl + L / Alt + D : アドレスバーを選択",
"Ctrl + E / Ctrl + K : アドレスバーで検索を行う",
"Ctrl + Enter : www. と .com を追加してアクセス",
"Alt + Enter : 新しいタブでアドレスバーの検索結果を開く",
"Ctrl + D : ページをブックマークに追加",
"Ctrl + Shift + B : お気に入りバーの表示/非表示",
"Ctrl + J : ダウンロード履歴を表示",
"Ctrl + H : 閲覧履歴を表示",
"Ctrl + Shift + Delete : 閲覧データを消去",
"Ctrl + Shift + O : お気に入りマネージャを開く",
"Ctrl + Shift + U : ページ翻訳",
"Ctrl + F : 検索バーを開いてページ内を検索",
"Ctrl + Shift + I / F12 : デベロッパーツールを開く",
"Ctrl + Shift + M : モバイルビューに切り替え",
"Ctrl + P : 印刷",
"Ctrl + S : ページを保存",
"Ctrl + + : ズームイン",
"Ctrl + - : ズームアウト",
"Ctrl + 0 : ズームをリセット",
"F11 : フルスクリーンモードの切り替え",
"Ctrl + Shift + Esc : タスクマネージャを開く",
"Ctrl + Shift + J : JavaScriptコンソールを開く",
"Ctrl + Shift + Y : Webキャプチャを開く",
"Ctrl + Shift + E : コレクションを開く",
"Alt + Shift + I : フィードバックを送信"
}
' 太字で追加
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 EdgeShortcutKeysDisplay())
End Sub
End Class