Zoom sur VBA pour interface de pilotage d'un appareil photo
1 réponse
joalforever
Bonjours, je voudrais savoir comment faire le code du zoom pour
prendre les photos sur VBA. Pour cela j'ai cr=E9=E9 une =E9tiquette zoom
avec 2 boutons plus et moins.
Mais mon code ne marche pas.
'Update zoom value
nOpZoomReal =3D Ryenv1.PropOpticalZoom(nCurrentCamera)
=C9tiquette63.Caption =3D "Zoom: " + Str(nOpZoomReal)
If nOpZoom <> nOpZoomReal Then
' prevent recursion
bInHere =3D True
Zoom =3D nOpZoomReal
bInHere =3D False
End If
End Sub
Private Sub Zoom_Click()
Dim nOpZoom As Long
'Get new zoom value
nOpZoom =3D Zoom.Value
Ryenv1.PropOpticalZoom(nCurrentCamera) =3D nOpZoom
If nOpZoom <> nOpZoomReal Then
' prevent recursion
bInHere =3D True
Zoom =3D nOpZoomReal
bInHere =3D False
End If
End Sub
Est ce que quelqu'un peut m'aider. Merci pour vos r=E9ponse.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"joalforever" Bonjours, je voudrais savoir comment faire le code du zoom pour prendre les photos sur VBA. 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
Est ce que quelqu'un peut m'aider. Merci pour vos réponse. ---------------------------------------------------------------
Quel objet utilise et qui possède cette propriété "Zoom" par exemple ?
"joalforever"
Bonjours, je voudrais savoir comment faire le code du zoom pour
prendre les photos sur VBA. 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
Est ce que quelqu'un peut m'aider. Merci pour vos réponse.
---------------------------------------------------------------
Quel objet utilise et qui possède cette propriété "Zoom" par exemple ?
"joalforever" Bonjours, je voudrais savoir comment faire le code du zoom pour prendre les photos sur VBA. 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
Est ce que quelqu'un peut m'aider. Merci pour vos réponse. ---------------------------------------------------------------
Quel objet utilise et qui possède cette propriété "Zoom" par exemple ?