Delegates confusion - Visual Basic Discussion Boards

Hi,

IMO your complex IF stuff is equivalent to:

If cad.EnfantInM1 Or cad.IsStdComponent Then
    If doc.enfant = cad.enfant Then
        WriteCreateToExcelDoc(cad, doc, exlLst)
    ElseIf doc.draw <> cad.draw Then
        WriteCreateToExcel00(cad, exlLst)
        WriteCreateToExcelND(cad, exlLst)
    EndIf
Endif

which may or may not be what you want.

Smile | :)

Luc Pattyn

Local announcement (Antwerp region): Lange Wapper? Neen!

Hi everyone,

I would like to use the DataGridView Checkbox like a normal checkbox.

When someone clicks on it I want to get a checked or changed event and be able to test if the box was checked or unchecked. I have written the following code:

Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridsearch.CurrentCellDirtyStateChanged

Dim checkboxcell As DataGridViewCheckBoxCell

Try
If (DataGridsearch.IsCurrentCellDirty) Then
DataGridsearch.CommitEdit(DataGridViewDataErrorContexts.Commit)
End If

If (checkboxcell.Value) Then
MsgBox("Display a message")
End If

Catch ex As Exception

End Try
End Sub

I think I am doing something wrong, Can someone suggest me a piece of code for this?

Thnaks.

1: please use the 'code block' tags for posting code

2:

jeshra279 wrote:
If (checkboxcell.Value) Then
MsgBox("Display a message")
End If

Let me guess here your getting a nullreferenceexeption? (object not set to intance of an object (or something like that))

You declared the checkboxcell but never assigned it to the actual cell.

Further more to make this work you will have to implement some sort of test to check if the current cell is actually a checkboxcell otherwise you'll get some weird behavior if not errors.

3: for further post please post the error that your getting.

jeshra279 wrote:
I think I am doing something wrong, Can someone suggest me a piece of code for this?

isn't exactly much to go on.

The CurrentCellDirtyStateChanged event handler manually raises the CellValueChanged event by calling the CommitEdit method.

Sub DataGridsearch_CurrentCellDirtyStateChanged( _
    ByVal sender As Object, ByVal e As EventArgs) _
    Handles DataGridsearch.CurrentCellDirtyStateChanged

    If DataGridsearch.IsCurrentCellDirty Then
        DataGridsearch.CommitEdit(DataGridViewDataErrorContexts.Commit)
    End If
End Sub

So your code goes in the CellValueChanged event:

Public Sub DataGridsearch_CellValueChanged(ByVal sender As Object, _
    ByVal e As DataGridViewCellEventArgs) _
    Handles DataGridsearch.CellValueChanged

    MsgBox("Display a message")
End Sub

I have found a good article at http://www.codeguru.com/columns/vb/article.php/c8459__2/ to build a ftp client. But I wanted to get everyone's input on what the best way of doing this in vb.net 2008.

What I am wanting to do is have 2 simple classes:
Class 1: Upload...
Class 2: Download...

All I want to pass into the class is the following:
IP Address
Port
Login
Password
Sending/Recieving File Location.

However I need the 2 classes to generate a form to show the user the stages of connection and progression of transmission.

Anyone have any insights on how I can go about this. Perhaps websites that can give me a working model to build from.
I could simply pass the command thru the command prompt but I would rather it be part of the main application and or .net framework if it is a must.

2 things:

JollyMansArt wrote:
vb.net 2008

it's .net 2 or 3 or 3.5 or...
and Visual studio 2008

(just a small remark Poke tongue | ;-P

)

JollyMansArt wrote:
Anyone have any insights on how I can go about this. Perhaps websites that can give me a working model to build from.

Depending on what you want there is a very easy way to do this:

my.Computer.network.uploadfile
my.computer.network.downloadfile

These 2 will work most of the time, besides that search the codeproject here to find more examples. There are tons of them.

JollyMansArt wrote:
What I am wanting to do is have 2 simple classes:
Class 1: Upload...
Class 2: Download...

