Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|725\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Basic Basement -> vb.net threading :(
Mon, 03 May 2010, 09:26
spinal	Something's been confusing me for a little while, Part of my program has to download a bunch of images then convert them to a different format. This process will jam up the window, so I googled a little and found some examples of threading, so that that process can be done in the background. The only problem though, is that I can't get it to work. My sub ConvertAndSave() works fine if I just call it, but if I do this - Dim MyThread As New System.Threading.Thread(AddressOf ConvertAndSave) MyThread.Start() --v It doesn't do anything If it helps, here is the ConvertAndSave sub. Sub ConvertAndSave() Dim isHomebrew As Boolean If Form1.ListView1.Items.Count > 0 Then For Each itm1 As ListViewItem In Form1.ListView1.Items If itm1.SubItems(5).Text = "False" Then isHomebrew = 0 For temp = 1 To 4 If Strings.Mid(itm1.SubItems(2).Text, temp, 1) = "#" Then isHomebrew = 1 End If Next If isHomebrew = 0 Then ' Is not homebrew Dim current_code As String = itm1.SubItems(2).Text For Each itm2 As ListViewItem In ListView1.Items If current_code = itm2.SubItems(1).Text Then ' Download cover i guess 'Dim text1 As String text1 = Application.StartupPath + "\covers\" + itm2.SubItems(1).Text + ".bmp" ListBox1.Items.Clear() ListBox1.Items.Add("Downloading " + itm2.SubItems(1).Text) ListBox1.Refresh() LoadImageFromUrl(itm2.SubItems(0).Text, Picture1) convert_bmp() Picture1.Refresh() End If Next End If End If Next End If 'Me.Hide() 'Form1.list_files() End Sub --v -=-=- Check out my excellent homepage!
Mon, 03 May 2010, 09:54
Spare	Most likely the problem is: Windows Forms! I've just tried something simple in a console app: Module Module1 Sub Main() Dim newThread As New Threading.Thread(AddressOf ThreadSub) newThread.Start() While True Console.WriteLine("Thread 1: hello") End While End Sub Sub ThreadSub() While True Console.WriteLine("Thread 2: hello") End While End Sub End Module --v It works fine. Maybe this will help you: msdn.microsoft.com/en-us/library/ms171728.aspx Unless something's just wrong in the ConvertAndSave sub