クリックを複数回実行してボタンの内容を変更するには

VBでは、ボタンのClickイベントを使用して複数回クリックすることでボタンのコンテンツを変更する機能を実装できます。

まずフォームデザイナーにボタンコントロールとラベルコントロールを追加します。次に、ボタンコントロールをダブルクリックし、ボタンのClickイベントでコードを入力します。

ボタンのクリックイベント内で、カウンター変数を使用してクリック回数を記録し、クリックごとにカウンターを 1 増やし、カウンターの値に基づいてラベルの内容を変更します。

以下にサンプルコードを示します。

Public Class Form1
    Dim counter As Integer = 0 ' 定义计数器变量

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        counter += 1 ' 每次点击时计数器加1
        Label1.Text = "按钮已点击 " & counter & " 次" ' 更新标签的内容
    End Sub
End Class

上記のコードでは、クリックするたびにカウンター変数counterが1増え、ラベルコントロールLabel1の内容が「ボタンがX回クリックされました」と更新されます。ここでXはクリック数です。

上記のコードが正常に動作するには、ボタンコントロールの名前を「Button1」に変更し、ラベルコントロールの名前を「Label1」に変更する必要があります。