Bonjour, je débute pardonné moi!
j'ai un petit prog qui tourne très bien en vb6,mais je voudrais le rajouter a mon projet actuel qui lui est sous vb 2008.Mais voila ça ne marche pas comme ça!!
J'obtient trop d'erreurs lors de la mise a niveau,est comme je suis un peu beaucoup débutant, j'essay tant bien que mal des corrections mais ça marche pas! quelqu'un peut-il m'aider a traduire ça en code pour vb 2008?
Ce code a pour fonction de limiter les déplacements de la souris a mon form.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 Option Explicit
 
      Private Type RECT
         left As Integer
         top As Integer
         right As Integer
         bottom As Integer
      End Type
 
      Private Type POINT
         x As Long
         y As Long
      End Type
 
      Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
      Private Declare Sub GetClientRect Lib "user32" _
                                            (ByVal hWnd As Long, _
                                             lpRect As RECT)
      Private Declare Sub ClientToScreen Lib "user32" _
                                            (ByVal hWnd As Long, _
                                             lpPoint As POINT)
      Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, _
                                          ByVal x As Long, _
                                          ByVal y As Long)
 
      Private Sub Form_Load()
         Command1.Caption = "Limit Cursor Movement"
         Command2.Caption = "Release Limit"
      End Sub
 
      Private Sub Command1_Click()
      'Limits the Cursor movement to within the form.
         Dim client As RECT
         Dim upperleft As POINT
 
         GetClientRect Me.hWnd, client
         upperleft.x = client.left
         upperleft.y = client.top
         ClientToScreen Me.hWnd, upperleft
         OffsetRect client, upperleft.x, upperleft.y
         ClipCursor client
      End Sub
 
      Private Sub Command2_Click()
      'Releases the cursor limits
         ClipCursor ByVal 0&
      End Sub
 
      Private Sub Form_Unload(Cancel As Integer)
      'Releases the cursor limits
         ClipCursor ByVal 0&
      End Sub