中科新闻网管道隔汽保护层是什么:一个关于VB子程序的问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 19:18:26
我一个保存的程序这样写的:
Private Sub Command2_Click()
验证的子程序
保存
End Sub
Public Sub 验证的子程序()
if 验证 不通过 then
msgbox"验证 不通过",,""
exit sub
end if
End Sub
问题是验证不通过时,我就不想在主程序中继续执行 保存 动作,如何写?
楼下回答我比较满意。我修改了一下主程序：
Private Sub Command2_Click()
if 验证的子程序1() = False then exit sub
if 验证的子程序2() = False then exit sub
if 验证的子程序3() = False then exit sub
.....
保存
End Sub
这样就更好了.
Private Sub Command2_Click()
验证的子程序
保存
End Sub
Public Sub 验证的子程序()
if 验证 不通过 then
msgbox"验证 不通过",,""
exit sub
end if
End Sub
问题是验证不通过时,我就不想在主程序中继续执行 保存 动作,如何写?
楼下回答我比较满意。我修改了一下主程序：
Private Sub Command2_Click()
if 验证的子程序1() = False then exit sub
if 验证的子程序2() = False then exit sub
if 验证的子程序3() = False then exit sub
.....
保存
End Sub
这样就更好了.
可以将"验证的子程序"编写成"function"
Public Function 验证的子程序() as Boolean
if 验证 不通过 then
msgbox"验证 不通过",,""
验证的子程序 = False
exit sub
end if
验证的子程序 = True
End Sub
Private Sub Command2_Click()
if 验证的子程序() = Ture then
保存
endif
End Sub