论坛: 编程破解 标题: VB问题,为什么这里出现标签位定义啊? 复制本贴地址    
作者: xuruijun [xuruijun]    论坛用户   登录
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
Dim result As Double (为什么这里出现标签位定义啊?)

On Error GoTo errstep

x = CDbl(text1st.Text)
y = CDbl(text2nd.Text)



End Sub

Private Sub Label1_Click()
labellst.Caption = "第一个数据:"


End Sub

Private Sub Label2_Click()
labellst.capion = "第二个数据:"
End Sub

Private Sub Label3_Click()
labelreult.capion = "结果值:"
End Sub

Private Sub Label4_Click()
optionadd.capion = "加"
End Sub

Private Sub Label5_Click()
optionsub.Caption = "减"

End Sub

Private Sub Label6_Click()
opion mult.capion = "乘"

End Sub

Private Sub Label7_Click()
optiondiv.Caption = "除"

End Sub

Private Sub Option1_Click()
If optionadd.Value = True Then result = x + y

End Sub

Private Sub Option2_Click()
If optionsub.Value = True Then result = x - y

End Sub

Private Sub Option3_Click()
If optionmult.Value = True Then sesult = x * y

End Sub

Private Sub Option4_Click()
result = x / y

End Sub

Private Sub Text1_Change()
text1st.Text = ""
End Sub

Private Sub Text2_Change()
text2nd.Text = ""

End Sub

Private Sub Text3_Change()
textbresult.Text = ""

End Sub
谁可以给我一份详细的解释啊。。。。谢谢!



[此贴被 286(unique) 在 06月24日16时56分 编辑过]

地主 发表时间: 04-06-24 13:40

回复: Frankiez [frankiez84]   论坛用户   登录
在用goto跳转时,你的标签当然必须定义咯,也就是GOTO之后跟的跳转的位置,这里给出修改后的代码

Private Sub Command1_Click()
Dim x As Double
Dim y As Double
Dim result As Double (为什么这里出现标签位定义啊?)

On Error GoTo errstep

x = CDbl(text1st.Text)
y = CDbl(text2nd.Text)

Exit Sub

errstep:
'在这里加入错误处理的代码,当然,也可以不处理
End Sub


B1层 发表时间: 04-06-24 15:02

回复: xuruijun [xuruijun]   论坛用户   登录
可以说得详细点吗?

B2层 发表时间: 04-06-24 18:15

回复: Frankiez [frankiez84]   论坛用户   登录
够详细了,更多的信息你可以查msdn,vb的错误处理部份

B3层 发表时间: 04-06-25 15:43

回复: windflower [windflower]   论坛用户   登录
这还不详细啊。
on error goto errstep==错误则跳到errstep处执行
而你的过程中,errstep在哪呢?在哪呢?没有啊,那就会出现没有定义了。

B4层 发表时间: 04-06-27 13:07

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号