$VALMIR$
|
UBERLANDIA
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/01/2008 16:09 hs
Galera, como que implementa um progressBar para acompanhar a leitura de um arquivo de diversas linhas..
Tentei fazer uma gambiarra, mas achei muito tosca, pois eu li todo o arquivo primeiro para saber a quantidade de linhas e depois fui incrementando no progressBar, mas desta forma eu tenho que ler todo o arquivo primeiro, ai depois que incrementa, queria fazer simultaneo com o arquivo..
|
|
|
|
|
|
|
|
Postada em 21/01/2008 12:07 hs
Ah sim, dá pra fazer... :) Segue abaixo: Dim i As Long
Dim x As Long
Dim total As Long
Open "c: este.txt" For Input As #1
ProgressBar1.Value = 0
ProgressBar1.Min = 0
ProgressBar1.Max = 100
total = LOF(1)
Do While Not EOF(1)
DoEvents
Line Input #1, linha
x = x + Len(linha & vbNewLine)
ProgressBar1.Value = Format(x * 100 / total, "###.#0")
Label1 = ProgressBar1.Value & "%" & vbNewLine & "valor: " & x & vbNewLine & "valor total: " & total
Loop
Close #1 Contando que as linhas estão "separadas" por 'vbnewline' = vbcrlf e conta como 2 bytes. Acho melhor colocar na sessão de dicas...  Senão esqueço huehuehuehue. |
|
|
|
$VALMIR$
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/01/2008 22:09 hs
Amigo, agora preciso colocar o progressBar simultaneo na hora de mandar uma impressão direta do access.. segue abaixo a rotina que uso para imprimir diretamente o relatorio do access, sem visualização..
Dim RelatorioAccess As Access.Application
Set RelatorioAccess = New Access.Application
RelatorioAccess.OpenCurrentDatabase (strDbName) 'caminho do banco
RelatorioAccess.DoCmd.OpenReport ReportName:=NomeRelatorio
RelatorioAccess.CloseCurrentDatabase
RelatorioAccess.Quit 'Fecha o MSACCESS do Gerenciador de Tarefas
MsgBox "Impressão realizada com Sucesso!", vbInformation, "Sucesso"
|
|
|
|
|
|
Postada em 22/01/2008 15:47 hs
Não entendi... |
|
|
|
