VBREP
Messages postés69Date d'inscriptionmercredi 1 janvier 2003StatutMembreDernière intervention 4 mars 2007 1 janv. 2005 à 17:54
salut à tous et bonne annee
mon pb est :
utilise api pour connaitre position curseur
quand execution de mon programme
propriete des elements :
ma form left 0 & top 0
mon picture1 left 16 & top 56
mon image1 est dans picture1
image1 left 0 & top 0
les infos de position du curseur placer en haut à gauche du picture1 devrait indique 16 à extremiter gauche ( left )
56 pour extremiter haut (top ) mais indique
22 pour left & 100 pour top
donc different pourquoi
d'ou vient le pb
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 1 janv. 2005 à 18:22
si t'as utilisé GetCursorPos les positions sont par rapport à l'écran et les coordonnées de la PictureBox sont par rapport à la forme. donc faut prendre en compte l'épaisseur gauche de la forme (ça doit toujours être 4) par contre l'épaisseur de la barre du haut ça dépend du BorderStyle.
cs_biancos
Messages postés1Date d'inscriptionjeudi 22 septembre 2005StatutMembreDernière intervention22 septembre 2005 22 sept. 2005 à 15:38
Bjour
je veux on cliquant dans une zone de liste remplir les labels placés dans le form le code est:
Dim i As Integer
Set ResultatRequete = OpenTableData("SELECT * FROM tblUTILISATEUR WHERE CodeUtil=" & CmbUtil.ItemData(CmbUtil.ListIndex))
If Not ResultatRequete.EOF Then
lblNomUtil = ResultatRequete!NomUtil
lblPrenomUtil = ResultatRequete!PrenomUtil
lblAdrmail = ResultatRequete!AdrMailUtil
lblTelBur = ResultatRequete!TelBurUtil
CloseConnection
'Recherche de la division
Set ResultatRequete = OpenTableData("SELECT * FROM uv_UniteDivisionUtil WHERE CodeUtil=" & CmbUtil.ItemData(CmbUtil.ListIndex))
If Not ResultatRequete.EOF Then
' lblDivision = NotNull(ResultatRequete!Division)
End If