Visualizzazione dei risultati da 1 a 9 su 9
  1. #1

    [VB.NET] Testo scorrevole in una label

    allora, mentre il programma esegue delle operazioni sul db, vorrei avere sul form una label con dentro la scritta "ATTENDERE..." che sia scorrevole oppure che appaia una lettera alla volta fino a completamento e poi ricominci.
    Sapete dirmi come si fa?

    Grazie

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  2. #2
    codice:
    Imports System
    Imports System.Threading
    Public Module modmain
       Sub Main()
          Dim MyTimer as Second = new Second()
              Dim tmr as Timer = new Timer(new TimerCallback( _
             AddressOf MyTimer.TimerEvent), Nothing, 100, 100)
             Dim ev as ManualResetEvent = new ManualResetEvent(False)
                ev.WaitOne(2000, False)
          Console.WriteLine("Waited 2 seconds...")
       End Sub
    End Module
    Public Class Second
       Public Sub TimerEvent(o as Object)
          Console.WriteLine("Timer event...")
    ' qui inserisci il codice per lo spostamento
       End Sub
    End Class
    Ciao, ma lo spostamento lo sai già realizzare? Se no, che tipo di spostamento vuoi fare? Si sposta tutta la label per lo schermo oppure la label sta ferma e si muove la scritta (A At Att Atte..)?

  3. #3
    Allora, io vorrei la label ferma e il testo che appaia una lettera per volta da sinistra a destra. Vorrei vedere la parola formarsi lettera dopo lettera.
    Tutto questo deve essere eseguito mentre il programma effettua altre operazioni sul database.
    Deve essere un messaggio sempre visibile per l'utente che indichi che il programma sta girando e lavorando.

    Il codice che mi hai postato prevede 2 form o sbaglio?

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  4. #4
    No, quello era per l'impostazione del Timer da codice (cmq se hai altre soluzioni più semplici meglio!)..

    In Visual Basic 6.0 faresti così:
    (nel timer)
    i = i + 1 'contatore del timer
    If i <> 10 Then
    Label1.Caption = Left("Attendere", i)
    Else
    Label1.Caption = ""
    i = 0
    End If

    ora traduci in vb.NET !!

  5. #5
    Grazie, sto traducendo!

    Ti faccio sapere come va appena finito

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  6. #6
    Allora, io non riesco a far funzionare il codice.
    Intanto c'è da dire che questa label col testo scorrevole è nello stesso form in cui ci sono i bottoni per l'importazione dei dati nel db.
    Secondo poi... non succede assolutamente nulla quando eseguo il codice, nonostante non siano presenti errori.
    Siccome non ho la più pallida idea di come si usi sta roba che mi hai postato, potresti essere così gentile da guidarmi un po' passo passo?
    Il form in cui ho il tutto si chiama frm_Modello.


    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  7. #7
    Ma hai problemi con il timer? Prova ad usare il controllo invece che il codice che ti ho postato..ciao

  8. #8
    ciao mde, purtroppo non riesco a far funzionare il codice. ho inserito un Timer nel mio form direttamente ma niente. Nella label viene scritto solo "A" e nulla più.
    Non so cosa fare

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  9. #9
    Posta tutto il codice..

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.