18. april 2017 - 17:26Der er
10 kommentarer og 1 løsning
LOOP´e kode
Hvordan får jeg denne kode til at LOOP´e
- altså køre i ring "i al evighed" .... (
------
Option Compare Database Public Message As String
Private Sub Form_Open(Cancel As Integer) 'Dim Message As String Message = "Dette er den ny lysavis til databasen * Dette er den ny lysavis til databasen * " End Sub
Private Sub Form_Timer() txtmarquee = Message Dim firstCharacter As String firstCharacter = Left(txtmarquee, 1) Message = Mid$(Message, 2, Len(Message) - 1) End Sub ------------------ mvh martens
the code just removes left character until string is empty and then starts over again, I maybe have a feeling that you want to maybe put the left character on th eend of the string?
Private Sub Form_Timer() for index = 1 to 3 index = 1 txtmarquee = Message Dim firstCharacter As String firstCharacter = Left(txtmarquee, 1) Message = Mid$(Message, 2, Len(Message) - 1) next End Sub
OK, so your taking the first character and appending it to end of string ;-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.