|
people here are unlikely to download anything just to maybe understand a question; what you should do is explain the symptoms ("doesn't work" tells us nothing) and tell how it differs from your expectations, then ask a specific question and/or show a relevant code snippet.
|
|
|
|
|
My apologies.
Main Form
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim passing(0, 3) As String
passing(0, 0) = "10.1.1.1"
passing(0, 1) = "10.1.1.2"
passing(0, 2) = "10.1.1.3"
passing(0, 3) = "10.1.1.4"
Dim myworker As New Foo(passing)
End Sub
Private Sub IHeardThat() Handles Foo.IamDone
'this does NOT work
End Sub
End Class
My Foo class
Imports System.ComponentModel
Imports System.IO
Imports System.Threading
Public Class Foo
Public WithEvents backgroundWorker1 As System.ComponentModel.BackgroundWorker
Public Event IamDone(ByVal sender As Object, ByVal IP As String)
Dim devicelist(,) As String
Dim txtFile
Public Sub New(ByVal Value As String(,))
devicelist = Value
backgroundWorker1 = New BackgroundWorker
backgroundWorker1.WorkerReportsProgress = True
backgroundWorker1.RunWorkerAsync(devicelist)
End Sub
Private Sub backgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles backgroundWorker1.DoWork
' Get the BackgroundWorker object that raised this event.
Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
Dim myargs As String(,) = e.Argument
End Sub
Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles backgroundWorker1.RunWorkerCompleted
RaiseEvent IamDone(Me, "Done")
End If
End Sub
End Class
So that's basically it. I attempted to write a sub that would handle the custom event but the form class doesnt see the foo class event.
Does that make sense?
|
|
|
|
|
does that compile at all?
svanwass wrote: Private Sub IHeardThat() Handles Foo.IamDone
The IamDone event is not static/shared, how can this work?
Dim myworker As New Foo(passing)
AddHandler myworker.IamDone, AddressOf IHeardThat
does work but is not OK as the handler is added while the BGW is alrady running, so there is a race condition.
possible solutions:
1. pass the delegate to the Foo constructor, so it can add the handler on time;
2. don't start the BGW from the Foo constructor, add a method the caller should call after having set the handler.
General advice:
1. consider making Foo inherit from BGW.
2. start every VB file with "option strict on"
3. tell Visual not to launch the app as long as there are compile errors
4. tell Visual to treat all warnings as errors
(2+3+4 will be a PITA at first, but it will soon teach you to write correct code)
|
|
|
|
|
I think the best way would be using a waithandle that signals when done. If you combine the waithandles for all processes, you can use the WaitHandle.WaitAll Method.
See this MSDN article for an example
|
|
|
|
|
Save the thread class instances that you create into an array or IList<thread>. Once you have started all of your threads, you can loop through the array or list checking either the State or IsAlive property of each thread until all indicate that they are finished.
This way, you don't have to block your main thread while waiting for the other threads to finish. Your main thread can continue working and just check periodically to see if all worker threads have finished.
Kevin Rucker, Application Programmer
QSS Group, Inc.
United States Coast Guard OSC
Kevin.D.Rucker@uscg.mil
"Programming is an art form that fights back." -- Chad Hower
|
|
|
|
|
Seems like I have a lot to learn about the proper handeling of threads. Would any of you have a recommendation on the topic but in relations to c#? I dislike VB...
|
|
|
|
|
Free e-book on C# threading:
www.albahari.com/threading/threading.pdf
Kevin Rucker, Application Programmer
QSS Group, Inc.
United States Coast Guard OSC
Kevin.D.Rucker@uscg.mil
"Programming is an art form that fights back." -- Chad Hower
|
|
|
|
|
Thread for me is simply threads, and delegates. I run threads in order to crunch data. It keep the main form thread alive while crunching the info. Many times the threads have to send stuff back to the main threaded form. In order to do this without cross thread violations, we need to use delegates.
My technique for sending info into a thread, and having the thread call back is rather simple. If I need to create lets say 100 threads. I will use a thread in order to do that. The thread that creates the 100 threads will sleep, only to awake and see if all threads have died. When all threads have died, the main thread cruches and then dies. The main form thread never stalls out, and gets tickled from all sides by all threads from a delegates sub.
Here is the code I wrote to explain the most on these topics. Things to note are as follows:
Each thread can create its node without limitations.
The main thread relys on all threads being done creation. Then the assumtion is made that all thread nodes exist. This can only be true because all threads are not alive. So the main thread changes the display name of each treenode, and then dies itself.
The threads and delegates take object arrays, so you can pack them full of anything, both in and out of the thread.
The form is very much alive through the whole process. If only a form could speak, because this one is far from a deep sleep.
Cheers,
Sean P
(Sldprt[ItsAboutTime])
Imports System.Threading
Public Class Form1
Dim t1 As Thread
Dim t2 As Thread()
Dim c As Collection
Dim treeview As TreeView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tMain()
End Sub
Sub tMain()
c = New Collection
treeview = New TreeView
Me.Controls.Add(treeview)
treeview.Size = New Size(200, 400)
treeview.Location = New Point(10, 6)
treeview.Visible = True
c.Add(100, "StartData")
t1 = New Thread(AddressOf MainThreading)
t1.Start(New Object() {c})
End Sub
Sub MainThreading(ByVal args As Object)
With CType(args(0), Collection)
ReDim t2(.Item("StartData"))
Dim i As Integer
For i = 0 To UBound(t2)
.Add(i, "ThreadKey" & i)
t2(i) = New Thread(AddressOf WorkerThread)
t2(i).Start(New Object() {args(0), i})
Next
Do
Dim bol As Boolean = True
For i = 0 To UBound(t2)
If t2(i).IsAlive Then
bol = False
End If
Next
If bol Then
Exit Do
End If
Thread.Sleep(100)
Loop
Dim treenode As TreeNode
For i = 0 To .Item("StartData")
With treeview.Nodes.Item("Nod" & i)
ChangeNodes(New Object() {treeview.Nodes.Item("Nod" & i), _
.Text & _
" [" & .Name & _
" of " & .Tag & "]"})
End With
Next
End With
End Sub
Sub WorkerThread(ByVal args As Object())
Dim treenode As TreeNode = New TreeNode
Dim CollectionCount As Integer = CType(args(0), Collection).Item("StartData")
Dim Name As String = CType(args(1), String)
treenode.Name = "Nod" & Name
treenode.Text = Name
treenode.Tag = CollectionCount
AddNodes(treenode)
End Sub
Public Delegate Sub AddNode(ByRef obj As Object)
Sub AddNodes(ByRef obj As Object)
If treeview.InvokeRequired Then
Dim ad As AddNode = New AddNode(AddressOf AddNodes)
treeview.Invoke(ad, obj)
Else
treeview.BeginUpdate()
treeview.Nodes.Add(obj)
treeview.EndUpdate()
End If
End Sub
Public Delegate Sub ChangeNode(ByRef obj As Object)
Sub ChangeNodes(ByRef obj As Object)
If treeview.InvokeRequired Then
Dim ad As ChangeNode = New ChangeNode(AddressOf ChangeNodes)
treeview.Invoke(ad, obj)
Else
Dim TreeNode As TreeNode = CType(obj(0), TreeNode)
TreeNode.Text = CType(obj(1), String)
End If
End Sub
End Class
Dont turn around, cause your...
modified on Thursday, November 18, 2010 1:06 AM
|
|
|
|
|
Hi,
Can anyone guide me on how to generate a listbox from one listbox?
I have a listbox1 with items such as ( sale, buy). On listbox1_TextChanged, I want listbox2 to enlist items(Old metal iron, scrap metal iron) based on the conditions..
thanks in advance
|
|
|
|
|
What have you tried? You should be able to Clear the listbox2's Items and Add new ones according to the value of listbox1's Text.
CQ de W5ALT
Walt Fair, Jr., P. E.
Comport Computing
Specializing in Technical Engineering Software
|
|
|
|
|
waner michaud wrote:
On listbox1_TextChanged
You are using the wrong event. Its ListBox1_SelectionChanged.
Well i don't know what your program does and how do you get these:
waner michaud wrote:
items(Old metal iron, scrap metal iron)
well on the above event, use the ListBox1.SelectedItem to get the selected item in your listbox and then you use some function and pass ListBox1.SelectedItem like :dim myListofItems= getItems(ListBox1.SelectedItem)...define this function and give its return type as List and then do this:
for each myItem as String in myListOfitems
ListBox2.items.add(myItem)
end for
|
|
|
|
|
Hello,
I'm have a VB solution with 5 projects, and I'm using some third-party controls (from the same vendor) in these projects. I'm installing all of these projects to their own folder within a main folder.
Main project folder: C:\Program Files\App Suite
Project 1 - C:\Program Files\App Suite\Project 1
Project 2 - C:\Program Files\App Suite\Project 2
etc
When I compile the Windows installer, it tries to bring in the same DLL multiple times (once for each time we use it in a project).
What I want to do is install the Dlls to a 'Common Files' folder (C:\Program Files\Common Files\App Suite) and only have one copy of each DLL. I then want to have my 5 projects reference the shared DLLs from the common folder.
Does anyone know what I need to do to make this happen? What I want to avoid is having 5 copies of the same DLL. I just want to have my 5 projects reference the same DLL file.
Thanks in advance!
|
|
|
|
|
I'd start by scraping the Setup and Deployment projects and use a third party tool, such as InstallShield Express, InnoSetup, WIX, or whatever to create the installer. These tools will let you be far more flexible than the bare-bones basic Setup and Deployment project.
|
|
|
|
|
Hmm - so it sounds like there isn't a setting that would tell a project to look for DLLs in folders outside of the project hierarchy. That poses a problem. The solution is in VB.NET 2008 and I'm doing this in a government environment, so I'm subject to those constraints. We don't have InstallShield Express - just the native Windows installer options in Visual Studio 2008.
Originally, we were dropping all of the project outputs into a single folder (ex: C:\Program Files\App Suite), but the Setup project identified the same DLLs as dependencies multiple times (once for each project using the DLL). We've tried marking Exclude on the duplicates, but that seems like a workaround and not a real solution.
I'm assuming that if we did the Setup scraper, and used InstallShield Express, we'd also need to include code in each project to manually force the project to look in the Common File folder for the 'missing' DLLs.
Thanks for the help on this, Dave, et al. It is appreciated.
|
|
|
|
|
The problem with the Setup and Deployment project is that it's not really designed to support multiple projects or complex installations. I haven't used it in years, just because I needed to to more complex things in my setups, like what you're doing.
vvincent wrote: We've tried marking Exclude on the duplicates, but that seems like a workaround and not a real solution.
There's a bunch of little gotcha's in the S&D project like that.
vvincent wrote: I'm assuming that if we did the Setup scraper, and used InstallShield Express, we'd also need to include code in each project to manually force the project to look in the Common File folder for the 'missing' DLLs.
I've had to do that before. It's not very difficult at all, but you do have to put some custom code in to use the CommonFiles folder.
Basically, the AppDomain class exposes a AssemblyResolve event that can be used to manually load an assembly that fails to load because it wasn't in the normal assembly search chain. You can use then return the corrected path to where the assembly should be found. It's not much code at all.
You can play around with the example found here[^]. And there's a C# example here[^] in answer #2. It's badly formatted, but is easily cleaned up and translates directly to VB.NET.
|
|
|
|
|
Dave Kreskowiak wrote: vvincent wrote:
We've tried marking Exclude on the duplicates, but that seems like a workaround and not a real solution.
There's a bunch of little gotcha's in the S&D project like that.
That's the honest truth right there.  Hence trying to find a better solution.
So it sounds like we'd need to use the AppDomain.AssemblyResolve event in each project's form (or wherever) and tell it to look in a specific folder location for any DLL that we're using on that form. Does that sound right? I'm hoping we can set this on a global level in the application (running this during the ApplicationEvents.StartUp event, for example) instead of each form.
This gives me something to work with, even if it's not what I was hoping for. Much thanks!
Vernon L. Vincent
|
|
|
|
|
Dave's advise is very good. After you have deployed your solution, maybe you will have some problems becouse your libraries will not be in the same location as your executable files. Here[^] is what you will need to deal with this situation.
|
|
|
|
|
I have a vb .net executable that contains references to a couple vb6 .dlls which have references to a videosoft vsflexgrid7.ocx control. This project/.exe works fine on WinXP boxes. When running on a Win7 client (regardless if x86 or 64), when a child form is called from one of the .dll references, the grid is missing.
I installed a VM env. with Win7 and put VS2005 on it. If I open the .sln and run the program through VS, everything is peachy. If I close VB and attempt to run the app through with the compiled files in the debug directory, the grids no longer show up.
I created a VB6 app to call the .dlls and ran that on the same Win7 client box and the grids show up fine (meaning the referenced .dll and .ocx references are valid).
Any idea what VS is doing behind the scenes to make the grids show up vs when running the app standalone? So confused!
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
Just inquiring if anyone has any ideas to test with this? still stuck and not sure what to do.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
Hi all,
I have a vb.net application and I want to publish it to only one user for testing purpose.
What are the ways to do it?
Thanks in advance.
|
|
|
|
|
0) Really Complex way : use hardware dongles to control access. e.g. Aladdin HASP or DesKey etc.
1) Complex way : You could implement a key validation mechanism via the internet. Issue the key to the user, and then when you don't want to them to use it anymore, invalidate the key. Also, limit the activation count against the key to restrict further distribution.
2) Medium way : publish to a location that they only know, and require username and passowrd to access, wouldn't prevent further distribution once they have it.
3) simple way : work on trust and / or NDA agreements in place
4) really simple way, just give them the software and tell them not to share / is it really worth that much to go to all the hassle of #0, #1, #2 or #3
|
|
|
|
|
Thanks a lot for the reply.
Will try to use any one of the above mentioned ways.
|
|
|
|
|
Hello,
I am working on timeout web security function for my project.
I am using a web message box to display messages in web when the time elapsed.
The System.Timers.Timer function can work well at web, except the part where it calls the WebMsgBox from event.
Full coding as below :
<br />
Partial Class _Default<br />
Inherits System.Web.UI.Page<br />
Public aTimer_A As New System.Timers.Timer()<br />
<br />
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<br />
AddHandler aTimer_A.Elapsed, AddressOf OnTimedEvent<br />
aTimer_A.Interval = 5000<br />
aTimer_A.Enabled = True<br />
WebMsgBox("Page loaded - can come out")<br />
End Sub<br />
<br />
Public Sub OnTimedEvent(ByVal source As Object, ByVal e As Timers.ElapsedEventArgs)<br />
WebMsgBox("OnTimedEvent - does not come out")<br />
End Sub<br />
<br />
Public Sub WebMsgBox(ByVal sMsg As String)<br />
Try<br />
Dim sb As New StringBuilder()<br />
Dim oFormObject As System.Web.UI.Control<br />
<br />
sMsg = sMsg.Replace("'", "\'")<br />
sMsg = sMsg.Replace(Chr(34), "\" & Chr(34))<br />
sMsg = sMsg.Replace(vbCrLf, "\n")<br />
sMsg = "<script language=javascript>alert(""" & sMsg & """)</script>"<br />
sb = New StringBuilder()<br />
sb.Append(sMsg)<br />
<br />
For Each oFormObject In Me.Controls<br />
If TypeOf oFormObject Is HtmlForm Then<br />
Exit For<br />
End If<br />
Next<br />
<br />
oFormObject.Controls.AddAt(oFormObject.Controls.Count, New LiteralControl(sb.ToString()))<br />
Catch ex As Exception<br />
<br />
End Try<br />
End Sub<br />
End Class<br />
<br />
Please advise. Your guidance on solving this problem is very much appreciated.
Thanks,
Goutam
|
|
|
|
|
If understand what you want to do, it appears as though you're trying to get a messagebox to pop up on the users browser using a timer event on the server. This cannot work because the server cannot initiate a connection to the client. The message box won't show up until the browser refreshes the page and even then, with your design, I'm not sure that's going to happen even then.
|
|
|
|
|
Thank you. Your explanation clarified a lot of things.
Now, I am trying to solve the problem at client side itself, with javascript, using below sample codes:
http://stackoverflow.com/questions/572938/force-logout-users-if-users-are-inactive-for-a-certain-period-of-time
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
