Discussion :

[DIAMON]

Bonjour a tous les programeure et tlm du forume si quel qu'un peut maider a savoire comment proceder avec le logiciel Visual Basic 2008 Express Edition comment fair defiler horizontalement une phrase sur une Form1.

Quelle est la marche a suivre?
Et merci de me guider.

Salutations

[Pol63]

il suffit de réfléchir
faire défiler du texte n'est autre que mettre le premier caractère au bout
et ainsi de suite toutes les x millisecondes

[Totanne]

Le plus simple est de faire défiler un label en jouant sur le X de sa position a l'interieur d'une boucle ...
Sinon par l'intermediaire de la classe Graphics et de la méthode DrawString.

[DIAMON]

Bonjour
Ou trouvez la class Graphics et la méthode Drawstring dans vb 2008 express Edition .Que dois-je sélectionnée dans la Toolbox ou properties.
Une petit marche a suive si possible, je suis novisse
Merci
Et qui sinteraisse.

[Pol63]

un novice se doit de lire
http://plasserre.developpez.com/vsommair.htm

après tu auras moins de questions
enfin des questions plus utiles ...

[Totanne]

Pour dessiner tu dessine dans une image ou dans un control par l'intermediaire d'un objet Graphics
Par example pour dessiner direct dans une PictureBox, tu crée tout d'abord un objet Graphics comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim G As Graphics = MaPictureBox.CreateGraphics

Si tu veux dessiner dans une image, ca commence comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim Img as image = New Bitmap(200,200)
Dim G as Graphics = Graphics.fromImage(Img)

Ensuite tu travaille sur l'objet Graphics et les dessins effectués le sont en fait sur l'image ou le control que pointe le Graphics

L'Objet Graphics possède plusieures méthode pour le dessin ... dont la méthode drawString.
Tu utilise des Pens, Brush, Font et tu peux gerer la transparence grace au composant alpha des couleurs (Alpha,Rouge,Vert,Bleu)
Si tu veux plus de précisions c'est Google + Tutos

Sperot t'a d'ailleurs indiquer LE lien pour débuter (les bons conseils du Docteur Plasserre...)

[DIAMON]

Bonjour
Je veux simplement fair défiler du texte horizontalement avec la nouvelle version de VB, j'iarive avec VB6. Dans la nouvelle version de VB2008EXEdition je n'arive pas a trouvez dans la toolbox l'outil SCROLLER pour pouvoire réalisée un controle scroller déssiné dans le controle cadre.
Il devrai i avoire une prosedur similaire dans la nouvelle version VB2008
Je me rend sur le site que vous me proposer pour apprende le VB.
Si vous avez du nouveau sur le défilement Horizontale d'un texte sur un control cadre,ne moublier pas.
Merci

[Totanne]

Dans ce contexte effectivement ...
Tu as a ta disposition les controls Panel et FlowLayoutPanel
En admettant que tu place ta phrase dans un label :
- Tu mets la propriété AutoScroll de ton Panel a true
- Tu ajoute ton Label a ton panel par la methode Control.Add (ou directement Add, je sais plus)
- Si ton label est plus large que la zone cliente de ton Panel, une HorizontalScrollBar va apparaitre.

[DIAMON]

Bonjour

Dans le ToolBoox J'ai sélectionné PANEL que J'ai Glissé sur le cadre.
J'ai mis la propriété AUTOSCROLL TRUE.
Dans la toolboox J'ai sélectionné LABEL que j'ai gliser sur le PANEL.
Puis j'ai mis du texte dans le label.
J'ai testé L'application avec Start debugging, mais le texte ne défile pas en boucle, il reste figé.
y a t'il pas moyen de le faire défiler an boucle?

Merci de me guider techniquement.
Salutations

[Pol63]

non

[dv-2008]

moi j'ai utiliser le code suivant pour faire defiler un message mais le probléme c'est que je veu que quand le message depasse les limites de l'interface il se reafiche de l'autre coter et ainsi de suite voila le code utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Left += 10
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 300
        Timer1.Start()
    End Sub

[DIAMON]

Salut tout tlm Bonjour
Ca avance.
OK dv-2008 j'ai utilisé ton code et ça marche comme tu dis ,le message défile mais ne revient pas en boucle.
Merci pour ce bout de code ,maintenant il faut trouver du code pour faire la boucle . Qui sait faire ça?
Salutations.

[Totanne]

Si vous n'avez jamais entendu parlé ni des boucles FOR...NEXT ni des conditions de branchement IF...THEN...ELSE, je vous conseille un petit passage chez le Docteur Lasserre (cours VB.Net).
Pour débuter y a vraiment pas mieux, c'est du 5 étoiles.

http://plasserre.developpez.com/vsommair.htm

Bon courage pour la suite

