eyeofcobra
Messages postés7Date d'inscriptionmardi 12 août 2008StatutMembreDernière intervention15 août 2008
-
15 août 2008 à 09:57
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 2014
-
15 août 2008 à 15:46
salut a tous et à toutes
j'ai essayé ce code pour faire un zoom sur une image dans un tableau excel.
Pour cela j'ai créé une étiquette zoom
avec 2 boutons plus et moins.
Mais mon code ne marche pas.
'Update zoom value
nOpZoomReal = Ryenv1.PropOpticalZoom(nCurrentCamera)
Étiquette63.Caption = "Zoom: " + Str(nOpZoomReal)
If nOpZoom nOpZoomReal Then
' prevent recursion
bInHere = True
Zoom = nOpZoomReal
bInHere = False
End If
End Sub
Private Sub Zoom_Click()
Dim nOpZoom As Long
'Get new zoom value
nOpZoom = Zoom.Value
Ryenv1.PropOpticalZoom(nCurrentCamera) = nOpZoom
If nOpZoom nOpZoomReal Then
' prevent recursion
bInHere = True
Zoom = nOpZoomReal
bInHere = False
End If
End Sub
eyeofcobra
Messages postés7Date d'inscriptionmardi 12 août 2008StatutMembreDernière intervention15 août 2008 15 août 2008 à 14:07
salut Mrs jmfmarques
je crois que ce forum est pour s'entraider et échanger les connaissance pas pour rédiger des blague ( si on peut dire qu'elles sont des blague)
donc svp Mrs soit vous m'aidez et je vous serez reconnaissant soit vous laissez les autre m'aider
cs_bultez
Messages postés13615Date d'inscriptionjeudi 13 février 2003StatutMembreDernière intervention15 octobre 201330 15 août 2008 à 15:18
bonour à toutes et à tous,
>>ce forum est pour s'entraider
euh... non ! ici c'est pour signaler des bugs éventuels sur CodesSources ! :
je ne dis pas qu'il n'y en a pas.. mais bon, pas pour zoom sur un tableau excel
la plupart des lecteurs ne sachant même pas en quel langage tu causes,
auront du mal à t'aider ( perso, je pense que tu écris en algool non ? )
la moindre des politesses c'est de ne pas envoyer paître
une personne qui te répond et qui tente de t'aider !