作者badsan (.........)
看板Visual_Basic
标题[VB6 ] 按Delete所发生的问题
时间Thu Jan 4 09:19:50 2007
各位大大以下是我的一小段程式...
Private Sub Text5_Change()
If Text5.Text > 23 Then
MsgBox "Value must < 24"
Text5.Text = 0
End If
End Sub
如果在栏位中输入大於23的值...
就会出现警告讯息...
但是现在有各问题...
假设我栏位中已经有各值了...假设18...
然後我把18反白按delete删除...
会跑出型态错误:13的讯息~_~...然後程式就关掉了..
问题出在这一段...
如果用倒退键<--也会有这问题...
请问有大大知道如何解决吗??让他也支援用delete删除??
和倒退键??
不然根本无法修改值~_~...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.120.55.214
※ 编辑: badsan 来自: 59.120.55.214 (01/04 09:33)
1F：推 LHE:最简单的应该是加上On Error Resume Next吧? 一点小小意见 01/04 09:54
2F：推 fumizuki:If Val(Text5.Text) > 23 Then ... 01/04 12:31
3F：推 BearWu:因为你执行动作的关系吧Text5_Change，当Text5一改变就会执 01/04 12:58
4F：→ BearWu:行msgbox吧，试着用其他的动作来判断吧 01/04 12:59