Information générale
Catégorie:
Codage, syntaxe et commandes
in my app i using a Timer control to place in a label mouse pointer coordinate,
when my form is show my mouse pointer flash.
I would like to know other way to create background processing not using Timer Control or i want to know a path for solve my prob ?
this is part of code of my Timer Control :
Private Sub MinPos_Timer()
Dim rtn As Long
rtn = GetCursorPos(Coord)
FrmMain.Caption = "Position de la souris: X --> " & Coord.X & " ; Y --> " & Coord.Y
If OptRes(0).Value = True Then
If ChOn.Value = 1 Then PosRes (640)
Line1.X1 = (Coord.X / 0.313)
Line1.X2 = (Coord.X / 0.313)
Line2.Y1 = (Coord.Y / 0.313)
Line2.Y2 = (Coord.Y / 0.313)
End If
If OptRes(1).Value = True Then
If ChOn.Value = 1 Then PosRes (800)
Line1.X1 = (Coord.X / 0.396)
Line1.X2 = (Coord.X / 0.396)
Line2.Y1 = (Coord.Y / 0.396)
Line2.Y2 = (Coord.Y / 0.396)
End If
If OptRes(2).Value = True Then
If ChOn.Value = 1 Then PosRes (1024)
Line1.X1 = (Coord.X / 0.5)
Line1.X2 = (Coord.X / 0.5)
Line2.Y1 = (Coord.Y / 0.5)
Line2.Y2 = (Coord.Y / 0.5)
End If
End Sub
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement