Re: VB.NET 2010 - pasek postepu. - Article 104730 - go-pugleaf

Article View: pl.comp.lang.vbasic

Article #104730

Back to pl.comp.lang.vbasic Previous Next

Re: VB.NET 2010 - pasek postepu.

#104730

From: Wiktor Zychla
Date: Fri, 10 Dec 2010 09:00

31 lines
1985 bytes


Użytkownik "Jacek" <ala@ola.pl> napisał w wiadomości grup 
dyskusyjnych:1wp0hao771gwp.mm72xd3qfyvt$.dlg@40tude.net...
> Witajcie.
>
> Mam funkcje a w niej:
>
> For Each fName As String In Directory.GetFiles(sourcePath)
>            If File.Exists(fName) Then
>                Dim dFile As String = String.Empty
>                dFile = Path.GetFileName(fName)
>                Dim dFilePath As String = String.Empty
>                dFilePath = DestinationPath + dFile
>                File.Copy(fName, dFilePath, True)
>                ProgressBar1.Value = y
>                ProgressBar1.Refresh()

Application.DoEvents

>                y = y + x
>            End If
>        Next
>
> Sprawa polega na tym, ze nie odswieza sie pasek postepu.
> Robilem juz rozne cuda i nic.
> Samo powyzsze kopiowanie trwa okolo 5 min, wiec przydal by sie dzialajacy
> progressbar, prawda?
> Jak to ugryzc?

Technical Details

Message-ID: <4d01ec1b$0$27042$65785112@news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!zen.net.uk!dedekind.zen.co.uk!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

References: <1wp0hao771gwp.mm72xd3qfyvt$.dlg@40tude.net>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.straub-nv.de!zen.net.uk!dedekind.zen.co.uk!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
From: "Wiktor Zychla" <wzychla@nospam.com>
Newsgroups: pl.comp.lang.vbasic
References: <1wp0hao771gwp.mm72xd3qfyvt$.dlg@40tude.net>
In-Reply-To: <1wp0hao771gwp.mm72xd3qfyvt$.dlg@40tude.net>
Subject: Re: VB.NET 2010 - pasek postepu.
Date: Fri, 10 Dec 2010 10:00:11 +0100
MIME-Version: 1.0
X-Priority: 3
X-MSMail-Priority: Normal
Importance: Normal
X-Newsreader: Microsoft Windows Live Mail 14.0.8117.416
X-MimeOLE: Produced By Microsoft MimeOLE V14.0.8117.416
Lines: 32
Message-ID: <4d01ec1b$0$27042$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 195.116.95.201
X-Trace: 1291971611 unt-rea-a-02.news.neostrada.pl 27042 195.116.95.201:45495
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message