レイアウトの最中に、うっかりLabelやTextBoxのパーツをダブルクリックし、ソースに余計な記述ができてしまうことがあります。私もしょっちゅうやります。そんな場合の対処方法を整理してみました。
その前に、一度終了してから再起動してプログラミングの続きを行いたいときは、最初に表示される上の画面の左端の一覧から続きを行いたいプログラムを選択すればOKです。
本題に入ると、例えば絵小野様なレイアウトの最中にダブルクリックは［Button1］だけで良いのに、うっかり［Label1］をダブルクリックしてしまったとします。
そんなときは、上の上段の様にソース記述モードになりますが、中段のように不要な部分を選択して削除してしまえば問題ありません。残るのは1行目と最後の行だけです。
「-----------------」は区切り線なので記述の必要はありません。
青字は自動入力部分で修正の必要はありません。
黒字が入力部分です。
ダブルクリツクで表示されたソースコード
-----------------
Public Class Form1
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
-----------------
表示されたソースコードのうち、1行目の［Public Class Form1］と最後の行の［End Class］以外（赤で表示した部分）を削除します。
-----------------
Public Class Form1
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
-----------------
これでソースコードが以下の様になれば問題解決です。
-----------------
Public Class Form1
End Class
-----------------
それでは、既に［Button1］の処理を記述後に［Label2］間違ってダブルクリックしてしまったとします。
そんなときは、上の上段の様にソース記述モードになりますが、不要な部分を選択して削除してしまえば問題ありません。残るのは1行目と最後の行だけです。
ダブルクリックで表示されたソースコード
-----------------
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
-----------------
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
End Class
-----------------
表示されたソースコードのうち、1行目の［Public Class Form1］から最初の［End Sub］までと、一番最後の行の［End Class］以外（赤で表示した部分）を削除します。
-----------------
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
-----------------
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
End Class
-----------------
これでソースコードが以下の様になれば問題解決です。
-----------------
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
End Class
-----------------
何処をクリックした科を整理すれば混乱は無いでしょう。
ところで［TextBox］のサイズは中に表示するフォントのサイズで調整しますが、
複数行表示したいような場合は［TextBox］右上にアル小さな三角形をクリックして表知れる項目の［MultiLine］にチェックを入れれば対応可能です。
上は［MultiLine］にチェックを入れた状態です。
Visual Studio Basic 2019
