begin process at 2012 02 16 05:00:36
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > SCROLLING D'UN CAPTION

SCROLLING D'UN CAPTION


 Information sur la source

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :defilement, scrolling, texte, titre Niveau :Débutant Date de création :01/09/2000 Vu :2 989

Auteur : Kurt6794

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Permet de faire défilé du texte dans un Caption d'une fenetre ou d'un Label.
Sur une fenetre, placer un Timer1 et un Label1 puis placer le code...
Pour le Timer1, mettre Interval à 200

Source

  • 'déclarations
  • Dim msg As String 'pour le message
  • Dim i As Integer 'index pour le message
  • Private Sub Form_Load()
  • 'j'adore les Twingo !!!
  • msg = "CouCou je m'appel Vincent et j'adore les Twingo !!!! "
  • End Sub
  • Private Sub Timer1_Timer()
  • If i = 0 Then
  • i = Len(msg)
  • End If
  • 'On prends tous les caractères à droite puis on en prend de moins en moins
  • 'ensuite on ajoute tous les caractèresdu début non affiché et on les remet à la fin
  • 'C'est pas plus compliqué!!!!
  • Label1.Caption = Right(msg, i) + Left(msg, Len(msg) - i)
  • i = i - 1
  • 'pour le fun, dans la barre de la fenêtre...mais dans l'autre sens !
  • Form1.Caption = Right(msg, Len(msg) - i) + Left(msg, i)
  • 'PS : avec un richText, je croix que l'on peut mettre une couleur pour chaque lettres...
  • End Sub
'déclarations
Dim msg As String   'pour le message
Dim i As Integer    'index pour le message

Private Sub Form_Load()
'j'adore les Twingo !!!
msg = "CouCou je m'appel Vincent et j'adore les Twingo !!!! "
End Sub

Private Sub Timer1_Timer()
If i = 0 Then
    i = Len(msg)
End If
'On prends tous les caractères à droite puis on en prend de moins en moins
'ensuite on ajoute tous les caractèresdu début non affiché et on les remet à la fin
'C'est pas plus compliqué!!!!
Label1.Caption = Right(msg, i) + Left(msg, Len(msg) - i)
i = i - 1

'pour le fun, dans la barre de la fenêtre...mais dans l'autre sens !
Form1.Caption = Right(msg, Len(msg) - i) + Left(msg, i)

'PS : avec un richText, je croix que l'on peut mettre une couleur pour chaque lettres...
End Sub
 



 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) LECTEUR MP3 + AFFICHAGE DU TEXTE DU TITRE par NHenry
Source avec Zip Source avec une capture LIVE (( TRAITEMENT DE TEXTE )) par crossblade
Source avec Zip Source avec une capture SCROLLING DE TEXTE AVEC EFFET DE FADING_ par thebigbang
Source avec Zip Source avec une capture AH VALA UN BON EDITEUR DE TEXTE : NODE EDITOR (PETITE MISE A... par Zeratul456
SCROLLING , DEFILEMENT DE TEXTE par Mr Mask

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Récupérer les infos d'un cd-texte [ par dany108 ] Bonjour à tous,tout est dans le titre. Je voudrais récupérer les infos d'un cd-texte : nomde l'artiste, titre des chansons, etc ...Je n'ai rien trouvé Comment sélectionner du texte entre deux styles "Titre 2" [ par caro_b ] Bonjour !Alors j'ai déjà poster une question pour une macro word qui sélectionne tous les styles Titre1 et Titre2 pour les transformer Trouver un texte sans tenir compte de la ponctuation [ par Joo02 ] Bonjour,  Je monte une base de données Access pour une bibliothèque et j'aimerais que l'usager puisse trouver le titre d'un livre,&nbsp Sauts de page après tri [ par tiberus ] J'ai du texte sur une colonne (texte variable sur de nombreuses lignes: titres, textes, commentaire). Après tri et filtrage, il arrive qu'un titre se Importation txt access - probleme de titre [ par bonjourc ] Bonjour, Je dois importer un fichier texte dans une table access. La table et le fichier texte ont le même nombre de colonne. Il y a des noms aux cham -VB6- Couleur texte dans fenètre titre [form] [ par eckostreet ] bonjour a tous Je cherche une fason de changer la couleur du texte dans la barre titre. Faite quelque test avec l'Api SetSysColors et chercher dans l defilement d'un texte [ par maxw004 ] Bonjour, j'ai besoin de votre aide car je n'arrive pas a faire un code. Mon idee c'est que l'utilisateur peut choisir la vitesse de defilement de son Saut de page après tri [ par tiberus ] J'ai du texte sur une colonne (texte variable sur de nombreuses lignes: titres, textes, commentaire). Après tri et filtrage, il arrive qu'un titre se texte veticalement mais ! [ par hindhinf ] j'ai essayer le code suivant pour ecrire un texte verticalement :Private Declare Function GetDeviceCaps Lib "GDI32" (ByVal hdc As Long, ByVal nIndex A


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,468 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales