十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在你机器上没问题那就是运行环境的问题了 你发布的时候是不是把检测到的依赖项全打包进去啦?
创新互联建站是一家集网站建设,夏津企业网站建设,夏津品牌网站建设,网站定制,夏津网站建设报价,网络营销,网络优化,夏津网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
一: 利用错误捕获功能判断
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法:
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub
...
'将Try...Catch放在Main中
Try
Begin()
Catch e As Exception
ProcessException(e)
End Try
'在Begin中开始你的程序,就像从Main开始执行程序一个道理
Sub Begin()
'
End Sub
'将ProcessException改成你的要处理所有异常的过程名
Sub ProcessException(e As Exception)
'
End Sub
...