Discussion :

[petitchat_miau]

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

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
 
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



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