关于错误6溢出-CSDN论坛

⋅关于错误6溢出 更多帖子 关注私信空间博客 夏至oyy 本版专家分：9 结帖率 100%

最近遇到一个问题，求帮组。表达能力有限，谅解。
在完成的软件中添加一个功能，当设备不在线时，调用以前写好的重连函数。每五秒重连一次。
主要代码如下：
（Picture16_DblClick(1)这个函数在以前就实现，运行一直没有问题的）

 Dim one_Time_Count As Long  '自动重连计时器

 Dim two_Time_Count As Long  '自动重连计时器

 Dim three_Time_Count As Long  '自动重连计时器

Private Sub Timer1_Timer()

    one_Time_Count = one_Time_Count + 1

    two_Time_Count = two_Time_Count + 1

    three_Time_Count = three_Time_Count + 1

end sub

Private Sub Timer2_Timer()‘重连的调用

    On Error Resume Next

    If Picture16(1).Visible = True Then

        If one_Time_Count >= 5 Then

            Call Picture16_DblClick(1)

            one_Time_Count = 0

        End If

    End If

    If Picture16(2).Visible = True Then

        If two_Time_Count >= 5 Then

            Call Picture16_DblClick(2)

            two_Time_Count = 0

        End If

    End If

    If Picture16(3).Visible = True Then

        If three_Time_Count >= 5 Then

            Call Picture16_DblClick(3)

            three_Time_Count = 0

        End If

    End If

End Sub

在我加了这段代码后，程序运行一天后，会报错，错误6，溢出。
我在WIN7下运行没有问题，客户电脑用的是XP英文版。在客户电脑上的VB有点问题，用VB建立一个空的工程会报错下标越界。
我想解决程序在客户电脑上报溢出的错误。求指导~~~。是代码的问题还是环境的问题？或者其他。

0 2013-10-29 15:33:01

回复数 8 只看楼主引用举报楼主

⋅CSDN越来越垃圾 ⋅祝大家元宵节快乐 ⋅可用分兑换功能取消了吗？ 更多帖子 关注私信空间博客 worldy 本版专家分：26139 红花 2015年8月硬件/嵌入开发大版内专家分月排行榜第一 2015年7月 VC/MFC大版内专家分月排行榜第一 2015年5月 VC/MFC大版内专家分月排行榜第一 2015年4月 VC/MFC大版内专家分月排行榜第一 2015年3月 VC/MFC大版内专家分月排行榜第一 2015年1月硬件/嵌入开发大版内专家分月排行榜第一 2013年12月 VC/MFC大版内专家分月排行榜第一 2013年11月 VC/MFC大版内专家分月排行榜第一 2013年6月 VB大版内专家分月排行榜第一 2013年5月 VB大版内专家分月排行榜第一 2013年1月 VB大版内专家分月排行榜第一 2012年12月 VB大版内专家分月排行榜第一 黄花 2015年9月 VC/MFC大版内专家分月排行榜第二 2015年7月硬件/嵌入开发大版内专家分月排行榜第二 2014年5月 VC/MFC大版内专家分月排行榜第二 2014年3月 VC/MFC大版内专家分月排行榜第二 2013年10月 VB大版内专家分月排行榜第二 2013年7月 VB大版内专家分月排行榜第二 2012年5月 VB大版内专家分月排行榜第二 2012年4月 VB大版内专家分月排行榜第二 2012年2月 VB大版内专家分月排行榜第二 2011年11月 VB大版内专家分月排行榜第二 蓝花 2015年11月 VC/MFC大版内专家分月排行榜第三 2015年6月 VC/MFC大版内专家分月排行榜第三 2015年2月 VC/MFC大版内专家分月排行榜第三 2014年1月 VC/MFC大版内专家分月排行榜第三 2012年3月 VB大版内专家分月排行榜第三 2011年12月 VB大版内专家分月排行榜第三 2011年10月 VB大版内专家分月排行榜第三: Private Sub Timer2_Timer()‘重连的调用
'    On Error Resume Next'z这是掩盖错误做法，程序有问题就没法知道，正确的是
    On Error Goto ErrHandler
    If Picture16(1).Visible = True Then
        If one_Time_Count >= 5 Then
            Call Picture16_DblClick(1)
            one_Time_Count = 0
        End If
    End If
    If Picture16(2).Visible = True Then
        If two_Time_Count >= 5 Then
            Call Picture16_DblClick(2)
            two_Time_Count = 0
        End If
    End If
    If Picture16(3).Visible = True Then
        If three_Time_Count >= 5 Then
            Call Picture16_DblClick(3)
            three_Time_Count = 0
        End If
    End If
