Faire défiler un texte dans une listbox
Résolu
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
24 juin 2005 à 20:16
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 24 juin 2005 à 22:21
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 24 juin 2005 à 22:21
A voir également:
- Faire défiler un pdf automatiquement
- C# pdf - Forum C# / .NET
- Creer un formulaire pdf depuis excel - Forum VB.NET
- Alphabet arabe pdf - Forum PHP
- Faire défiler des images en boucle html ✓ - Forum Javascript / DHTML
- Vb.net pdf viewer ✓ - Forum VB.NET
9 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
24 juin 2005 à 21:55
24 juin 2005 à 21:55
tu veux le Text à l'envers aussi ?
sinon faut faire chaque lettre une par une, ça va pas être très rapide.
Daniel
sinon faut faire chaque lettre une par une, ça va pas être très rapide.
Daniel
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
24 juin 2005 à 22:11
24 juin 2005 à 22:11
regarde ça:
Option Explicit
Const GM_ADVANCED As Long = 2
Const Pi As Double = 3.141592654
Private Type XForm
eM11 As Single
eM12 As Single
eM21 As Single
eM22 As Single
eDx As Single
eDy As Single
End Type
Private Type PointAPI
X As Long
Y As Long
End Type
Dim OldXForm As XForm
Dim MyXForm As XForm
Dim OldOrg As PointAPI
Dim OldMode As Long
Dim RotAng As Integer
Dim RotRad As Double
Dim texte As String
Dim p As Integer
Private Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hDC As
Long, ByVal nX As Long, ByVal nY As Long, lpPoint As PointAPI) As Long
Private Declare Function SetGraphicsMode Lib "GDI32.dll" (ByVal hDC As Long, ByVal iMode As Long) As Long
Private Declare Function SetWorldTransform Lib "GDI32.dll" (ByVal hDC As Long, ByRef lpXform As XForm) As Long
Private Sub Form_Load()
RotAng = 90
RotRad = (RotAng / 180) * Pi
MyXForm.eM11 = Cos(RotRad)
MyXForm.eM12 = Sin(RotRad)
MyXForm.eM21 = -MyXForm.eM12
MyXForm.eM22 = MyXForm.eM11
texte = "Salut tout le monde, voici un texte qui défile sur la Forme du haut vers le bas ?"
End Sub
Private Sub Timer1_Timer()
Me.Cls
Call SetViewportOrgEx(Me.hDC, 20, 20, OldOrg)
Call SetGraphicsMode(Me.hDC, GM_ADVANCED)
Call SetWorldTransform(Me.hDC, MyXForm)
p = p + 1
If p > Len(texte) Then p = 1
Me.Print Mid$(texte, p)
End Sub
Daniel
Option Explicit
Const GM_ADVANCED As Long = 2
Const Pi As Double = 3.141592654
Private Type XForm
eM11 As Single
eM12 As Single
eM21 As Single
eM22 As Single
eDx As Single
eDy As Single
End Type
Private Type PointAPI
X As Long
Y As Long
End Type
Dim OldXForm As XForm
Dim MyXForm As XForm
Dim OldOrg As PointAPI
Dim OldMode As Long
Dim RotAng As Integer
Dim RotRad As Double
Dim texte As String
Dim p As Integer
Private Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hDC As
Long, ByVal nX As Long, ByVal nY As Long, lpPoint As PointAPI) As Long
Private Declare Function SetGraphicsMode Lib "GDI32.dll" (ByVal hDC As Long, ByVal iMode As Long) As Long
Private Declare Function SetWorldTransform Lib "GDI32.dll" (ByVal hDC As Long, ByRef lpXform As XForm) As Long
Private Sub Form_Load()
RotAng = 90
RotRad = (RotAng / 180) * Pi
MyXForm.eM11 = Cos(RotRad)
MyXForm.eM12 = Sin(RotRad)
MyXForm.eM21 = -MyXForm.eM12
MyXForm.eM22 = MyXForm.eM11
texte = "Salut tout le monde, voici un texte qui défile sur la Forme du haut vers le bas ?"
End Sub
Private Sub Timer1_Timer()
Me.Cls
Call SetViewportOrgEx(Me.hDC, 20, 20, OldOrg)
Call SetGraphicsMode(Me.hDC, GM_ADVANCED)
Call SetWorldTransform(Me.hDC, MyXForm)
p = p + 1
If p > Len(texte) Then p = 1
Me.Print Mid$(texte, p)
End Sub
Daniel
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
24 juin 2005 à 20:34
24 juin 2005 à 20:34
Avec une barre de défillement ?
Si oui, va voir dans les exemples de mon programme popapi (voir ma signature).
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
Si oui, va voir dans les exemples de mon programme popapi (voir ma signature).
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
24 juin 2005 à 20:49
24 juin 2005 à 20:49
bonsoir DarK Sidious
j'ai téléchargé ton programme qui ait super,mais je ne trouve pas un exemple pour faire défiler une texte
petchy
j'ai téléchargé ton programme qui ait super,mais je ne trouve pas un exemple pour faire défiler une texte
petchy
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
24 juin 2005 à 20:52
24 juin 2005 à 20:52
Défilement dans un Label:
Option Explicit
Dim texte As String
Dim Lg As Integer
Dim max As Integer
Dim i As Integer
Private Sub Form_Load()
'exemple de texte à faire défiler
texte = "Désolé, notre moteur de recherche
n'a pas trouvé de résultat, nous vous proposons d'effectuer cette
recherche avec Google sur VBFrance.Com."
'on travaille en pixels
Me.ScaleMode = 3
'même police pour Forme et Label
Me.Font = "Courier"
Label1.Font = "Courier"
Me.FontSize = 12
Label1.FontSize = 12
'calcul des Longueurs
Lg = TextWidth(texte)
max = Me.ScaleWidth
'initialisation du Label
Label1.Top = 0
Label1.Width = Lg
Label1.Left = max
Label1 = texte
'position début
i = max
'réglage de la vitesse
Timer1.Interval = 200
'c'est parti
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
i = i - 15
If i < -Lg Then i = max
Label1.Left = i
End Sub
Daniel
Option Explicit
Dim texte As String
Dim Lg As Integer
Dim max As Integer
Dim i As Integer
Private Sub Form_Load()
'exemple de texte à faire défiler
texte = "Désolé, notre moteur de recherche
n'a pas trouvé de résultat, nous vous proposons d'effectuer cette
recherche avec Google sur VBFrance.Com."
'on travaille en pixels
Me.ScaleMode = 3
'même police pour Forme et Label
Me.Font = "Courier"
Label1.Font = "Courier"
Me.FontSize = 12
Label1.FontSize = 12
'calcul des Longueurs
Lg = TextWidth(texte)
max = Me.ScaleWidth
'initialisation du Label
Label1.Top = 0
Label1.Width = Lg
Label1.Left = max
Label1 = texte
'position début
i = max
'réglage de la vitesse
Timer1.Interval = 200
'c'est parti
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
i = i - 15
If i < -Lg Then i = max
Label1.Left = i
End Sub
Daniel
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
24 juin 2005 à 20:58
24 juin 2005 à 20:58
Ben tu veux mettre une barre de défillement horizontale, c'est bien cà ?
Il s'agit alors de l'exemple nommé "Ajouter une barre de défillement horizontale à une ListBox".
Sinon, tu peux également regarder l'exemple rattaché à la fonction SendMessage pour le trouver plus facilement.
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
Il s'agit alors de l'exemple nommé "Ajouter une barre de défillement horizontale à une ListBox".
Sinon, tu peux également regarder l'exemple rattaché à la fonction SendMessage pour le trouver plus facilement.
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
24 juin 2005 à 21:33
24 juin 2005 à 21:33
bonsoir Daniel
merci pour ta réponse qui me convient,mais c'est possible de fair défiler le texte du bas vers le haut.
merci aussi à toi DarK Sidious j'ai trouvé,j'ai essayer d'enregistrer le code mais ça ne fonctionne pas.
merci pour ta réponse qui me convient,mais c'est possible de fair défiler le texte du bas vers le haut.
merci aussi à toi DarK Sidious j'ai trouvé,j'ai essayer d'enregistrer le code mais ça ne fonctionne pas.
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
24 juin 2005 à 22:00
24 juin 2005 à 22:00
OK,merci Daniel
pour le text à l'envers je vais voir
bonne fin de soirée
pour le text à l'envers je vais voir
bonne fin de soirée
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
24 juin 2005 à 22:21
24 juin 2005 à 22:21
trop classe,un grand merci
@ plus
petchy
@ plus
petchy