begin process at 2008 08 20 02:39:21
1 228 657 membres
37 nouveaux aujourd'hui
14 254 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Position d'un cursor avec Pocket PC! [ Divers / Général ] (AmK)

Position d'un cursor avec Pocket PC! le 04/04/2008 00:59:14

AmK

Bonsoir,

J'aimerais savoir s'il est possible d'avoir la position de l'impact d'un stylet sur une picturebox par exemple.
(je veux intéragir avec une map , mappoint).
( j'ai afficher le help de MSDN il semblerait que la propriété position ne soit pas dispo sur compact framework , ça serait logique vu que le stylet ne peut pas survoler la zone . mais , qu'en est il de l'impact ?

Merci !

Re : Position d'un cursor avec Pocket PC! le 08/04/2008 17:13:43

MagDix

Salut...

J'utilise un PictureBox et j'y dessine des éléments.
Il y a un zoom In/Out et donc je peux me déplacer avec le stylet...

Je t'annexe le code.

En espérant que ca pourra t'aider

bye



Private
Sub PictureBox1_MouseDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
PointDepart =
New Point(e.X, e.Y)
EndSub


PrivateSub PictureBox1_MouseMove(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
'On Calcule la nouvelle coordonnée de l'origine du PictureBox
Dim DeltaX AsInteger = (PictureBox1.Location.X + e.X - PointDepart.X)
Dim DeltaY AsInteger = (PictureBox1.Location.Y + e.Y - PointDepart.Y)
'On bloque le déplacement aux limites du pictureBox
If PictureBox1.Width > X_initial Then
If -DeltaX > (PictureBox1.Width - X_initial) Then
DeltaX = X_initial - PictureBox1.Width
EndIf
If DeltaX > 0 Then
DeltaX = 0
EndIf
Else
DeltaX = 0
EndIf
If PictureBox1.Height > Y_initial Then
If -DeltaY > (PictureBox1.Height - Y_initial) Then
DeltaY = Y_initial - PictureBox1.Height
EndIf
If DeltaY > 0 Then
DeltaY = 0
EndIf
Else
DeltaY = 0
EndIf
PictureBox1.Location = New Drawing.Point(DeltaX, DeltaY)
EndIf
EndSub



Classé sous : pc, pocket, position, cursor, impact

Participer à cet échange

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS