Backgroundworker werte übergeben ist mir unklar...

ronaldl · 30. Juni 2011, 10:16

Hallo zusammen, ich möchte was im bgw laufen lassen aber alle versuche ihm was mit zu geben sind gescheitert.... kann mir das bitte jemand erkären was ich da falsch mache ?

hier mein code...

VB.NET-Quellcode

Imports System.IO
Imports System.ManagementImports System.ComponentModel
　
　
Public Class keDim dbu As String = Fotosoft.Label3.Text
Dim dbp As String = Fotosoft.Label4.TextDim dbh As String = Fotosoft.Label5.Text
Dim dbd As String = Fotosoft.Label6.Text
Dim wertT As String = ""
Dim wertPp As String = ""
　
Private WithEvents bgw As New BackgroundWorker
　Private Sub ke_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'erlaubt zugriff auf die windows form
bgw.WorkerReportsProgress = True
'erlaubt unterbrechung des bgw z.b. wenn das programm beendet wird
bgw.WorkerSupportsCancellation = True
Label6.Text = ""
Label1.Visible = False
Label2.Visible = False
Label4.Visible = False
Label5.Visible = False
ComboBox1.Visible = False
ComboBox2.Visible = False
RectangleShape1.Visible = False
Button2.Text = "Karten Ordner Wählen"
' Hauptordner
Dim sql As String = "select * from turniere order by tid desc"
Dim con As New MySqlConnectionDim cmd As New MySqlCommand(sql, con)
Dim myAdapter As New MySqlDataAdapter
Dim reader As MySqlDataReadercon.ConnectionString = "server='" & dbh & "';" _
& "uid='" & dbu & "';" _& "pwd='" & dbp & "';" _
& "database='" & dbd & "';"
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read() 'Jede Reihe durchlaufenComboBox1.Items.Add(reader("tid") & " / " _
& reader("tname"))
Loop
reader.Close() 'Reader schliesen
con.Close() 'Connection schliesen
End SubPrivate Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'prüft ob der bgw noch läuft und beendet diesen dann
'bedingung - siehe form_load
If bgw.IsBusy Then
bgw.CancelAsync()
End If
End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fbd As New FolderBrowserDialogfbd.RootFolder = Environment.SpecialFolder.MyComputer
fbd.ShowNewFolderButton = True
fbd.Description = "Wählen Sie ein Karte aus"If fbd.ShowDialog() = _
Windows.Forms.DialogResult.OK Then
ElseMsgBox("Abbruch")
End If
Label6.Text = fbd.SelectedPath & "\"
Label1.Visible = True
Label2.Visible = True
Label4.Visible = True
Label5.Visible = True
ComboBox1.Visible = True
ComboBox2.Visible = True
RectangleShape1.Visible = True
End SubPublic Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
' unterordner
ComboBox2.Items.Clear()
ComboBox2.Text = ""
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As ObjectselectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
Dim wertT As String
wertT = selectedItemT
Dim sqlp As String = "select * from pruefungen where tid = " & wertT & " order by pid desc"
Dim con As New MySqlConnectionDim cmd As New MySqlCommand(sqlp, con)
Dim myAdapter As New MySqlDataAdapter
Dim reader As MySqlDataReadercon.ConnectionString = "server='" & dbh & "';" _
& "uid='" & dbu & "';" _& "pwd='" & dbp & "';" _
& "database='" & dbd & "';"
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read() 'Jede Reihe durchlaufenComboBox2.Items.Add(reader("pid") & " / " _
& reader("pname"))
Loop
reader.Close() 'Reader schliesen
con.Close() 'Connection schliesen
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bgw.RunWorkerAsync()
　
　
End Sub
'Region "BackGroundWorker Events"Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
Dim myFiles() As FileInfo = sourcePath.GetFiles()
'Array.Sort(myFiles)
Dim AE As Integer
AE = UBound(myFiles) - LBound(myFiles) + 1
Label11.Text = AE.ToStringDim anz As String = 0For i As Integer = 0 To AE - 1
myFiles(i).MoveTo(DestinationPath & myFiles(i).ToString)
ProgressBar1.Focus()
ProgressBar1.Maximum = Label11.Text + 1Application.DoEvents()
ProgressBar1.Value += 1
ProgressBar1.Refresh()
Label10.Focus()
Label10.Text = ProgressBar1.Value / ProgressBar1.Maximum * 100 & " %"
Label10.Refresh()
Label18.Focus()
Label18.Text = ProgressBar1.Value
Label18.Refresh()
NextDim DestPath As New DirectoryInfo(Label9.Text)
Dim dmyFiles() As FileInfo = DestPath.GetFiles()For i As Integer = 0 To dmyFiles.Length - 1
Dim fn0 As String = dmyFiles(i).ToStringDim fl As Integer = fn0.Length
If fl < 15 ThenDim fl1 As Integer = fl - 4
Dim fn1 As String = fn0.Substring(4, fl1)Dim fn2 As String = "IMG_" & wertPp & fn1
Dim fn3 As String = Replace(fn2, " ", "")Dim fn4 As String = Label9.Text & fn3
If File.Exists(fn4) Then
' MsgBox(fn4 & " exist")
Else
' MsgBox(Label9.Text & fn3)
dmyFiles(i).MoveTo(Label9.Text & fn3)
End If
End If
Next
bgw.ReportProgress(100) 'die 100 steht hier für einen prozentsatz
'oder
'bgw.ReportProgress(100, "Muss was Ausgeben.") 'im zweiten parameter kann ein objekt übergeben werden
'End If
End SubPrivate Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
If ComboBox1.Text = "" ThenMsgBox(" Bitte ein Turnier auswählen ! ")
ElseIf ComboBox2.Text = "" ThenMsgBox(" Bitte ein Prüfung auswählen ! ")
Else
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As ObjectselectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
wertT = selectedItemT
Dim selectedIndexP As Integer
selectedIndexP = ComboBox2.SelectedIndex
Dim selectedItemP As ObjectselectedItemP = ComboBox2.SelectedItem.Split("/").GetValue(0)
Dim wertP As String
wertP = selectedItemPwertPp = Replace(selectedItemP, ".", "")
Dim sourcePath As New DirectoryInfo(Label6.Text)Dim DestinationPath As String = Label9.Text
End If
End Sub
　Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
MsgBox(" Dateien fertig kopiert und unbenannt ! ")Me.Close()
End SubPrivate Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As ObjectselectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
Dim wertT As String
wertT = selectedItemT
Dim wertT1 As StringwertT1 = wertT.Replace(" ", "")
Dim selectedIndexP As Integer
selectedIndexP = ComboBox2.SelectedIndex
Dim selectedItemP As ObjectselectedItemP = ComboBox2.SelectedItem.Split("/").GetValue(0)
Dim wertP As String
wertP = selectedItemPDim sourcePath As New DirectoryInfo(Label6.Text)
Dim myFiles() As FileInfo = sourcePath.GetFiles()
'Array.Sort(myFiles)
Dim AE As Integer
AE = UBound(myFiles) - LBound(myFiles) + 1
Label11.Text = AE.ToString
'ziellaufwerk destlegen
Dim sqlc As String = "select ppfad from pruefungen where tid = " & wertT1 & " and pid = " & wertP & " "
Dim con1 As New MySqlConnectionDim cmdc As New MySqlCommand(sqlc, con1)
Dim myAdapter1 As New MySqlDataAdaptercon1.ConnectionString = "server='" & dbh & "';" _
& "uid='" & dbu & "';" _& "pwd='" & dbp & "';" _
& "database='" & dbd & "';"
　
Dim tppf As String
con1.Open()tppf = Convert.ToString(cmdc.ExecuteScalar)
Dim tppf1 As String = Replace(tppf, ".", "\")Dim tppfn0 As Integer = tppf1.Length
Dim tppfn1 As Integer = tppfn0 - 4Dim tppf2 As String = tppf1.Substring(0, tppfn1)
Dim tppf3 As String = tppf2 & wertPDim wertPp As String = Replace(wertP, ".", "")
Label9.Text = tppf3 & "\"Dim zl As String = Label9.Text.Substring(0, 1)Dim al As String = Label6.Text.Substring(0, 1)
con1.Close()
'Freier Platz ziellaufwerkDim fs, plattefs = CreateObject("Scripting.FileSystemObject")
platte = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(zl)))
Dim free1z As Double = New DriveInfo(zl).AvailableFreeSpace / 1024 / 1024 / 1024
Dim freez As String = (free1z.ToString("00.000")) & " GB sind auf Ziellaufwerk frei "
Label12.Text = freezDim meda1 As Double = New DriveInfo(al).AvailableFreeSpace / 1024 / 1024 / 1024
Dim meda2 As Double = New DriveInfo(al).TotalSize / 1024 / 1024 / 1024Dim meda3 As Double = meda2 - meda1
Dim meda As String = (meda3.ToString("00.000"))
Label13.Text = meda & " GB daten sind auf Karte "Dim reda1 As Double = free1z - meda3
Dim reda As String = reda1.ToString("00.000")
Label16.Text = reda & " GB sind auf Ziellaufwerk nach einlesen frei"
If meda3 > free1z ThenMsgBox(" Achtung es steht nicht ausreichen Speicherplatz auf dem Server zur Verfügung !! ")
End If
End Sub
　
End Class

vielen Dank schon mal ronaldl

Dodo · 30. Juni 2011, 10:23

Müsste glaub so funktionieren

VB.NET-Quellcode

bgw.RunWorkerAsync(New Object() {34, "string", "irgendwas", 4})

Auslesen

VB.NET-Quellcode

Dim obj As Object() = DirectCast(e.Arguments, Object())
Dim i1 As Integer = DirectCast(obj(0), Integer) ' 34
Dim s1 As String = obj(1).ToString() ' "string"
Dim s2 As String = obj(2).ToString() ' "irgendwas"
Dim i2 As Integer = DirectCast(obj(3), Integer) ' 4

picoflop · 30. Juni 2011, 10:25

Kläglich gescheitert bist du auch beim Versuch, den Quellcode korrekt formatiert hier einzufügen.
Schalte den Editor des Forums auf "Quelltext" um und versuchs noch mal.

Ich hatte auf dieses Problem in der Boarddiskussion schon mal hingewiesen, aber offensichtlich sieht da niemand außer mir Handlungsbedarf ...

ronaldl · 30. Juni 2011, 11:06

@picoflop

was soll ich bitte ich habe den aus einem vb kopiert und im forum mit <vb> 'hier zwischen </vb> eingefügt das resultat kann ich dann leider nicht mehr beeinflussen falls doch sage mir bitte wie .

thx ronaldl

picoflop · 30. Juni 2011, 11:13

ronaldl schrieb:

falls doch sage mir bitte wie .

Hallo?
Ich sagte: "Stell den Editor des Forums auf Quellcode um"

Aber wie gesagt. Außer mir sieht wohl niemand den Handlungsbedarf. Da ist es einfacher das ganze immer und immer wieder zu erklären ...

ronaldl · 30. Juni 2011, 11:24

'Hier noch mals leserlich..

VB.NET-Quellcode

Imports System.IO
Imports System.Management
Imports System.ComponentModel
Public Class ke
Dim dbu As String = Fotosoft.Label3.Text
Dim dbp As String = Fotosoft.Label4.Text
Dim dbh As String = Fotosoft.Label5.Text
Dim dbd As String = Fotosoft.Label6.Text
Dim wertT As String = ""
Dim wertPp As String = ""
Private WithEvents bgw As New BackgroundWorker
Private Sub ke_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'erlaubt zugriff auf die windows form
bgw.WorkerReportsProgress = True
'erlaubt unterbrechung des bgw z.b. wenn das programm beendet wird
bgw.WorkerSupportsCancellation = True
Label6.Text = ""
Label1.Visible = False
Label2.Visible = False
Label4.Visible = False
Label5.Visible = False
ComboBox1.Visible = False
ComboBox2.Visible = False
RectangleShape1.Visible = False
Button2.Text = "Karten Ordner Wählen"
' Hauptordner
Dim sql As String = "select * from turniere order by tid desc"
Dim con As New MySqlConnection
Dim cmd As New MySqlCommand(sql, con)
Dim myAdapter As New MySqlDataAdapter
Dim reader As MySqlDataReader
con.ConnectionString = "server='" & dbh & "';" _
& "uid='" & dbu & "';" _
& "pwd='" & dbp & "';" _
& "database='" & dbd & "';"
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read() 'Jede Reihe durchlaufen
ComboBox1.Items.Add(reader("tid") & " / " _
& reader("tname"))
Loop
reader.Close() 'Reader schliesen
con.Close() 'Connection schliesen
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'prüft ob der bgw noch läuft und beendet diesen dann
'bedingung - siehe form_load
If bgw.IsBusy Then
bgw.CancelAsync()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fbd As New FolderBrowserDialog
fbd.RootFolder = Environment.SpecialFolder.MyComputer
fbd.ShowNewFolderButton = True
fbd.Description = "Wählen Sie ein Karte aus"
If fbd.ShowDialog() = _
Windows.Forms.DialogResult.OK Then
Else
MsgBox("Abbruch")
End If
Label6.Text = fbd.SelectedPath & "\"
Label1.Visible = True
Label2.Visible = True
Label4.Visible = True
Label5.Visible = True
ComboBox1.Visible = True
ComboBox2.Visible = True
RectangleShape1.Visible = True
End Sub
Public Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
' unterordner
ComboBox2.Items.Clear()
ComboBox2.Text = ""
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As Object
selectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
Dim wertT As String
wertT = selectedItemT
Dim sqlp As String = "select * from pruefungen where tid = " & wertT & " order by pid desc"
Dim con As New MySqlConnection
Dim cmd As New MySqlCommand(sqlp, con)
Dim myAdapter As New MySqlDataAdapter
Dim reader As MySqlDataReader
con.ConnectionString = "server='" & dbh & "';" _
& "uid='" & dbu & "';" _
& "pwd='" & dbp & "';" _
& "database='" & dbd & "';"
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read() 'Jede Reihe durchlaufen
ComboBox2.Items.Add(reader("pid") & " / " _
& reader("pname"))
Loop
reader.Close() 'Reader schliesen
con.Close() 'Connection schliesen
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bgw.RunWorkerAsync()
End Sub
'Region "BackGroundWorker Events"
Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
Dim myFiles() As FileInfo = sourcePath.GetFiles()
'Array.Sort(myFiles)
Dim AE As Integer
AE = UBound(myFiles) - LBound(myFiles) + 1
Label11.Text = AE.ToString
Dim anz As String = 0
For i As Integer = 0 To AE - 1
myFiles(i).MoveTo(DestinationPath & myFiles(i).ToString)
ProgressBar1.Focus()
ProgressBar1.Maximum = Label11.Text + 1
Application.DoEvents()
ProgressBar1.Value += 1
ProgressBar1.Refresh()
Label10.Focus()
Label10.Text = ProgressBar1.Value / ProgressBar1.Maximum * 100 & " %"
Label10.Refresh()
Label18.Focus()
Label18.Text = ProgressBar1.Value
Label18.Refresh()
Next
Dim DestPath As New DirectoryInfo(Label9.Text)
Dim dmyFiles() As FileInfo = DestPath.GetFiles()
For i As Integer = 0 To dmyFiles.Length - 1
Dim fn0 As String = dmyFiles(i).ToString
Dim fl As Integer = fn0.Length
If fl < 15 Then
Dim fl1 As Integer = fl - 4
Dim fn1 As String = fn0.Substring(4, fl1)
Dim fn2 As String = "IMG_" & wertPp & fn1
Dim fn3 As String = Replace(fn2, " ", "")
Dim fn4 As String = Label9.Text & fn3
If File.Exists(fn4) Then
' MsgBox(fn4 & " exist")
Else
' MsgBox(Label9.Text & fn3)
dmyFiles(i).MoveTo(Label9.Text & fn3)
End If
End If
Next
bgw.ReportProgress(100) 'die 100 steht hier für einen prozentsatz
'oder
'bgw.ReportProgress(100, "Muss was Ausgeben.") 'im zweiten parameter kann ein objekt übergeben werden
'End If
End Sub
Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
If ComboBox1.Text = "" Then
MsgBox(" Bitte ein Turnier auswählen ! ")
ElseIf ComboBox2.Text = "" Then
MsgBox(" Bitte ein Prüfung auswählen ! ")
Else
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As Object
selectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
wertT = selectedItemT
Dim selectedIndexP As Integer
selectedIndexP = ComboBox2.SelectedIndex
Dim selectedItemP As Object
selectedItemP = ComboBox2.SelectedItem.Split("/").GetValue(0)
Dim wertP As String
wertP = selectedItemP
wertPp = Replace(selectedItemP, ".", "")
Dim sourcePath As New DirectoryInfo(Label6.Text)
Dim DestinationPath As String = Label9.Text
End If
End Sub
Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
MsgBox(" Dateien fertig kopiert und unbenannt ! ")
Me.Close()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As Object
selectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
Dim wertT As String
wertT = selectedItemT
Dim wertT1 As String
wertT1 = wertT.Replace(" ", "")
Dim selectedIndexP As Integer
selectedIndexP = ComboBox2.SelectedIndex
Dim selectedItemP As Object
selectedItemP = ComboBox2.SelectedItem.Split("/").GetValue(0)
Dim wertP As String
wertP = selectedItemP
Dim sourcePath As New DirectoryInfo(Label6.Text)
Dim myFiles() As FileInfo = sourcePath.GetFiles()
'Array.Sort(myFiles)
Dim AE As Integer
AE = UBound(myFiles) - LBound(myFiles) + 1
Label11.Text = AE.ToString
'ziellaufwerk destlegen
Dim sqlc As String = "select ppfad from pruefungen where tid = " & wertT1 & " and pid = " & wertP & " "
Dim con1 As New MySqlConnection
Dim cmdc As New MySqlCommand(sqlc, con1)
Dim myAdapter1 As New MySqlDataAdapter
con1.ConnectionString = "server='" & dbh & "';" _
& "uid='" & dbu & "';" _
& "pwd='" & dbp & "';" _
& "database='" & dbd & "';"
Dim tppf As String
con1.Open()
tppf = Convert.ToString(cmdc.ExecuteScalar)
Dim tppf1 As String = Replace(tppf, ".", "\")
Dim tppfn0 As Integer = tppf1.Length
Dim tppfn1 As Integer = tppfn0 - 4
Dim tppf2 As String = tppf1.Substring(0, tppfn1)
Dim tppf3 As String = tppf2 & wertP
Dim wertPp As String = Replace(wertP, ".", "")
Label9.Text = tppf3 & "\"
Dim zl As String = Label9.Text.Substring(0, 1)
Dim al As String = Label6.Text.Substring(0, 1)
con1.Close()
'Freier Platz ziellaufwerk
Dim fs, platte
fs = CreateObject("Scripting.FileSystemObject")
platte = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(zl)))
Dim free1z As Double = New DriveInfo(zl).AvailableFreeSpace / 1024 / 1024 / 1024
Dim freez As String = (free1z.ToString("00.000")) & " GB sind auf Ziellaufwerk frei "
Label12.Text = freez
Dim meda1 As Double = New DriveInfo(al).AvailableFreeSpace / 1024 / 1024 / 1024
Dim meda2 As Double = New DriveInfo(al).TotalSize / 1024 / 1024 / 1024
Dim meda3 As Double = meda2 - meda1
Dim meda As String = (meda3.ToString("00.000"))
Label13.Text = meda & " GB daten sind auf Karte "
Dim reda1 As Double = free1z - meda3
Dim reda As String = reda1.ToString("00.000")
Label16.Text = reda & " GB sind auf Ziellaufwerk nach einlesen frei"
If meda3 > free1z Then
MsgBox(" Achtung es steht nicht ausreichen Speicherplatz auf dem Server zur Verfügung !! ")
End If
End Sub
End Class

Edit: 1x in die IDE und zurück by hal2000

picoflop · 30. Juni 2011, 11:31

ronaldl schrieb:

'Hier noch mals leserlich..

Quellcode-Ansicht UND vb-Tags bitte

Die Quellcode Ansicht sorgt lediglich dafür, dass Einrückungen und Zeilenumbrüche erhalten bleiben. Komplett richtig wirds aber nur wenn das ganze auch noch in den vb-Tags steht.

EDIT: Und man kann posts auch EDITIEREN um das ganze "schön" zu machen ...

ronaldl · 1. Juli 2011, 08:50

@ dodo

wie mach das ... ich hab mal bei button 1 .click folgendens

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "" Then
MsgBox(" Bitte ein Turnier auswählen ! ")
ElseIf ComboBox2.Text = "" Then
MsgBox(" Bitte ein Prüfung auswählen ! ")
Else
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As Object
selectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
wertT = selectedItemT
Dim selectedIndexP As Integer
selectedIndexP = ComboBox2.SelectedIndex
Dim selectedItemP As Object
selectedItemP = ComboBox2.SelectedItem.Split("/").GetValue(0)
Dim wertP As String
wertP = selectedItemP
wertPp = Replace(selectedItemP, ".", "")
Dim sourcePath As New DirectoryInfo(Label6.Text)
Dim DestinationPath As String = Label9.Text
bgw.RunWorkerAsync()
end sub

das problem liegt bei sourcePath & DestinationPath die müssen beim bgw.dowork ankommen...

VB.NET-Quellcode

Dim myFiles() As FileInfo = sourcePath.GetFiles()
'Array.Sort(myFiles)
Dim AE As Integer
AE = UBound(myFiles) - LBound(myFiles) + 1
Label11.Text = AE.ToString
Dim anz As String = 0
For i As Integer = 0 To AE - 1
myFiles(i).MoveTo(DestinationPath & myFiles(i).ToString)
......

das mit dem definieren als object und dem direkcast habe ich irgendwie noch nicht begriffen.

ronaldl · 1. Juli 2011, 20:27

@ dodo

wie mach das ... ich hab mal bei button 1 .click folgendens

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sourcePath As New DirectoryInfo(Label6.Text)
Dim DestinationPath As String = Label9.Text
bgw.RunWorkerAsync(New Object() {sourcePath, DestinationPath})
end sub

unter die objekte haben die korekten werte aber die DirectoryInfo macht problem sei kein string , wie mach das , daß er das richtig annimmt....

VB.NET-Quellcode

Dim obj As Object() = DirectCast(e.Argument, Object())
Dim sp As New DirectoryInfo(obj(0)) ' der macht mir probeme
Dim dp As String = obj(1).ToString() ' "string"
Dim myFiles() As FileInfo = sp.GetFiles()
'Array.Sort(myFiles)
Dim AE As Integer
AE = UBound(myFiles) - LBound(myFiles) + 1
Label11.Text = AE.ToString
Dim anz As String = 0
For i As Integer = 0 To AE - 1
myFiles(i).MoveTo(dp & myFiles(i).ToString)......

