Question

按键精灵怎么让数组并接数组如下

选款单运行=8//Form1.InputBox1.Text
XY = Plugin.Bkgnd.FindWordShape(Hwnd, 0, 0, 1024, 768, "的", "宋体", 9, 0, 0.9)
iZB = InStr(XY, "|")
所有宝贝X = CLng(Left(XY, iZB - 1))
所有宝贝Y = CLng(Right(XY, Len(XY) - iZB))
MoveTo 所有宝贝x, 所有宝贝y
Delay 500
RunApp "notepad.exe"
Delay 500
款式A=Array(0,1,2,3,4,5,6,7,8)
款式A(0) = 短袖
款式A(1) = 长袖
款式A(2) = 分袖
款式A(3) = 连帽卫衣
款式A(4) = 圆领白杠
款式A(5) = 拉链白杠
款式A(6) = 拉链卫衣
款式A(7) = 棒球服
款式A(8) = 假二件卫衣
假二件卫衣=Array(0,1,2,3,4,5,6,7,8,9)
假二件卫衣(0)=9
假二件卫衣(1)="D:\MZ\待上\MZ代码\假二件卫衣主图4.txt"
假二件卫衣(2)=2
假二件卫衣(3)=2
假二件卫衣(4)=假二件卫衣A(款式数组A递增)(Z)
假二件卫衣(5)=200
假二件卫衣(6)=168
假二件卫衣(7)=8
假二件卫衣(8)=假二件卫衣A(款式数组A递增)(R)
假二件卫衣(9)="D:\MZ\待上\MZ代码\假二件卫衣详情4.txt"
//MoveTo 所有宝贝x, 所有宝贝y+112+款式A(选款单运行)(0)*24
SayString 款式A(选款单运行)(1)

最后能显示出D:\MZ\待上\MZ代码\假二件卫衣主图4.txt

Answer 1

需求不明确，也就是说你交代不详细。所以我写了下面代码。如果不是你要的功能，那就不好意思咯。
Dim a, b
a = Array(1, 2, 3)
b = a
MessageBox b(0)