Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 20
  1. #1

    scritta da far affacciare in una label

    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:

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

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

  4. #4
    codice:
    '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

  5. #5
    e per i valori intermedi?

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

  7. #7

    si

    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

  8. #8
    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

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

  10. #10
    si... si....

    questo è il tuo programmino:

    codice:
    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?
    ...e quando meno te lo aspetti potrebbe capitare qualcosa di bello, di più importante di quello che avevi programmato...

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.