das mit dem definieren als object und dem direkcast habe ich irgendwie noch nicht begriffen.

AliveDevil · 1. Juli 2011, 22:41

deklarier einfach zwei variablen in der klasse und lasse die auslesen

VB.NET-Quellcode

dim var1,var2 as wasauchimmer
Private sub backgroundworker_dowork()
Use var1 and var2

Fertig...und schon hat man eine schöne lösung gefunden^^

ronaldl · 2. Juli 2011, 08:09

@ AliveDevil

ne ne kolege dann kommt das mit der schutzstufe und use sei nicht deklariert, ist also keine Lösung... schade .

AliveDevil · 2. Juli 2011, 08:15

omg...

VB.NET-Quellcode

Dim var1, var2 As Integer = 2
Private Event finished(num As Integer)
Private Sub backgroundworker_DoWork()
dim res as integer = 0
res = var1+var2
RaiseEvent finished(res)
End Sub
Private Sub Form_Load()
AddHandler finished, AddressOf finished
End Sub
Sub finished(res as integer)
Me.Text = CStr(res)
End Sub

glaub mir..das geht^^

ronaldl · 2. Juli 2011, 08:44

@ AliveDevil

ja string und interger sind auch bei meiner methode da aber..

ermost ja weil bei DirectoryInfo sp ein string sei wie mache ich es das DirectoryInfo auch als solches ankommt ?

