Newsgroup: it.comp.lang.visual-basic
Titolo: [?] : Cerco codice programma con ProgressBar come esempio

Salve a tutti, dove posso trovare un programma semplicissimo con codice da
studiare dove viene utilizzata la progress bar??
Fino ad ora ho trovato solo codici per costruire una ProgressBar (premetto
che la mia lo fatta io con il mio codice) ma non un codice di un programma
con all'interno anche quello della progressBar!!!
Mi potete aiutare???
Ciao Grazie
MatteoC.
--------------------------------
Inviato via 
http://usenet.libero.it

 MatteoC.
qui sotto c'e' una pb artigianale, un label dentro un picbox, e
l'avanzamento e' gestito da un ciclo dao. direi che piu' o meno vada. i
commenti li ho messi ora.
se invece intendevi la pb dei common controls ms, e' piu' pesante ma e'
ancora piu' semplice, ti basta valorizzare (mi sembra) la propr. value.
--
ciao, j.
www.sundaysw.com
Private Sub cmdReplace_Click()
    If txtFullNew = "" Or txtFirmNew = "" Then
        Beep
        Exit Sub
    End If
    On Error GoTo errman
    Dim sost As Long
    Dim oFull As String, oFirm As String, nFull As String, nFirm As String
' giusto perche', essendoci doevents,
' se cambiano i txtbox durante il ciclo...
    oFull = LCase(txtFull)
    oFirm = UCase(txtFirm)
    nFull = LCase(txtFullNew)
    nFirm = UCase(txtFirmNew)
    If MsgBox("Sostituire tutto ?" & vbCrLf & _
        "VECCHIO: " & oFull & " -- " & oFirm & vbCrLf & _
        "NUOVO: " & nFull & " -- " & nFirm, vbYesNoCancel) _
        <> vbYes Then Exit Sub
    frmMain.lblPerc.Visible = True
    frmMain.lblPerc = ""
' codice vecchio: ora tipizzerei recno e rectot
    Dim rs As Recordset, RecNo, RecTot
    Set rs = MainDB.OpenRecordset("aaa")
    rs.MoveLast
    RecTot = IIf(rs.RecordCount = -1, 0, rs.RecordCount)
    RecNo = 0: sost = 0
    rs.MoveFirst
    With rs
        Do While Not .EOF
            'If !firm = oFirm And !From = oFull Then
            If !firm = oFirm And !Person = oFull Then
                .Edit
                If !From = oFull Then !From = nFull
                If !To = oFull Then !To = nFull
                !Person = nFull
                !firm = nFirm
                .Update
                sost = sost + 1
            End If
            RecNo = RecNo + 1
' ricontrollo la larghezza del pic, nel caso il form sia stato allargato
' (il picbox e' settato align=top)
' se invece usi dim fisse e' senz'altro piu' svelto:
            frmMain.lblPerc.Width = (RecNo * frmMain.picCont.ScaleWidth) /
RecTot
            DoEvents
            .MoveNext
        Loop
    End With
' una volta mi scordavo di chiudere e annullare i rs
    rs.close:set rs=nothing
    frmMain.lblPerc = "Sostituzioni: " & sost
    Exit Sub
errman:    MsgBox Error: Exit Sub
End Sub

 studiare dove viene utilizzata la progress bar??
Adesso non vorrei essere pedante, ma dare un'occhiata alla guida di
progressbar è troppo semplice?
Ciao

Ti ringrazio Java!!
Ciao Matteo


progressbar è troppo semplice?
Ma quale guida ti riferisci?
Certo, ho guardato dappertutto ma come ho detto prima ho trovato solo esempi
su come creare progressbar, e quello lo già fatto di mio , invece se hai
letto bene io cerco il codice di un programma intero con all'interno anche
quello della progress bar!!!!
Grazie lo stesso, ciao Matteo


 quello della progress bar!!!!
Ma... santa pazienza :) lo devi proprio copiare da altri?
Non ti basta (ripeto!) leggere  la guida della prograssbar  e _capire_ le
proprietà Max, Min, Value?
Ma LEGGERE, non vedere che il link a "esempi" è disabilitato e chiuderla!
Ma non ce l'hai VB?
Ci pianti una PB su un form e ci ciochi!
Scrivi
ProgressBar1.
e ti viene fuori la lista delle proprietà... le smanetti 5 (cinque!) minuti
e trovi da solo la risposta.
E' importante saper usare la testa.
E possibilmente la nostra.
Ciao

Ce l'ho Vb ma da poco piu di un mese quindi puoi capire la mia ignoranza, č
che volevo un esempio per capire come inserire la progressbar(fatta da me!)
in un programma completo!!!
Per quanto riguarda usare la testa non posso che darti ragione!!!!!!!!!!!
Ciao e Grazie ancora matteo