And I want my current project to be written in 5 lines of code. It's just not going to happen. The project requirements dictates the number of classes your should use, not your wishes.

JollyMansArt wrote:
However I need the 2 classes to generate a form to show the user the stages of connection and progression of transmission.

These classes should not show forms at all. Their purpose should be limited to just what their title suggests, uploading and downloading a file. Any information that they need to report should be done through delegates, events and properties.

Why? You're developing this app with Windows Forms in mind. But, say you wanted to use those classes to write a Mobile app. The forms are completely different, so your classes would not be usable in a Mobile app.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Hello,

in my project I'm using a MDI window which holds a StatusStrip, containing Label and ProgressBar. When updating it from the BackgroundWorker of another form I get an InvalidOperationException saying (translated from German) that, before an OLE call could be processed, I'd have to set STAThread mode for the current thread.

After experimenting a lot, I'm a bit desperate... not knowing where to set STAThread mode. Does probably someone have an idea what's wrong in the following?

Here's my code:

' Call the delegate from the subform:
 Private Sub BGWFileRead_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGWFileRead.DoWork
     CollectFrames(BGWFileRead, AddressOf MDIMain.ShowProgress)                    <------ here's where the exception is thrown
 End Sub

 Private Sub CollectFrames(ByVal bgw As BackgroundWorker, ByVal Handler As ShowProgressDelegate)
     .. (other stuff) ..
     If Handler IsNot Nothing Then
         Dim ProcessMessage As String = New String(String.Format("Loading file {0} ({1} of {2})", thisFrame.FileToRead.Name, SoFar, Frames.Size))
         Handler.Invoke(CLng(Frames.Size), SoFar, thisFrame.FileToRead.Name, ProcessMessage, ExecutionTime)
     End If
 End Sub

' Main MDI form:
 Public Delegate Sub ShowProgressDelegate(ByVal Files As Long, ByVal TotalFiles As Long, ByVal filename As String, ByVal Message As String, ByVal Time As Integer)

 Public Sub ShowProgress(ByVal Total As Long, ByVal SoFar As Long, ByVal file As String, ByVal Message As String, ByVal Timespan As Integer)
     If Me.InvokeRequired Then
         Dim SPdeleg As New ShowProgressDelegate(AddressOf ShowProgress)
         Me.BeginInvoke(SPdeleg, New Object() {Total, SoFar, file, Message, Timespan})
     Else
         ' actualize StatusStrip
         Dim percent As Integer = CInt((SoFar / Total) * 100)
         Me.StatusProgressBar.Value = percent
         Me.StatusLabel.Text = Message
     End If
 End Sub

Thanks in advance for your input!

Michael

Hi,

you can set the appartment state for a thread using Thread.ApartmentState; you can do this only once per thread. You may not be able to do it for ThreadPool threads (and hence BackgroundWorkers), if so you will probably need an explicit Thread.

Smile | :)

Luc Pattyn

Local announcement (Antwerp region): Lange Wapper? Neen!

Thanks for your answer, Luc.

I've used the same pattern in another project successfully, in which the 'ShowProgress' method is located in the same form (i.e. there's no MDI parent form holding the ProgressBar). The only difference now is that the BackgroundWorker is started in a subform, trying to call the same method which is located in the MDI parents class. Do you think that's what kills my approach? I wonder if there's just an error somewhere in my code - or some rule like 'you can place this and that only in a module' which I haven't stumbled upon yet...

I am unaware of anything special to MDI, ad I don't use MDI.

If your CollectFrames method throws, give it a huge try-catch, show the full exception.ToString(), and watch the line numbers to pinpoint the problem. Chances are the problem is in "do other stuff".

Smile | :)

Luc Pattyn

Local announcement (Antwerp region): Lange Wapper? Neen!

Hello everybody,

I need some help with Parsing.
Here what I have to parse. I have to program it in VB MS Access:

'//*/Macro:911;Tests:#ADSLCustomerClass;Generates:146,147
BeginMacro911 ADSL 04 Fehlende Angaben, remplace Macro-326 cye 07.07.2003
Case_#ADSLCustomerClass
"002" : Mtext 146
"2" : Mtext 146
Else: MText 147
EndMacro911

