commandで、BackSpaceと同じ働きをさせるには？ (ID:123766)

名前

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

本文 よく考えたら計算数値の表示欄ってテキストボックスじゃなくていい訳ですよね 3DのLabelでテキストボックスのようにして、そこに数値を表示させるだけで だから、 Label1を数値表示欄 Command1をBSボタンとして Private Sub Command1_Click() '１桁以下なら数値を０に汁 If Len(Label1) < 1 Then Label1 = "0" Exit Sub End If '最後の入力を消す Label1 = Left$(Label1 , Len(Label1) - 1) End Sub でいいんじゃないかと