VB6.0的圖控問題

as5353056

1. Dim x1, y1, xx, kk
   
2. Private Sub Form_Load()
   
3. kk = 0
   
4. End Sub
   
5. Private Sub pick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
6. x1 = X: y1 = Y
   
7. End Sub
   
8. Private Sub pick_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
9. If Button = 1 Then
   
10.   delta_x = X - x1
    
11.   delta_y = Y - y1
    
12.      pick.Move pick.Left + delta_x, pick.Top + delta_y
    
13.      
    
14.   If pick.Left + delta_x > 0 Or pick.Left + delta_x <= -3240 Then
    
15.    If (pick.Left > 0) Then
    
16.    pick.Left = -1
    
17.   End If
    
18.   If (pick.Left < -3240) Then
    
19.    pick.Left = -3239
    
20.   End If
    
21.   End If
    
22. If pick.Top + delta_y > 0 Or pick.Top + delta_y <= -3360 Then
    
23. If (pick.Top > 0) Then
    
24. pick.Top = 1
    
25. End If
    
26. If (pick.Top < -3360) Then
    
27. pick.Top = -3359
    
28. End If
    
29. End If
    
30. End If
    
31. End Sub

複製代碼

我是用2個PictureBox做成的 先在桌面上放置一個PictureBox 然後在裡面放置PictureBox稱為pick
在pick 上放置圖片  在程式中可以固定邊界   執行時 圖片可以托移然後托至到程式中設定的邊界時 會停止
但是這時就會發生一個問題 就是當圖片再托移時 會有殘影  請求各位VB高手 小弟為這問題卡很久了>"<...

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

darkjack

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

不知是否 是你需要的
如果不是
請 自己用 google 搜尋並且用 英文去搜尋
ex:drag , mouse , image