[VB6]: ProgressBar e dati MsFlexGrid

[vr-claudio]

Ciao ragazzi
vi chiedo la cortesia di aiutarmi (in seguito vi esporro' il codice), come dice l'oggetto ho una Flex e una ProgressBar style XP.

Ho provato in tutti i modi possibili, facendo anche una ricerca sul WEB, ma mi diventa difficile, quando carico i dati nella flex purtroppo la ProgressBar sembra non funzionare, ho provato anche a dare tutte le impostazioni possibili alla PBar ma sembra che si blocchi, ma il caricamento funziona senza problemi.

(Code per caricare la Flex e azionare la progressbar)...

Dim qry_Risposte As String, I As Integer
Dim rsQuiz As Recordset
Dim miodb As Database
Dim I1

Screen.MousePointer = vbHourglass
qry_Risposte = "SELECT ID,CODICE FROM TIP_LENTI WHERE TIPOLOGIA LIKE '" & (NomFornitore) & "'ORDER BY ID"

Set miodb = OpenDatabase("C:\VENDITA\DB\DB_LO.mdb")
Set rsQuiz = miodb.OpenRecordset(qry_Risposte, dbOpenDynaset)

If rsQuiz.EOF = False Then
rsQuiz.MoveLast
rsQuiz.MoveFirst
mi_TotaleArticoli = rsQuiz.RecordCount - 1

ReDim tRiga(mi_TotaleArticoli)

If mi_TotaleArticoli < mi_NroRighe Then
Else
m_fNoScroll = True
End If

For I = 0 To mi_TotaleArticoli

If IsNull(rsQuiz.Fields("CODICE").Value) = False Then
tRiga(I).FORNITORE = Trim(rsQuiz.Fields("CODICE").Value)
Else
tRiga(I).FORNITORE = vbNullString
End If

VENDITA.FLEX.AddItem tRiga(I).FORNITORE & vbTab & tRiga(I).Descrizione _
& vbTab & tRiga(I).FORNITORE1

rsQuiz.MoveNext
Next

End If

m_fNoScroll = False
rsQuiz.Close
miodb.Close
Screen.MousePointer = vbDefault

Ho provato ad inserire questo codice
Grazie mille
vr-claudio

[oregon]

Non si capisce molto dal codice ... in particolare non si capisce dove siano le linee di controllo della progress bar ... (dovresti usare i tag CODE appositi del forum per formattare le linee di codice e renderle piu' leggibili ...).

In ogni caso, mi sembra che il tuo problema sia che manca una istruzione

DoEvents

all'interno del ciclo ...

[vr-claudio]

Ciao oregon,
innanzitutto grazie per la tua risposta, il codice che ho usato per la PBar è questo:

Label1.Caption = "Attendere prego..."
ProgBarXP1.WaitBarStyle = True
DoEvents

...
ho inserito questo codice in quello che vi ho anticipato nella richiesta, prima dopo e durante ma la PBar "sembra" non funzionare.

Spero di essermi spiegato abbastanza bene, ciao vr-claudio

[oregon]

Ma questo oggetto ProgBarXP1 e' un controllo di terze parti?

E l'assegnazione del valore alla progress bar dov'e'?

[vr-claudio]

Buongiorno Oregon
si è una PBarXP1 di Terze parti con le stesse funzioni a quelle che si trovano nel Pacchetto VB6...in merito alle assegnazioni da Te richieste è proprio questo il cruccio che non so' usare perchè per me le PBar sono completamente sconosciute ma cè gran poco in merito.

Comunque nessuno mi vieta di usare la classica ProgressBar1 di VB

Ciao e grazie

[oregon]

Buongiorno ...

Scusa ... ma non ci sono delle proprieta'

Value, Min, Max

?

[vr-claudio]

Buongiorno a Te e a tutti del Forum...
se ci avessi capito qualcosa dalla guida in linea non avrei disturbato nessuno, cmq cerchero' di dare un'occhiata migliore.
Grazie mille
vr-claudio

[vr-claudio]

Ciao Oregon
scusa per il messaggio ma ho sbagliato post, perdonami era risposta ad un altro forumista.

Cmq le proprietà attuali della PBar sono:
MAX: 100
MIN: 0

[oregon]

E la Value?

[vr-claudio]

Scusami quale value, forse intendi la VISIBILE che attualmete è TRUE