[AC-2007] Texte défilant

ulovb · 11/01/2012, 14h31

Bonjour,
Dans cette discussion
http://www.developpez.net/forums/d28...ant-scrolling/

j'aimerai pouvoir utiliser ce code mais je ne sais pas comment m'y prendre c'est à dire où le placer exactement.

Citation:

Envoyé par Heureux-oli

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
 
Public Sub strMessage()
 
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim strPartMess As String
Dim i As Integer
Dim j As Integer
Dim x As Double
Dim y As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from tblmessage")
y = 0
For y = 0 To 10000
rs.MoveFirst
While Not rs.EOF
    strPartMess = rs.Fields("strMess")
    i = Len(strPartMess)
    j = 0
 
        For j = 0 To i
            strMessage = Left(strPartMess, j) 'texte à récupérer
            Debug.Print strMessage
            j = j + 1
            x = 0
            For x = 0 To 10000000
            x = x + 1
            Next x
        Next j
 
    rs.MoveNext
Wend
 
Next y
 
End Sub

Les messages peuvent être stocké dans une table et avoir plusieurs lignes.

Il se construisent sur le formulaire, c à d que les lettres apparaissent les unes derrière les autres.
La table comporte deux champs, un Champ ID numéro auto et un champ texte StrMess.

le nom de la table tblMessage.

Merci

marot_r · 13/01/2012, 18h45

Il suffit que tu crées un module ou que tu utilises un tes modules existant et que tu y copies le code.

A+

13/01/2012, 18h45	#2
marot_r Modérateur René MAROT Inscription : octobre 2005 Messages : 5 479 Détails du profil Informations personnelles : Nom : René MAROT Localisation : Canada Informations forums : Inscription : octobre 2005 Messages : 5 479 Points : 7 568 Points : 7 568	Il suffit que tu crées un module ou que tu utilises un tes modules existant et que tu y copies le code. A+ __________________ Vous voulez une réponse rapide et efficace à vos questions téchniques ? Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email