作者tevil (dd)
看板Visual_Basic
标题[请益] 图层重叠的问题
时间Thu May 26 13:33:53 2005
恩 如果今天一个FORM 上面 我有 button image1 image2(i)阵列 三个物件
然後一开始image1便插入一张图片
接着我希望按下button 後便会利用image2阵列来把image1画分成好几块
image2(0) 一开使的设定 borderStytle = 1 , appearance = 0 ,visible=false
且image2(0)和imge1的左上角是重叠的 我的程式码如下
Private Sub Command1_Click()
With Image2(i)
Image2(0).Width = Image1.Width / 10
Image2(0).Height = Image1.Height / 10
Dim nimg(0 To 99) As Integer
Dim ctop As Single, cleft As Single
i = 1
ctop = Image2(0).Top
cleft = Image2(0).Left
x = Image1.Left
y = Image1.Top
While y < Image1.Top + Image1.Height
While x < Image1.Left + Image1.Width
Load Image2(i)
Image2(i).Top = ctop
Image2(i).Left = cleft
Image2(i).Visible = True
cleft = cleft + Image2(0).Width
i = i + 1
x = x + Image2(0).Width
Wend
ctop = ctop + Image2(0).Height
cleft = Image2(0).Left
y = y + Image2(0).Height
x = Image1.Left
Wend
End With
End Sub
可是最後有一个问题...就是好像image1覆盖住了image2阵列 没有产生出我想要的
把image1分成好几个区域
因为我後来尝试把image1拉到别的地方 接着再启动程式
这时候原来image1的地方 就有image2阵列了......
所以请问各位高手 如何才能让image2阵列 覆盖image1 拜托噜
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.148.99