CLM'S DEFILTEXTE : GENRE GENERIQUE DE FIN D'UN FILM

Signaler
Messages postés
2107
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
19 février 2021
-
Messages postés
15
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
23 novembre 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5121-clm-s-defiltexte-genre-generique-de-fin-d-un-film

Messages postés
15
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
23 novembre 2006

Tres bien avec la correction en question.
2 questions:
- est-il posible de le mettre en boucle pour que ce recommence apres quelques secondes quand c' est terminé.
- j' aimerais le travailler pour ajouter des images en plus du texte mais je ne sais pas comment m'y prendre. Des pistes ?
Messages postés
2107
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
19 février 2021
2
Ca serait bien si la form se dechargeait à la fin du défilement. Je travailla à ca.
J'ai aussi retiré un bug.

Il faut mettre le textbox en invisible
Activer la visibilité du textbox juste apres l'activation du timer.
Cela evite des clignotements dans le cas de fichiers texte volumineux.

Je colle ici les modif du codes :

Private Sub Form_Load()
Dim sChaine As String
Dim PTextStream As TextStream
Dim PFileSystemObject As FileSystemObject
Set PFileSystemObject = New FileSystemObject
With cdg
.FileName = ""
.Filter = "Fichiers Texte (*.txt)|*.txt"
.DialogTitle = "Ouvrir un fichier texte..."
On Error GoTo erreur
.CancelError = True
.ShowOpen
If .FileName <> "" Then
Set PTextStream = PFileSystemObject.OpenTextFile(.FileName, ForReading)
Text1.Text = PTextStream.ReadAll
PTextStream.Close
Set PTextStream = Nothing
Text1.Top = Me.Height * 2 'Me.ScaleHeight / 2
Timer1.Enabled = True
Text1.Visible = True
End If
End With
Exit Sub
erreur:
End
End Sub
Private Sub Form_Resize()
Text1.Left = 0
Text1.Width = Me.ScaleWidth
Text1.Height = Me.ScaleHeight + 1000
toto = Text1.Height
End Sub
Private Sub Text1_DblClick()
End
End Sub
Private Sub Text1_GotFocus()
Command1.SetFocus
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
If Timer1.Enabled Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End If
End Sub
Private Sub Timer1_Timer()
Text1.Top = Text1.Top - 5
Text1.Height = Text1.Height + Abs(Text1.Top)
End Sub

C'etait bien trouvé ! Merci !

[PaTaTe]