我编了一个更改15×15的Circle的位置的程序,但是总是报错,说找不到Circle_1_1,用Test不用变量就没有问题,,HmiRuntime.Screens()参数是不是不支持变量啊?难道我要排着敲一遍?
Dim circle(15,15),K,test
Dim i,j
i=1
j=1
Dim screen_no1
screen_no1="Screen_2"
Set test=HmiRuntime.Screens("Screen_2").ScreenItems("Circle_1_1")
For i = 1 To 2
For j= 1 To 15
K="Circle_"&i&"_"&j
Set circle(i,j)=HmiRuntime.Screens(screen_no1).ScreenItems(K)
Next
Next
test.Left=10
test.Top=100
test.BackColor=vbGreen