Private Sub Command1_click()
text1.text=left(text1.text,len(text1.text)-1)
End Ssub
回答者: lxz1969 - 首席运营官 十二级 9-26 11:47
这个就行
Lock 属性为 Ture,你怎么 BackSpace?
if text1.selectlenth=0 thne
if text1.selectstart<>0 then
text1.selectstart=text1.selectstart-1
text1.selectlenth=1
text1.selecttext=""
else
exit sub
endif
else
text1.selecttext=""
endif
Private Sub Command1_click()
text1.text=left(text1.text,len(text1.text)-1)
End Ssub
楼上的就可以