The Real file has like 5000 more of these small texts I have to Parse...this is just 1 of the about 5000

Here what I have to do(I've done 1) and 2) of th first part , just don't know how to continue):

Description:

I need you to write a program using MS-Access which performs the following:

1) Display a “Switchboard” from which to select various functions. The switchboard will start with one button for one function called “Load Mac File”. The switchboard should be opened automatically when the access application is started.
2) Selecting Load Mac File from the switchboard should display a form where the user can browse to the “.mac” file to process.
a. The form should have a scrollable text box in which any progress or error messages are shown.
3) If the chosen .mac file can be opened:
a. Delete the contents of tblLoadableMacros
b. Read through the .mac file, parsing each macro and adding a new record about each to tblLoadableMacros

tblLoadableMacros should have the following fields:

• nID Integer, unique ID field, auto-generated
• nMacroNumber Integer, macro number. Unique value.
• sDescription Memo field. Macro description
• sTests Memo field, lists the values tested by the macro
• sGenerates Memo field, lists the macro text or values generated by the macro
• sMacro Memo field, contains the actual macro script

The attached .mac file is the file we want to parse. It is a text file, can be viewed with Notepad and contains macro script definitions. Here are two example scripts:

'//*/Macro:911;Tests:#ADSLCustomerClass;Generates:146,147
BeginMacro911 ADSL 04 Fehlende Angaben, remplace Macro-326 cye 07.07.2003
Case_#ADSLCustomerClass
"002" : Mtext 146
"2" : Mtext 146
Else: MText 147
EndMacro911

'//*/Macro:912;Tests:#ADSLCustomerClass;Generates:149,150
BeginMacro912 ADSL 01 neu Mindestvertragsdauer, remplace Macro-328 cye 07.07.2003
Case_#ADSLCustomerClass
"002" : Mtext 149
"2" : Mtext 149
Else: MText 150
EndMacro912

In the example of macro 911, your program should perform the following:

1) Read until you find a line which starts with “'//*/Macro:”. From that line of text, do the following:
a. Add a new record to tblLoadableMacros
b. Take the number after //*/Macro: and save it in the new record in nMacroNumber
c. Take the text between “Tests:” and the next semi-colon and store it in sTests. Trim white space.
d. Take the text after “Generates:” up to the end of line and store it in sGenerates. Trim white space.
2) Using the nMacroNumber parsed previously (e.g.: 911), read ahead until you find its BeginMacro line (e.g.: BeginMacro911). From THAT line, if there is any text after the BeginMacro keyword, do the following:
a. Take all text following the keyword (e.g.: BeginMacro911).
b. Remove any leading/trailing white space
c. Store the remaining text in sDescription
3) Scan all lines until you find the matching EndMacro keyword (e.g.: EndMacro912). Everything between (but not including) the BeginMacro and EndMacro lines is stored in sMacro
4) Store the new record.
5) Repeat from 1) until all macros have been read.

You’ll want to show error/progress messages as you go. Some examples:
• Parsing Macro 911…
• Stored Macro 911
• Error storing Macro 911: <error text>
• Did not find matching EndMacro911 keyword
• Warning: Macro 911 has no ‘Tests’ keyword.
• 127 Macros loaded. 5 Errors Encountered.
• Etc.

If someone could please help me I'd be so grateful, If you want to contact me through MSN Messenger (homedog6@hotmail.com) or Yahoo messenger (g_size18@yahoo.de) please ADD ME!

Hope this information helps

Regards Michael

Hi,

people on CodeProject are glad to offer advice, or help in solving a specific problem someone has with his code.

We do not just "help" by doing your work, i.e. the basic rule is: you do your work, we do ours. So do you have a specific question, instead of a project description?

Smile | :)

Luc Pattyn

Local announcement (Antwerp region): Lange Wapper? Neen!

First off all thank you for replying!
Secondly, since I'm new here I didn't know Smile | :)

Well see I just don't know how to start!
as mention I have to parse that part of text but have no idea how to start.
If you could just like give me the beginning of how top start

ahhh yeah what i forgot to write was
in the first message it shows:
I need you to program...

I didn't mean you as in YOU GUYS
it's an E-Mail from my boss and he was referring that YOU to ME Smile | :)

Hi,

you would need File.OpenText, and String.StartsWith, and String.Substring, and many more.
I would stay away from Regex as this seems simple string manipulations.
Is this your first VB.NET app? Buy and study a book then.

Smile | :)

Luc Pattyn

Local announcement (Antwerp region): Lange Wapper? Neen!

Hawkster18 wrote:
If you want to contact me through MSN Messenger (homedog6@hotmail.com) or Yahoo messenger (g_size18@yahoo.de) please ADD ME!

First, this is never going to happen. Noone cares about your email addresses unless they're a spam bot.

Second, this is simple string manipulation. You can either look for those keywords and seperation characters in the line you get from the file or use a Regular Expression to do some of the parsing. Using a RegEx is MUCH harder to do if you don't know how to do simple string manipulations though. You know those functions, Mid, Left, Right??? Start with those to see what you can do.

This reeks of either homework or paid work. If it's paid work, refund the customers money and tell them you're not qualified to do this. If it's homework, you have to write the code. Noone here is going to write it for you.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

I'm just asking for some help, since to chat online in a messenger is faster.
and I've been on yor site and haven't found what I've been looking for Frown | :(

You start by reading the file, line by line.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

I just don't know how to parse, can't you like send me an example how to parse so I atleast have a start?

I don't have any examples.

All you're doing is grabbing a section of the line and comparing it to what you're looking for, like:

If Left(lineFromFile, 9) = "Something" Then

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Hi All,

Can any one help me in how to format the command for Run method in script ?

i have tried different way in giving input for Run method but it doent work , can any one look into below code

Below code is doing a XCopy for source to destination .

Set oShell = CreateObject("WScript.Shell")

RetVal = oShell.Run("""C:\Program Files\XYZ\ABC\XCopy.exe"" ""C:\Program Files\XYZ\ABC\staging\Advance NDC\utility\vvv.txt"" ""C:\Program Files\XYZ\ABC\utility\vvv.txt"" / s / q / y", 2, True)

IT doesn work because you're putting spaces between the forward slashes and the commands.

You've got: (BTW: I hope you have XCOPY.EXE in that folder you specified!)

"...XCopy.exe" "C:\..." "C:\..." / s / q / y"

When it should be:

"...XCopy.exe" "C:\..." "C:\..." /s /q /y"

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Thanks for pointing out .

Well this is my third post resulting from this project I'm working on, which is taking me right out of my comfort zone!

I'm trying to replicate the behaviour of a server application we have which controls various display screens around the building over the network. The application itself is overly complex for our admin staff to use and I want to make my own which replicates just one small function of the original with a very simple UI. I think the networking side is fairly simple but although I'm quite experienced with vb.net I've never delved into the networking side of things before and it's a whole new scary world.

Up until now I've successfully got my version to broadcast a UDP packet with the required data, to which the display screens respond with an ICMP echo request. My server automatically replies to the echo (I didn't code that, the machine just does it). After that the client starts sending TCP packets in attempt to register itself with the server, and now that's where I'm stuck.

The client is sending a packet which apparently has no data but does have the SYN flag set to 1 and contains various 'options' (I'm getting this from a packet sniffer). When the real application receives that packet it responds with its own packet with the SYN flag as 1 and the ACK flag as 1, as well as the same options. However, because I haven't got the real application running my server machine just responds with a TCP packet with ACK=1 and RST=1, and no options.

My question is how do I code in vb.net the receipt of these packets from the client and respond with the correct flags and options? There are some good tutorials online for coding client/server communications using the Sockets class and I've got as far as I have by following these but none of them explain how to set flags and such. I suspect what I'm trying to do is at a lower level. Do I even need to manually create these packets?

I'm a bit out of my depth so any help would be very gratefully received!