dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un
VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change()
On Local Error Resume Next
PicCible.Top = -(VScroll.Value)
VScroll.SetFocus
On Local Error GoTo 0
End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a
pas de déplacement tant qu'on ne relâche pas la souris.
y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du
VScroll ?
Private Sub VScroll1_Change() Picture1.tOp = 500 - VScroll1.Value 'Text4 = VScroll1.Value End Sub
Private Sub VScroll1_Scroll() VScroll1_Change
End Sub
Private Sub HScroll1_Change() 'Picture1.Top = -HScroll1.Value Picture1.left = -HScroll1.Value End Sub
Private Sub HScroll1_Scroll() HScroll1_Change End Sub
-- a+ Jean-Pol Site Web : www.colovid.be Site Web perso pour le fun : http://users.skynet.be/DAVID/ Cette page est transmise avec des électrons 100% recyclés.
"driss hanib" a écrit dans le message de news: e$
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?
Merci
Driss
Bonjour,
Je pense que pour obtenir ce résultat
il faut utiliser 2 picture box; un peu comme ceci :
Private Sub VScroll1_Change()
Picture1.tOp = 500 - VScroll1.Value
'Text4 = VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub
Private Sub HScroll1_Change()
'Picture1.Top = -HScroll1.Value
Picture1.left = -HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
"driss hanib" <dhanib@club-internet.fr> a écrit dans le message de news:
e$mdeb5yKHA.5936@TK2MSFTNGP04.phx.gbl...
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un
VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change()
On Local Error Resume Next
PicCible.Top = -(VScroll.Value)
VScroll.SetFocus
On Local Error GoTo 0
End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a
pas de déplacement tant qu'on ne relâche pas la souris.
y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui
du VScroll ?
Private Sub VScroll1_Change() Picture1.tOp = 500 - VScroll1.Value 'Text4 = VScroll1.Value End Sub
Private Sub VScroll1_Scroll() VScroll1_Change
End Sub
Private Sub HScroll1_Change() 'Picture1.Top = -HScroll1.Value Picture1.left = -HScroll1.Value End Sub
Private Sub HScroll1_Scroll() HScroll1_Change End Sub
-- a+ Jean-Pol Site Web : www.colovid.be Site Web perso pour le fun : http://users.skynet.be/DAVID/ Cette page est transmise avec des électrons 100% recyclés.
"driss hanib" a écrit dans le message de news: e$
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?
Merci
Driss
at
Il se trouve que driss hanib a formulé :
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?
Merci
Driss
et l'evenement
VScroll_Scroll()
?
Il se trouve que driss hanib a formulé :
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un
VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change()
On Local Error Resume Next
PicCible.Top = -(VScroll.Value)
VScroll.SetFocus
On Local Error GoTo 0
End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas
de déplacement tant qu'on ne relâche pas la souris.
y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du
VScroll ?
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?
Merci
Driss
et l'evenement
VScroll_Scroll()
?
Driss HANIB
salut at
Exact VScroll_Scroll était ce qu'il me fallait.
Merci
Driss "at" a écrit dans le message de news: 4baafe07$0$17860$
Il se trouve que driss hanib a formulé :
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?
Merci
Driss
et l'evenement
VScroll_Scroll()
?
salut at
Exact VScroll_Scroll était ce qu'il me fallait.
Merci
Driss
"at" <at@noemail.fr> a écrit dans le message de news:
4baafe07$0$17860$ba4acef3@reader.news.orange.fr...
Il se trouve que driss hanib a formulé :
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un
VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change()
On Local Error Resume Next
PicCible.Top = -(VScroll.Value)
VScroll.SetFocus
On Local Error GoTo 0
End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a
pas de déplacement tant qu'on ne relâche pas la souris.
y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui
du VScroll ?
Driss "at" a écrit dans le message de news: 4baafe07$0$17860$
Il se trouve que driss hanib a formulé :
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?
Merci
Driss
et l'evenement
VScroll_Scroll()
?
Driss HANIB
Salut Jean-Pol
C'était l'évènement VScroll_Scroll() que je n'avais pas utilisé. le reste allait
merci
Driss
"David" a écrit dans le message de news:
Bonjour,
Je pense que pour obtenir ce résultat il faut utiliser 2 picture box; un peu comme ceci :
Private Sub VScroll1_Change() Picture1.tOp = 500 - VScroll1.Value 'Text4 = VScroll1.Value End Sub
Private Sub VScroll1_Scroll() VScroll1_Change
End Sub
Private Sub HScroll1_Change() 'Picture1.Top = -HScroll1.Value Picture1.left = -HScroll1.Value End Sub
Private Sub HScroll1_Scroll() HScroll1_Change End Sub
-- a+ Jean-Pol Site Web : www.colovid.be Site Web perso pour le fun : http://users.skynet.be/DAVID/ Cette page est transmise avec des électrons 100% recyclés.
"driss hanib" a écrit dans le message de news: e$
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?
Merci
Driss
Salut Jean-Pol
C'était l'évènement VScroll_Scroll() que je n'avais pas utilisé. le reste
allait
merci
Driss
"David" <bs173990@skynet.be> a écrit dans le message de news:
O5gx7t5yKHA.5132@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je pense que pour obtenir ce résultat
il faut utiliser 2 picture box; un peu comme ceci :
Private Sub VScroll1_Change()
Picture1.tOp = 500 - VScroll1.Value
'Text4 = VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub
Private Sub HScroll1_Change()
'Picture1.Top = -HScroll1.Value
Picture1.left = -HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.
"driss hanib" <dhanib@club-internet.fr> a écrit dans le message de news:
e$mdeb5yKHA.5936@TK2MSFTNGP04.phx.gbl...
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un
VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change()
On Local Error Resume Next
PicCible.Top = -(VScroll.Value)
VScroll.SetFocus
On Local Error GoTo 0
End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a
pas de déplacement tant qu'on ne relâche pas la souris.
y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui
du VScroll ?
Private Sub VScroll1_Change() Picture1.tOp = 500 - VScroll1.Value 'Text4 = VScroll1.Value End Sub
Private Sub VScroll1_Scroll() VScroll1_Change
End Sub
Private Sub HScroll1_Change() 'Picture1.Top = -HScroll1.Value Picture1.left = -HScroll1.Value End Sub
Private Sub HScroll1_Scroll() HScroll1_Change End Sub
-- a+ Jean-Pol Site Web : www.colovid.be Site Web perso pour le fun : http://users.skynet.be/DAVID/ Cette page est transmise avec des électrons 100% recyclés.
"driss hanib" a écrit dans le message de news: e$
Bonsoir à tous
dans une fenêtre j'ai une pictureBox (que je veux faire bouger avec un VScroll)
Voici ce que j'ai mis
Private Sub VScroll_Change() On Local Error Resume Next PicCible.Top = -(VScroll.Value) VScroll.SetFocus On Local Error GoTo 0 End Sub
Par contre en tirant la partie centrale du VScroll vers le haut, il n'y a pas de déplacement tant qu'on ne relâche pas la souris. y a t'il un moyen d'avoir une déplacement simulyané du picture avec celui du VScroll ?