Question

按键精灵把图片设置为自定义变量

FindPic 0, 0, 0, 0, "Attachment:天空1.png", "000000", 0, 0.9, qrwgdintX, qrwgdintY
If qrwgdintX > 0 And qrwgdintY > 0 Then
我想把"天空1"在自定义界面中做个下拉框选择图片,如选择;天空,天空2,天空3.

Answer 1

Dim tk
Event Form1.ComboBox1.SelectChange
Select Case Form1.ComboBox1.ListIndex
Case 0
tk="Attachment:天空1.png"
Case 1
tk="Attachment:天空2.png"
Case 2
tk="Attachment:天空3.png"
End Event
FindPic 0,0,1024,768,tk,0.9,intX,intY
If intX > 0 And intY > 0 Then
End If

乱写的不知道是能不能用啊。