problème avec GetClipCursor

Version imprimable

2 pièce(s) jointe(s)

bonjour a tous
mon problème c'est que la fonction GetClipCursor retourne des résultas nulls
voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Class Form1
    Public Declare Function GetClipCursor Lib "user32" (ByVal lprc As RECT) As Long ' Boolean
    Public Structure RECT
        Public Left As Long
        Public Top As Long
        Public right As Long
        Public bottom As Long
    End Structure
    Public Screen As RECT
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bool As Boolean
        bool = GetClipCursor(Screen)
        MsgBox("Screen.Left = " & Screen.Left & Chr(13) & _
                    "Screen.Top  = " & Screen.Top & Chr(13) & _
                    "Screen.right = " & Screen.right & Chr(13) & _
                    "Screen.bottom = " & Screen.bottom, _
                MsgBoxStyle.OkOnly, bool.ToString)
    End Sub
End Class

et le résultats

http://www.developpez.net/forums/att...1&d=1291453125

comment puis je réglé cela ?
le projet est en pièce jointe
merci

12/12/2010, 10h44
chrismonoye

Bonjour,
en modifiant la fonction comme cela :

Code:

Public Declare Function GetClipCursor Lib "user32" Alias "GetClipCursor" (<MarshalAs(UnmanagedType.Struct)> ByRef lprc As RECT) As Integer

Mais on obtient la localisation de l'écran...???
20/12/2010, 15h40
petitchat_miau

merci je vais essayé
08/01/2011, 11h31
petitchat_miau
merci mais votre solution ne marche pas non plus
mais enffin j'ai trouver la solution c'est dans la structure RECT j'ai remplacer "long" par "integer"
et sa marche bien c'est drole comme même pourtant dans la documentation msdn c'est long ???!!!!
Code:

1 2 3 4 5 6 7 Public Structure RECT Public Left As Long Public Top As integer 'Long Public right As integer 'Long Public bottom As integer 'Long End Structure