exit sub
ErrHandler:
msgbox err.description''让程序报告错误
End Sub

0 2013-10-29 15:49:59

只看TA 引用举报 #1    得分 20

夏至oyy 本版专家分：9: 按照你的意思该了，程序没有报错。
主要的问题是，程序是在运行了一段时间后报错。

0 2013-10-29 16:46:20

只看TA 引用举报 #2 得分 0

⋅关于错误6溢出 更多帖子 关注私信空间博客 夏至oyy 本版专家分：9: 引用 1 楼 worldy 的回复:
Private Sub Timer2_Timer()‘重连的调用
  On Error Resume Next'z这是掩盖错误做法，程序有问题就没法知道，正确的是[/color]
    On Error Goto ErrHandler
    If Picture16(1).Visible = True Then
        If one_Time_Count >= 5 Then
            Call Picture16_DblClick(1)
            one_Time_Count = 0
        End If
    End If
    If Picture16(2).Visible = True Then
        If two_Time_Count >= 5 Then
            Call Picture16_DblClick(2)
            two_Time_Count = 0
        End If
    End If
    If Picture16(3).Visible = True Then
        If three_Time_Count >= 5 Then
            Call Picture16_DblClick(3)
            three_Time_Count = 0
        End If
    End If
exit sub‘好像我的代码里面没有这句。在时钟函数中加上这句和不加的区别是什么？
ErrHandler:
msgbox err.description''让程序报告错误
End Sub

exit sub‘好像我的代码里面没有这句。在时钟函数中加上这句和不加的区别是什么？

0 2013-10-29 16:57:37

只看TA 引用举报 #3    得分 0

⋅CSDN越来越垃圾 ⋅祝大家元宵节快乐 ⋅可用分兑换功能取消了吗？ 更多帖子 关注私信空间博客 worldy 本版专家分：26139 红花 2015年8月硬件/嵌入开发大版内专家分月排行榜第一 2015年7月 VC/MFC大版内专家分月排行榜第一 2015年5月 VC/MFC大版内专家分月排行榜第一 2015年4月 VC/MFC大版内专家分月排行榜第一 2015年3月 VC/MFC大版内专家分月排行榜第一 2015年1月硬件/嵌入开发大版内专家分月排行榜第一 2013年12月 VC/MFC大版内专家分月排行榜第一 2013年11月 VC/MFC大版内专家分月排行榜第一 2013年6月 VB大版内专家分月排行榜第一 2013年5月 VB大版内专家分月排行榜第一 2013年1月 VB大版内专家分月排行榜第一 2012年12月 VB大版内专家分月排行榜第一 黄花 2015年9月 VC/MFC大版内专家分月排行榜第二 2015年7月硬件/嵌入开发大版内专家分月排行榜第二 2014年5月 VC/MFC大版内专家分月排行榜第二 2014年3月 VC/MFC大版内专家分月排行榜第二 2013年10月 VB大版内专家分月排行榜第二 2013年7月 VB大版内专家分月排行榜第二 2012年5月 VB大版内专家分月排行榜第二 2012年4月 VB大版内专家分月排行榜第二 2012年2月 VB大版内专家分月排行榜第二 2011年11月 VB大版内专家分月排行榜第二 蓝花 2015年11月 VC/MFC大版内专家分月排行榜第三 2015年6月 VC/MFC大版内专家分月排行榜第三 2015年2月 VC/MFC大版内专家分月排行榜第三 2014年1月 VC/MFC大版内专家分月排行榜第三 2012年3月 VB大版内专家分月排行榜第三 2011年12月 VB大版内专家分月排行榜第三 2011年10月 VB大版内专家分月排行榜第三: 引用 3 楼 jamesczy 的回复:
Quote: 引用 1 楼 worldy 的回复:

