UC知道VB 变量自己变了
来源：百度知道 编辑：UC知道 时间：2024/05/23 19:15:41
Dim Col As Integer
Dim W() As Integer
Public Sub Add(Optional Width As Integer = 60)
Dim i As Integer
Dim aw As Integer
For i = 0 To Col
aw = aw + W(i) - 1
Next i
Col = Col + 1
ReDim Preserve W(Col) As Integer'我用监视变量监视COL,在这里时停了下来,这时显示COL是2的,后来继续运行,就突然又变成1了,怎么回事????
Load Cel(Col)
W(Col) = Width
Cel(Col).Visible = True
Cel(Col).Left = aw
End Sub
不用DIM用什么?它是全局变量.还有,在整个程序只有两个地方有给COL赋值.第一个就是在上面的过程,还有一个过程我写了个MSGBOX语句,而运行时并没有提示.
Dim W() As Integer
Public Sub Add(Optional Width As Integer = 60)
Dim i As Integer
Dim aw As Integer
For i = 0 To Col
aw = aw + W(i) - 1
Next i
Col = Col + 1
ReDim Preserve W(Col) As Integer'我用监视变量监视COL,在这里时停了下来,这时显示COL是2的,后来继续运行,就突然又变成1了,怎么回事????
Load Cel(Col)
W(Col) = Width
Cel(Col).Visible = True
Cel(Col).Left = aw
End Sub
不用DIM用什么?它是全局变量.还有,在整个程序只有两个地方有给COL赋值.第一个就是在上面的过程,还有一个过程我写了个MSGBOX语句,而运行时并没有提示.
从这段代码上看，不应该出现这个问题的，你检查一下，你调用这个SUB之前是否有对COL的值进行改变的地方。
觉得是变量 Col的定义有问题
别用Dim 定义，用别的试试