我尝试在For循环中声明变量已经有很长一段时间了,但是我一直没能找到一种方法。
每次在二维数组(大小为32x16)中遇到某个数字时,我都会尝试创建一个新图像(瓦片)。我可能需要补充一下,我使用的是Visual Basic 6。
目前我使用的代码如下:
Option Explicit
Dim wCount As Integer
Dim hCount As Integer
Dim arrTiles(31, 15) As Integer
Private Sub Form_Load()
For wCount = 0 To 31 Step 1
For hCount = 0 To 15 Step 1
' -Declare variables
' -I.E. Dim NAME As Image
Next
Next
End Sub
然而,上面的代码(使用Dim tile1作为图像)在试图访问新添加的图像的属性之一(例如tile1.Width)时就会出现错误。
有没有办法在运行时以这种方式声明一个变量?
由衷地
发布于 2011-03-05 06:48:32
在尝试访问Image变量的任何属性之前,必须将有效的Image对象分配给Image变量。例如,这可以很好地工作:
For wCount = 0 To 31 Step 1
For hCount = 0 To 15 Step 1
' -Declare variables
Dim tile1 As Image
tile1 = Image.FromFile("c:/test.png")
Dim width = tile1.Width
Next
Next
https://stackoverflow.com/questions/5202062
复制相似问题