本文介绍了运行时错误“6":Visual Basic的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我使用的是 Visual Basic 6
我有以下代码结构:
FUNCNINFO 是一个结构体

I am using Visual Basic 6
I have the following code structure:
FUNCNINFO is a structure

Public funcTable() As FUNCNINFO
-----
------
ReDim Preserve funcTable(0 To upsize + ns)

当 (upsize + ns) 的值超过 32766 时,会给出运行时溢出错误 '6'您知道原因和解决方案吗?

When the value of (upsize + ns) is exceeding 32766,it is giving the runtime overflow error '6'Do you have any idea of the cause and the solution?

推荐答案

VB6 的 Integer 类型是 16 位,所以不能存储大于 32767 的值,它的 Long 是 32位整数类型,因此以下将起作用;

VB6's Integer type is 16 bits so cannot store a value > 32767, its Long that's the 32 bit integer type so the following will work;

Dim upsize As Long
Dim ns As Long

upsize = 32766
ns = 12345

ReDim Preserve funcTable(0& To upsize + ns)

这篇关于运行时错误“6":Visual Basic的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

08-19 16:07