scritta da far affacciare in una label

[plrmntonio]

come faccio a dire ad una label ke ad un certo punto di una progressbar mi deve far affacciare una scritta e ke ad un altro punto un altra scritta?
sapete devo fa uno di quei programmini(scherzi) ke fanno le false "formattazioni" di un hard disk :quote: :quote: :quote: :quote: .
Se mi aiutate poi posterò il programmino e giudicherete:quote:

[Markho]

confronta il .value della proxbar con i valori .max (fine) e .min (inizio) ogni volta che valorizzi il .value

[plrmntonio]

nn c capisco molto di VB(sennò ke postavo a fare?).
cmq nn potresti inviare codice?

[Markho]

'reset progress bar:
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    
    
    
'per fare avanzare la barra in un ciclo metti:
    ProgressBar1.Value = x
    x = x + 1
    
    'qui controlli:
    If ProgressBar1.Value = ProgressBar1.Min Then
        'ha iniziato
    End If
    
    If ProgressBar1.Value = ProgressBar1.Max Then
        'ha finito
    End If

[plrmntonio]

e per i valori intermedi?

[Markho]

ma del programma hai già fatto qualcosa?
hai un'idea di che devi fare?

[plrmntonio]

praticamente il programma è completo manca solo questa label, ke mi dice tipo in sequenza:
inizializzazione
formattazione in corso
creazione file sistem
fine della formattazione in corso

[Markho]

in pratica ti manca il 90%......

ascolta, vai su uno dei siti che sono "consigliati" nel regolamento, cercati e scaricati un programma di esempio che contenga una progressbar, se sei fortunato trovi anche un programma come quello che stai facendo....

ciao

[plrmntonio]

nn mi manca il 90% anke xkè questa è l'ultims cosa ke devo fare

[Markho]

si... si....

questo è il tuo programmino:

Option Explicit

Private i As Integer

Private Sub Command1_Click()
    Timer1.Interval = 500 'internvallo in millisecondi
    Timer1.Enabled = True
    
End Sub

Private Sub Form_Load()
    i = 0
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    Timer1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    i = i + 1
    ProgressBar1.Value = i
    If ProgressBar1.Value = ProgressBar1.Min Then
        lblStato.Caption = "Inizio"
    Else
        If ProgressBar1.Value = ProgressBar1.Max Then
        lblStato.Caption = "Completato"
        Timer1.Enabled = False
        Else
            lblStato.Caption = "In Corso " & i & "%"
        End If
    End If
End Sub

aggiungi a una form:
una label (lblStato)
un timer (timer1)
una progressbar (ProgressBar1)
e un tasto (Command1)

scusa, ma il 90% che hai già fatto che era, la creazione del progetto?