初期状態に戻すには？

---

プログラムを作っていてCommand1を押すとLabelの文字などが変わり"取り消しボタン(Command2)"を作ってもとのLabelの文字に戻したいのですがその取り消しボタンに入れるいい命令などなにかありませんか？

---

Private mstrBuf As String
Private Sub Command1_Click()
    mstrBuf = Label1.Caption
    Label1.Caption = "あたらしいもじ"
End Sub
Private Sub Command2_Click()
    Label1.Caption = mstrBuf
End Sub

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。

ツイート