[dv-2008]

Mais nnnnnnn faut pas exagerer
juste que je ne trouve pas la bonne astuce

[olsimare]

Bonjour.

C'est pas vraiment t'aider là ...

Un exemple de label qui fait défiler le texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Public Class CLFWAddDynaLabel
    Inherits Label
 
    Private WithEvents t As New Timer
    Private intTextPosition As Integer
    Private intTextSize As Size
    Public Sub New()
        t.Interval = 200
        If Not System.ComponentModel.LicenseManager.UsageMode = System.ComponentModel.LicenseUsageMode.Designtime Then
            t.Start()
            intTextPosition = Me.Width
        Else
            intTextPosition = 0
        End If
 
    End Sub
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        MyBase.OnTextChanged(e)
        intTextSize = TextRenderer.MeasureText(Me.Text, Me.Font)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
 
        Dim bufferImage As Bitmap
        bufferImage = New Bitmap(intTextSize.Width, intTextSize.Height)
        Dim gd As Graphics = Graphics.FromImage(bufferImage)
        gd.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        gd.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit '.AntiAlias '.ClearTypeGridFit '.AntiAlias
        TextRenderer.DrawText(gd, Me.Text, _
        Me.Font, New Point(0, 0), Me.ForeColor)
 
        e.Graphics.DrawImage(bufferImage, intTextPosition, 0)
 
        gd.Dispose()
        bufferImage.Dispose()
 
    End Sub
 
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
        intTextPosition = intTextPosition - 10
        If intTextPosition + intTextSize.Width <= 0 Then
            intTextPosition = Me.Width
        End If
        Me.Invalidate()
    End Sub
 
End Class

A noter, que tout ce qui est utilisé est cité plus haut ...

Pour l'utiliser, on le met sur une form et :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Class Form6
 
    Public Sub New()
        InitializeComponent()
 
        Me.ClfwAddDynaLabel1.AutoSize = False
        Me.ClfwAddDynaLabel1.Width = 200
        Me.ClfwAddDynaLabel1.Height = 20
        Me.ClfwAddDynaLabel1.Text = "Ceci est un exemple de label avec " & _
            " un texte défilant... ouaaa !"
 
    End Sub
End Class

La subtilité n'est finalement que dans la façon de jouer sur la position de l'image dessiné sur le graphics du control.

Cdt.

Cdt.

[Danyel]

Ah ils les aiment les usercontrols ce sacre Olsimare

[DIAMON]

Bonjour
tout le monde

Olsimare
Je n'arrive pas à faire fonctionner le code que tu m'a passé.Je ne sais pas ou ils faut plasser le code.Peux tu me dictéer la marche à suive pour pouvoire tester le code.Ex: 1 new project 2 Windows FormsApplication 3 Form1 et à se niveaux que dois je faire dans la Form1 , clicker deux fois sur la Form1 pour faire apparaitre le code dur dur ...

Salutations

[DIAMON]

Bonjour
tout le monde

Olsimare
Je n'arrive pas à faire fonctionner le code que tu m'a passé.Je ne sais pas ou ils faut plasser le code.Peux tu me dictéer la marche à suive pour pouvoire tester le code.Ex: 1 new project 2 Windows FormsApplication 3 Form1 et à se niveaux que dois je faire dans la Form1 , clicker deux fois sur la Form1 pour faire apparaitre le code dur dur ...

Salutations

[olsimare]

Bonjour.

Dans ton projet (WindowsApplication je suppose) tu ajoutes une nouvelle classe et dedans tu mets le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Class CLFWAddDynaLabel
    Inherits Label
...

Ensuite, tu généres.

Puis tu crées une form et dans la boîte à outils tu vas trouver le composant CLFWAddDynaLabel (tout en haut dans les composants du projet).

Ensuite dans le code de la form tu ajoutes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 Public Sub New()
        InitializeComponent()
 
        Me.ClfwAddDynaLabel1.AutoSize = False
        Me.ClfwAddDynaLabel1.Width = 200
        Me.ClfwAddDynaLabel1.Height = 20
        Me.ClfwAddDynaLabel1.Text = "Ceci est un exemple de label avec " & _
            " un texte défilant... ouaaa !"
 
    End Sub

PS : tu peux mettre ce que tu veux en Width, Height, etc ...

Et tu lances.

Cdt.

[DIAMON]

Bonjour tout le monde.

Olsimare
Je viens de suivre la marche à suivre que tu ma passé, l'exemple a bien marcher OUAAA c'est exactement ce que je chercher a faire. Merci pour la technique et la procedure à suivre.
Je vais continuer a frequenter le site du cour VB.NT que Sperots1 ma proposé ,il est bien je vais pouvoire continuer et vous contacter pour vous demander des exemples de code

Salutations à Tous