[請益] 圖層重疊的問題

看板Visual_Basic作者tevil (dd)時間20年前 (2005/05/26 13:25)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

恩如果今天一個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