Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - scroll testo in label
Forum - Visual Basic 6 - scroll testo in label

Avatar
super rambo (Normal User)
Pro


Messaggi: 135
Iscritto: 04/06/2008

Segnala al moderatore
Postato alle 18:50
Giovedì, 22/01/2009
Salve, avrei bisogno di fare un programma che dovrebbe imitare una lavagna luminosa. in pratica il form a tutto schermo senza bordi con lo sfondo nero e una label in cui scorre il testo. per mettere il form a tuttoo schermo uso questo codice:
in un modulo
Codice sorgente - presumibilmente VB.NET

  1. Public Function FullScreen(obj As Object) As Boolean
  2. obj.Height = Screen.Height
  3. obj.Width = Screen.Width
  4. obj.Left = 0
  5. obj.Top = 0
  6. End Function


nel form
Codice sorgente - presumibilmente Visual Basic 6

  1. FullScreen Me


per fare scorrere il testo uso questo codice:
in una class
Codice sorgente - presumibilmente VB.NET

  1. Public Function scScrollMe(scMessage$, scWantedTime%)
  2. On Error Resume Next
  3. Dim scFirst&, scCompare&, scTemp$, scCount%, u$
  4.     u = scMessage
  5.     Form1.Label1.Caption = scMessage
  6.     Do
  7.         scCount = scCount + 1
  8.         DoEvents
  9.         scFirst = GetTickCount
  10.         Do Until (GetTickCount - scFirst) >= scWantedTime
  11.             DoEvents
  12.         Loop
  13.         scMessage = Right(scMessage, Len(scMessage) - 1)
  14.         scTemp = scMessage
  15.         If scTemp = "" Then
  16.             scMessage = Space(2) & u
  17.             scTemp = Space(2) & scMessage
  18.             scCount = 0
  19.         End If
  20.         scTemp = scTemp & Space(3) & Left(u, scCount)
  21.     Form1.Label1.Caption = scTemp
  22.         DoEvents
  23.     Loop
  24. End Function


nel form
Codice sorgente - presumibilmente Visual Basic 6

  1. Set blBlink = New scrolling
  2. blBlink.scScrollMe Text1.Text, "500"


in pratica io prima metto il form a tutto schermo di colore nero e poi voglio che nella label1 scorra il testo inserito nella text1. il problema è che appena ho aggiunto il codice per far scorrere il testo, quando eseguo il programma non mi appare lo sfondo nero, ma non mi da nemmeno un errore... come posso risolvere??Grazie!!

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 20:18
Giovedì, 22/01/2009
ti potresti anche creare tu una funzione non mi sembra molto difficile ;) gioca soprattutto su la funzione rigth()

PM Quote
Avatar
super rambo (Normal User)
Pro


Messaggi: 135
Iscritto: 04/06/2008

Segnala al moderatore
Postato alle 21:17
Giovedì, 22/01/2009
Ho risolto, potete chiudere

Ultima modifica effettuata da super rambo il 22/01/2009 alle 21:47
PM Quote