Bosanec | 28.01.2011 16:44 |
---|---|
Predmet:progres bar da li se može na ovu funkciju koja vrši pretvaranje karaktera u fajlu u UTF-8 ubaciti progres bar Public Sub subConvertToUTF8(strPathName As String) Dim lngI As Long Dim lngMax As Long Dim strTempPathName As String Dim intOrgFileHandle As Integer Dim intTempFileHandle As Integer Dim i As Integer Dim bytInput As Byte Dim intOutput As Integer strTempPathName = funGetTempPathName(strPathName) intOrgFileHandle = FreeFile Open strPathName For Binary Access Read As intOrgFileHandle intTempFileHandle = FreeFile Open strTempPathName For Binary Access Write As intTempFileHandle subWriteUTF8 intTempFileHandle, &HFEFF 'Byte order mark Do While Not EOF(intOrgFileHandle) Get #intOrgFileHandle, , bytInput intOutput = funConvert(bytInput) If intOutput <> 0 Then subWriteUTF8 intTempFileHandle, intOutput End If Loop Close intTempFileHandle Close intOrgFileHandle Kill strPathName Name strTempPathName As strPathName kada file posjeduje dosta podataka zna da potraje pa bih htio da ugradim progres bar koji bi pokazivao dokle je funkcija došla sa obradom pozdrav |
zxz | 28.01.2011 17:52 |
---|---|
Predmet:Re: progres bar Naravno da moze ali za progres bar trebas start korak i end. Ti ovdje nemas end. Start moze biti 1 end bi mogao uzeti velicinu filea a korak jedan red. Jedan red bi mogao naci pomocu duzine prvog reda kada ucitas. Do While Not EOF(intOrgFileHandle) Get #intOrgFileHandle, , bytInput 'Ovdje bi trebao postaviti progres funkciju odnosno pozvati je. intOutput = funConvert(bytInput) If intOutput <> 0 Then subWriteUTF8 intTempFileHandle, intOutput End If |
miro35 | 02.02.2011 16:43 |
---|---|
Predmet:Re: progres bar Evo jedan primjer progress bar-a |
|
Prilozi: ProgresBar.rar (Velicina datoteke:14.18 KB) |
Bosanec | 02.02.2011 22:43 |
---|---|
Predmet:Re: progres bar probaću da ga ukomponujem u funkciju fino izgleda dadne aplikaciji jedan ozbiljan izgled pozdrav |