ronaldl · 8. Juli 2011, 07:31

uch dieZweite lösung geht nicht, es kommen fehlermeldungen, wie bitte übergebe ich directioryinfo an den bgw ??
ich arbeite sehr vieldamit und brauch die funktion noch für zwei andere classen wer kann mir da helfen ?

mfg Ronaldl

ronaldl · 13. Juli 2011, 08:24

Nun er kopiert korrekt die dateien...

So hab ich jetzt gemacht aber da sind immer 2 Probleme

das Erste : der Progressbar läuft nicht...

das Zweite : die Dateien werden nicht unbenannt unter bgw.dowork

woran liegt das ?

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sourcePath As New DirectoryInfo(Label6.Text)
Dim DestinationPath As String = Label9.Text
If ComboBox1.Text = "" Then
MsgBox(" Bitte ein Turnier auswählen ! ")
ElseIf ComboBox2.Text = "" Then
MsgBox(" Bitte ein Prüfung auswählen ! ")
Else
Dim selectedIndexT As Integer
selectedIndexT = ComboBox1.SelectedIndex
Dim selectedItemT As Object
selectedItemT = ComboBox1.SelectedItem.Split("/").GetValue(0)
wertT = selectedItemT
Dim selectedIndexP As Integer
selectedIndexP = ComboBox2.SelectedIndex
Dim selectedItemP As Object
selectedItemP = ComboBox2.SelectedItem.Split("/").GetValue(0)
Dim wertP As String
wertP = selectedItemP
wertPp = Replace(selectedItemP, ".", "")
End If
bgw.RunWorkerAsync(New Object() {sourcePath, DestinationPath, wertPp})
End Sub
'Region "BackGroundWorker Events"
Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
Dim obj As Object() = DirectCast(e.Argument, Object())
Dim dp As String = obj(1).ToString() ' "string"
Dim sp As String = obj(0).ToString()
Dim wp As String = obj(2).ToString()
Dim sourcePath As New DirectoryInfo(sp)
Dim DestPath As New DirectoryInfo(dp)
Dim dmyFiles() As FileInfo = DestPath.GetFiles()
For i As Integer = 0 To dmyFiles.Length - 1
Dim fn0 As String = dmyFiles(i).ToString
Dim fl As Integer = fn0.Length
If fl < 15 Then
Dim fl1 As Integer = fl - 4
Dim fn1 As String = fn0.Substring(4, fl1)
Dim fn2 As String = "IMG_" & wp & fn1
Dim fn3 As String = Replace(fn2, " ", "")
Dim fn4 As String = Label9.Text & fn3
If File.Exists(fn4) Then
' MsgBox(fn4 & " exist")
Else
' MsgBox(Label9.Text & fn3)
dmyFiles(i).MoveTo(dp & fn3)
End If
End If
Next
bgw.ReportProgress(100) 'die 100 steht hier für einen prozentsatz
'oder
'bgw.ReportProgress(100, "Muss was Ausgeben.") 'im zweiten parameter kann ein objekt übergeben werden
'End If
End Sub
Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
Dim sourcePath As New DirectoryInfo(Label6.Text)
Dim DestinationPath As String = Label9.Text
Dim myFiles() As FileInfo = sourcePath.GetFiles()
AE = UBound(myFiles) - LBound(myFiles) + 1
Label11.Text = AE.ToString
Dim anz As String = 0
For i As Integer = 0 To AE - 1
myFiles(i).MoveTo(DestinationPath & myFiles(i).ToString)
ProgressBar1.Focus()
ProgressBar1.Maximum = AE 'Label11.Text + 1
Application.DoEvents()
ProgressBar1.Value += 1
ProgressBar1.Refresh()
Label10.Focus()
Label10.Text = ProgressBar1.Value / ProgressBar1.Maximum * 100 & " %"
Label10.Refresh()
Label18.Focus()
Label18.Text = ProgressBar1.Value
Label18.Refresh()
Next
'Dim sourcePath As New DirectoryInfo(Label6.Text)
'Dim DestinationPath As String = Label9.Text
End Sub
Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
MsgBox(" Dateien fertig kopiert und unbenannt ! ")
Me.Close()
End Sub

