l0r3nz1
Messages postés217Date d'inscriptionmercredi 20 février 2008StatutMembreDernière intervention17 mars 2012
-
4 mai 2010 à 11:42
l0r3nz1
Messages postés217Date d'inscriptionmercredi 20 février 2008StatutMembreDernière intervention17 mars 2012
-
4 mai 2010 à 16:23
Bonjour,
j'ai la version express de VS2008
j'ai ajouté un "scrollbars" à un textbox par le volet des propriétés.
jusque la parfait le "scrollbars" s'affiche.
le probleme c'est que ce "scrollbars" ressemble à un "scrollbar" mais n'a pas les propriétés values ... il a une propriété "vertical" pour afficher les scroll verticaux ... mais rien qui ne permette de la manipuler.
dans aucun forum je vois qu'il existe ces deux objets, tout le monde parle de "scrollbar" avec ses propriétés value etc...
cs_Le Pivert
Messages postés7904Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention14 août 2024137 4 mai 2010 à 13:59
Bonjour,
Dans la boite à outis à gauche si tous les outils ne s'affichent pas cliquez sur 'Tous les windowsForm' pour ouvrir la liste déroulante et là cherchez:
HScrollBar = Horizontal
VScrollBar1 = vertical
Vous aurez toutes les propriétés liées à ces outils
@+
cs_Le Pivert
Messages postés7904Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention14 août 2024137 4 mai 2010 à 15:23
On s'en sert généralement dans une pictureBox pour afficher une image qui est trop grande avec un code comme ceci:
Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
Dim gphPictureBox As Graphics = picture.CreateGraphics()
gphPictureBox.DrawImage(picture.Image, New Rectangle(0, 0, _
picture.Width - HScrollBar1.Height, _
picture.Height - VScrollBar1.Width), _
New Rectangle(HScrollBar1.Value, VScrollBar1.Value, _
picture.Width - HScrollBar1.Height, _
picture.Height - VScrollBar1.Width), GraphicsUnit.Pixel)
End Sub
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Dim gphPictureBox As Graphics = picture.CreateGraphics()
gphPictureBox.DrawImage(picture.Image, New Rectangle(0, 0, _
picture.Width - HScrollBar1.Height, _
picture.Height - VScrollBar1.Width), _
New Rectangle(HScrollBar1.Value, VScrollBar1.Value, _
picture.Width - HScrollBar1.Height, _
picture.Height - VScrollBar1.Width), GraphicsUnit.Pixel)
End Sub
Pour ce qui est du texte il vaut mieux utiliser une RichtextBox,une listBox ou une listview où les scrollBars s'affichent automatiquement en fontion du texte.
@+