Private Sub Timer2_Timer()‘重连的调用
  On Error Resume Next'z这是掩盖错误做法，程序有问题就没法知道，正确的是[/color]
    On Error Goto ErrHandler
    If Picture16(1).Visible = True Then
        If one_Time_Count >= 5 Then
            Call Picture16_DblClick(1)
            one_Time_Count = 0
        End If
    End If
    If Picture16(2).Visible = True Then
        If two_Time_Count >= 5 Then
            Call Picture16_DblClick(2)
            two_Time_Count = 0
        End If
    End If
    If Picture16(3).Visible = True Then
        If three_Time_Count >= 5 Then
            Call Picture16_DblClick(3)
            three_Time_Count = 0
        End If
    End If
exit sub‘好像我的代码里面没有这句。在时钟函数中加上这句和不加的区别是什么？
ErrHandler:
msgbox err.description''让程序报告错误
End Sub

exit sub‘好像我的代码里面没有这句。在时钟函数中加上这句和不加的区别是什么？

我帮你加的，用于在不出错的时候，不让程序显示错误对话框

0 2013-10-29 17:00:10

只看TA 引用举报 #4    得分 0

⋅关于错误6溢出 更多帖子 关注私信空间博客 夏至oyy 本版专家分：9: 引用 4 楼 worldy 的回复:
Quote: 引用 3 楼 jamesczy 的回复:

Quote: 引用 1 楼 worldy 的回复:

Private Sub Timer2_Timer()‘重连的调用
  On Error Resume Next'z这是掩盖错误做法，程序有问题就没法知道，正确的是[/color]
    On Error Goto ErrHandler
    If Picture16(1).Visible = True Then
        If one_Time_Count >= 5 Then
            Call Picture16_DblClick(1)
            one_Time_Count = 0
        End If
    End If
    If Picture16(2).Visible = True Then
        If two_Time_Count >= 5 Then
            Call Picture16_DblClick(2)
            two_Time_Count = 0
        End If
    End If
    If Picture16(3).Visible = True Then
        If three_Time_Count >= 5 Then
            Call Picture16_DblClick(3)
            three_Time_Count = 0
        End If
    End If
exit sub‘好像我的代码里面没有这句。在时钟函数中加上这句和不加的区别是什么？
ErrHandler:
msgbox err.description''让程序报告错误
End Sub

exit sub‘好像我的代码里面没有这句。在时钟函数中加上这句和不加的区别是什么？

我帮你加的，用于在不出错的时候，不让程序显示错误对话框

加了，程序运行没有问题。没有报错。

0 2013-10-29 17:12:28

只看TA 引用举报 #5    得分 0

⋅CSDN越来越垃圾 ⋅祝大家元宵节快乐 ⋅可用分兑换功能取消了吗？ 更多帖子 关注私信空间博客 worldy 本版专家分：26139 红花 2015年8月硬件/嵌入开发大版内专家分月排行榜第一 2015年7月 VC/MFC大版内专家分月排行榜第一 2015年5月 VC/MFC大版内专家分月排行榜第一 2015年4月 VC/MFC大版内专家分月排行榜第一 2015年3月 VC/MFC大版内专家分月排行榜第一 2015年1月硬件/嵌入开发大版内专家分月排行榜第一 2013年12月 VC/MFC大版内专家分月排行榜第一 2013年11月 VC/MFC大版内专家分月排行榜第一 2013年6月 VB大版内专家分月排行榜第一 2013年5月 VB大版内专家分月排行榜第一 2013年1月 VB大版内专家分月排行榜第一 2012年12月 VB大版内专家分月排行榜第一 黄花 2015年9月 VC/MFC大版内专家分月排行榜第二 2015年7月硬件/嵌入开发大版内专家分月排行榜第二 2014年5月 VC/MFC大版内专家分月排行榜第二 2014年3月 VC/MFC大版内专家分月排行榜第二 2013年10月 VB大版内专家分月排行榜第二 2013年7月 VB大版内专家分月排行榜第二 2012年5月 VB大版内专家分月排行榜第二 2012年4月 VB大版内专家分月排行榜第二 2012年2月 VB大版内专家分月排行榜第二 2011年11月 VB大版内专家分月排行榜第二 蓝花 2015年11月 VC/MFC大版内专家分月排行榜第三 2015年6月 VC/MFC大版内专家分月排行榜第三 2015年2月 VC/MFC大版内专家分月排行榜第三 2014年1月 VC/MFC大版内专家分月排行榜第三 2012年3月 VB大版内专家分月排行榜第三 2011年12月 VB大版内专家分月排行榜第三 2011年10月 VB大版内专家分月排行榜第三: 你不是要运行一天才会报错吗？等呗

