labelに入力された文字を一文字ずつ消すには？

解決

ｖｂ初心者 2004-11-30 20:19:24 No: 117920

vb6で電卓を作っています。Backキーのclickイベントとしてlabelに表示された数字を一文字ずつ消したいのですが、どのようにしたらよいでしょうか？

いな 2004-11-30 20:26:14 No: 117921

ざっくりこんな感じで
--

Sub hogehoge_Click()

dim GetLen as Integer

GetLen = Len(Text1.text)
Text1.text =Mid(Text1.text,1,GetLen -1)

End Sub

ｖｂ初心者 2004-11-30 20:32:38 No: 117922

できました！ありがとうございました。