VB6 圖片輪轉及拉霸的圖片顯示問題、PictureBox的屬性問題

我原本是想做出像是有圖片輪轉的效果的小拉霸遊戲，

程式碼如下：

1. Private Sub Command1_Click()
   
2. Randomize
   
3. 
   
4. a = Text1.Text
   
5. File1.Path = a
   
6. File1.Pattern = "*.bmp;*.bmp" '挑檔案類型
   
7. File1.Refresh
   
8. 
   
9. For z = 1 To 5
   
10. k = Int(Rnd * File1.ListCount) '隨機取得列表中的檔案index
    
11. Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(k))
    
12. Picture1.PaintPicture Image1.Picture, (z - 1) * 1400, 0  '貼到新位置
    
13. Next z
    
14. 
    
15. 
    
16. Timer1.Enabled = True
    
17. 
    
18. End Sub
    
19. 
    
20. '以上是從特定一個資料夾隨機挑選5張圖片，並且把他並排黏貼在PictureBox1裡，變成一張長條形圖片以利作出圖片輪轉(拉霸)的效果。
    
21. 
    
22. 
    
23. Private Sub Timer1_Timer()
    
24. 
    
25.         x = (x + xi) Mod Picture1.ScaleWidth
    
26. 
    
27.         Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, x, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
    
28.         If x + Picture2.ScaleWidth > Picture1.ScaleWidth Then
    
29.             Picture2.PaintPicture Picture1.Picture, Picture1.ScaleWidth - x, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
    
30.         End If
    
31. End Sub
    
32. 
    
33. 
    
34. '以上是利用一個Timer及兩個PictureBox來作成圖片輪轉(拉霸)的效果。

複製代碼

但是做完後...

因為Picture1原本的屬性盒裡是沒放圖片的，

它的圖片是按下Command1才會合成出現，

但是問題出在作圖片輪轉的效果的部分，

抓取PictureBox內的圖片時只抓的到屬性盒裡本來放的圖片，

無法抓到合成後的Picture1，

所以來這裡求解...

感謝各位大大！




...

瀏覽完整內容，請先 註冊 或 登入會員

自推一下...求解...
或是不一定要用這個方法
有其他可以用來做出圖片輪轉(拉霸)的效果的方法也可以[VB6]
拜託各位大大了...

darkjack

不確定
請自己測試

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

或者請用google 搜尋 vb 水果機