| |
VB.NET - FortgeschritteneProgressBar in Echtzeit ??? | | | Autor: Fighter | Datum: 13.08.03 21:07 |
| Moin,
wenn ich eine Datei kopiere, kenn ich seine Größe, Name usw ....
Wie kann ich eine ProgressBar (Statusanzeige) in Echtzeit mitlaufen lassen.
Griege ich irgendwie raus, wieviel von dieser Datei schon kopiert ist ?
Gruß Jan | |
Re: Copy-Funktion per API mit Fortschrittsanzeige | | | Autor: Fighter | Datum: 13.08.03 23:38 |
| Also ich habe schon die ganze Zeit versucht den TIP
http://www.vbarchiv.net/archiv/tipp_635.html ( Copy-Funktion per API mit Fortschrittsanzeige )
umzusetzen.
Doch leider kriege ich den nicht unter .NET zum Laufen
Kann mir da jemand helfen ?
bei nResult = CopyFileEx(strVon,strNach, AddressOf Fortschrittsanzeige, _
ByVal 0&, _
bCancel, _
COPY_FILE_RESTARTABLE) meckert er an "ByVal" und sagt "erwartet: Ausdruck"
bei Public Function Fortschrittsanzeige( _
ByVal TotalFileSize As Currency, _
ByVal TotalBytesTransferred As Currency, ... mag er das "Currency" nicht und sagt "System.Currency ist in diesem Contex nicht zugreifbar da es sich hierbei um PRIVATE handelt."
Vielleicht hat ja jemand von Euch schon einen Statusbalken hinbekommen ?!
Danke schon mal für Eure Hilfe !
Gruß Jan | |
Re: Copy-Funktion per API mit Fortschrittsanzeige | | | Autor: Niko006 | Datum: 14.08.03 01:35 |
| Hi
Das geht so:
Benötigte API-Deklarationen und Konstanten
Public Const PROGRESS_CANCEL = 1
Public Const PROGRESS_CONTINUE = 0
Public Const PROGRESS_QUIET = 3
Public Const PROGRESS_STOP = 2
Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
Public Const COPY_FILE_RESTARTABLE = &H2
Public Declare Function CopyFileEx Lib "kernel32.dll" _
Alias "CopyFileExA" ( _
ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal lpProgressRoutine As Fortschritt, _
ByVal lpData As Integer, _
ByRef pbCancel As Integer, _
ByVal dwCopyFlags As Integer) As Integer
Public bCancel As Integer
Public Delegate Function Fortschritt( _
ByVal TotalFileSize As Integer, _
ByVal TotalBytesTransferred As Integer, _
ByVal StreamSize As Integer, _
ByVal StreamBytesTransferred As Integer, _
ByVal dwStreamNumber As Integer, _
ByVal dwCallbackReason As Integer, _
ByVal hSourceFile As Integer, _
ByVal hDestinationFile As Integer, _
ByVal lpData As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
' Datei kopieren
Dim nResult As Integer = CopyFileEx("D:\DB1.mdb", _
"D:\DB2.mdb", _
AddressOf Fortschrittsanzeige, _
0, _
bCancel, _
COPY_FILE_RESTARTABLE)
End Sub
' Datei kopieren mit Fortschrittsanzeige
Public Function Fortschrittsanzeige( _
ByVal TotalFileSize As Integer, _
ByVal TotalBytesTransferred As Integer, _
ByVal StreamSize As Integer, _
ByVal StreamBytesTransferred As Integer, _
ByVal dwStreamNumber As Integer, _
ByVal dwCallbackReason As Integer, _
ByVal hSourceFile As Integer, _
ByVal hDestinationFile As Integer, _
ByVal lpData As Long) As Integer
Fortschrittsanzeige = PROGRESS_CONTINUE
End Function Cu
Niko | |
Re: Copy-Funktion per API mit Fortschrittsanzeige | | | Autor: Fighter | Datum: 14.08.03 10:25 |
| Danke ...
Ich habe jetzt alle Deine Zeilen verbaut. Kopieren funktioniert auch. Aber keine Anzeige.
logisch !!!
... aber wie bringe ich meine Fortschrittsanzeige jetzt damit in Zusammenhang ?
bzw. Wie muß ich sie nennen?
Denn irgendwie muß ich ja jetzt den Wert "Fortschrittsanzeige.value" immer aktualisieren. Oder habe ich jetzt etwas falsch verstanden ?
Danke schon einmal für Deine Mühe.
Gruß Jan | |
Re: Copy-Funktion per API mit Fortschrittsanzeige | | | Autor: Fighter | Datum: 16.08.03 17:14 |
| Kann mir das keiner beantworten ??? | |
Habe noch immer das gleiche Problem. (oT) | | | Autor: Fighter | Datum: 08.03.04 12:02 |
| .
Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP | |
Re: Habe noch immer das gleiche Problem. (oT) | | | Autor: DaveS (Moderator) | Datum: 08.03.04 12:11 |
| Du könntest es auch mit der SHFileOperation Funktion machen (wie Explorer). | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|