picoflop · 13. Juli 2011, 08:36

msdn.microsoft.com/en-us/library/cc221403(v=vs.95).aspx

bw.WorkerReportsProgress = True

Ein ReportProgress IN der Schleife würde übrigens auch Sinn machen

ronaldl · 13. Juli 2011, 09:28

@picoflop

habe ich im loadform , habe nur die änderungen vom Obigen Script geostet damit es nicht jedesmal ellen lang wird

Ein ReportProgress IN der Schleife würde übrigens auch Sinn machen

in welcher schleife ?

picoflop · 13. Juli 2011, 09:32

Quellcode

For i As Integer = 0 To dmyFiles.Length - 1

BTW: Der Code im ReportProgress Event ist irgendwie ziemlich unfugig ...
1. Grundsätzlich und 2. der Inhalt.
Label.Focus() ??
Schleife die Dateien kopiert/verschiebt?

Irgendwie sieht bei näherer Betrachtung (nicht zu nah, denn SO schön siehts nicht aus) der gesamte Code irgendwie merkwürdig aus ...

AliveDevil · 13. Juli 2011, 09:56

ja....ausserdem macht er im bgw_DoWork Threadübergreifende Zugriffe....
@TE: arbeite dich ma in Delegates ein

ronaldl · 13. Juli 2011, 10:16

@picoflop

die zeile gibtdie anzahl aller elemente des arrays zurück, -1weil ein array ja mit index 0 und nicht mit 1 beginnt

@alive devil

wer ist mit @TE: gemeint

und

wo gehört denn jetzt nun was hin, ich kriegs es nicht auf die kette , wenn ich die schleife in bgw work kopiere kopiert es mir nicht alle dateien, wenn ich sie in bgw_ProgressChanged laufen lasse kopiert er alle dateien aber der balken des Progressbar läuft nicht .

Kann ich mir bei dem bgw Application.DoEvents() und label10.focus sparen macht er das von allein ?

auf leitung steh .. und wo ist der Thread übergreifende zugriff ?

Bitte mal ganz laaaaangsam für mich zum mitschreiben... Vielen dank.

Backgroundworker werte übergeben ist mir unklar...

Backgroundworker werte übergeben ist mir unklar...

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

ronaldl schrieb:

VB.NET-Quellcode

ronaldl schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

problem mit dirktcast

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

use

VB.NET-Quellcode

Direktoryinfo und destiopath kommen nicht an

VB.NET-Quellcode

Quellcode

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben