[vb] Problema con Progress Bar

[steno12]

Non l'hai provato?

Private Sub loadcombo()

prgLoadData.Visible = True
prgLoadData.Min = 0
'al posto di IlNumeroDeiRecordTotali scrivi 14654
prgLoadData.Max = IlNumeroDeiRecordTotali
Numero=0
Do While Not (datComuni.Recordset.EOF)
Numero=Numero+1
CmbCitta.AddItem (datComuni.Recordset!comune)
prgLoadData.Value = Numero
datComuni.Recordset.MoveNext
Loop

End Sub

se funziona allora fai così:
ricavi prima il numero di record e poi utilizzi la progressbar

okay te l'ho aggiusto:

Private Sub loadcombo()

prgLoadData.Visible = True
prgLoadData.Min = 0
Numero=0
Do While Not (datComuni.Recordset.EOF)
Numero=Numero+1
Loop
num=0
prgLoadData.Max = Numero
Do While Not (datComuni.Recordset.EOF)
num=num + 1
CmbCitta.AddItem (datComuni.Recordset!comune)
prgLoadData.Value = num
datComuni.Recordset.MoveNext
Loop

End Sub






link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%...rum/default.asp