0 2013-10-29 17:13:46

只看TA 引用举报 #6 得分 0

⋅解决“两个电脑同一个串口通讯的问题”的主动让渡协议 ⋅只能看到帖子中楼主问题了 ⋅再问：HID-comlian device 和 USB 人体学输入设备 更多帖子 关注私信空间博客 of123 本版专家分：118816 红花 2014年6月 VB大版内专家分月排行榜第一 2014年5月 VB大版内专家分月排行榜第一 2014年4月 VB大版内专家分月排行榜第一 2014年3月 VB大版内专家分月排行榜第一 2014年2月 VB大版内专家分月排行榜第一 2014年1月 VB大版内专家分月排行榜第一 2013年11月 VB大版内专家分月排行榜第一 黄花 2013年12月 VB大版内专家分月排行榜第二 2013年3月 VB大版内专家分月排行榜第二 2013年1月 VB大版内专家分月排行榜第二 2012年9月 VB大版内专家分月排行榜第二 2012年8月 VB大版内专家分月排行榜第二 2012年7月 VB大版内专家分月排行榜第二 2006年7月 VB大版内专家分月排行榜第二 2006年5月 VB大版内专家分月排行榜第二 蓝花 2014年9月 VB大版内专家分月排行榜第三 2013年7月 VB大版内专家分月排行榜第三 2013年6月 VB大版内专家分月排行榜第三 2013年4月 VB大版内专家分月排行榜第三 2012年11月 VB大版内专家分月排行榜第三 2006年6月 VB大版内专家分月排行榜第三 2006年4月 VB大版内专家分月排行榜第三 2002年12月 VB大版内专家分月排行榜第三 2002年11月 VB大版内专家分月排行榜第三

 

Dim Time_Count(1 To 3) As Long  '自动重连计时器

Dim i As Integer

Private Sub Timer1_Timer()

    For i = 1 To 3

        If Time_Count(i) < 5 Then Time_Count(i) = Time_Count(i) + 1



        If Picture16(i).Visible And Time_Count(i) = 5 Then

            Call Picture16_DblClick(i)

            Time_Count(i) = 0

        End If

    Next i

End Sub

1 计数器不要不停地加。因为你的清零代码是有条件的，条件长时间不满足时计数器会溢出。
2 如果 Picture16_DblClick 不是占用时间很长，就不需要 2 个定时器。

0 2013-10-30 09:10:08

只看TA 引用举报 #7 得分 20

⋅关于错误6溢出 更多帖子 关注私信空间博客 夏至oyy 本版专家分：9

引用 7 楼 of123 的回复:

 

Dim Time_Count(1 To 3) As Long  '自动重连计时器

Dim i As Integer

Private Sub Timer1_Timer()

    For i = 1 To 3

        If Time_Count(i) < 5 Then Time_Count(i) = Time_Count(i) + 1



        If Picture16(i).Visible And Time_Count(i) = 5 Then

            Call Picture16_DblClick(i)

            Time_Count(i) = 0

        End If

    Next i

End Sub

1 计数器不要不停地加。因为你的清零代码是有条件的，条件长时间不满足时计数器会溢出。
2 如果 Picture16_DblClick 不是占用时间很长，就不需要 2 个定时器。

嗯。受教。

0 2013-10-30 14:20:50

只看TA 引用举报 #8 得分 0

关于错误6溢出 [问题点数：40分，结帖人jamesczy]