Visual Studio Basic_42 簡易エディター作成は思ったよりも簡単でした

簡易エディター作成は思ったよりも簡単でした。

レイアウトは上の様にしました。

共通コントロールからMultilineをTrueに設定した大きめのTextBoxと、

メニューとツールバーからMenustripを上の様に設定します。

例えば New (N) は、New (&N)と入力します。

ソースの「-----------------」は区切り線なので記述の必要はありません。

青字は自動入力部分で修正の必要はありません。 黒字が入力部分です。 緑字はコメント文なので記述の必要はありません。

-----------------

Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click
    ' File>New でTextBox1をクリア

    TextBox1.Clear()
End Sub
-----------------
Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click

    ' File>Open でTextファイルを開く
    Dim openFileDialog As New OpenFileDialog()
    openFileDialog.Filter = "テキストファイル (*.txt)|*.txt|すべてのファイル (*.*)|*.*"
    If openFileDialog.ShowDialog() = DialogResult.OK Then
    TextBox1.Text = System.IO.File.ReadAllText(openFileDialog.FileName)
End If
End Sub
-----------------
Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

    ' File>Save でTextファイルを保存
    Dim saveFileDialog As New SaveFileDialog()
    saveFileDialog.Filter = "テキストファイル (*.txt)|*.txt|すべてのファイル (*.*)|*.*"
    If saveFileDialog.ShowDialog() = DialogResult.OK Then
    System.IO.File.WriteAllText(saveFileDialog.FileName, TextBox1.Text)
End If
End Sub
-----------------
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
    ' File>Exit でプログラム終了

    Me.Close()
End Sub
-----------------
Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click

    ' Edit>Cut でControl X
    TextBox1.Cut()
End Sub
-----------------
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click

    ' Edit>Copy でControl C
    TextBox1.Copy()
End Sub
-----------------
Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click

    ' Edit>Paste でControl V
    TextBox1.Paste()
End Sub
End Class

-----------------

起動し、適応名文章を入力し・・・

Copy & PasteやSave等を確認しました。

ただ・・・ここで設定しなくても、

Copy & PasteやCut等は出来ますね（^o^）

気長に育ててみたいと思います。

※File＞Saave(S)は,タイプミスで、正しくはFile＞Save(S)です。