Visual Basic

Re: C# to VB Adaption Problem

1-Jan-12 13:14

You misunderstood me. All the extension methods, which contain the C# 'yield' operator, are in a separate DLL. My application is in VB so I have to call the extensions from VB using adapted code... and the sample code (pls. see link in the initial message) is in C# where the Lambdas work.

Eddy Vluggen2-Jan-12 6:34

Eddy Vluggen

2-Jan-12 6:34

Cool - I never missed the statement in VB, until this question popped up Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

Re: C# to VB Adaption Problem

Terence Wallace3-Jan-12 7:32

Terence Wallace

3-Jan-12 7:32

Hey just wanted to say thanks Luc that link got me to several other links on the subject and could prove quite useful to me in the very near future. Thanks again.

This is now supported in VS 2010 SP1, with the Async CTP, see:
http://msdn.microsoft.com/en-us/vstudio/gg497937[^]

Also see:
http://www.microsoft.com/downloads/en/details.aspx?FamilyID=4738205d-5682-47bf-b62e-641f6441735b&displaylang=en[^]

"If you think it's expensive to hire a professional to do the job, wait until you hire an amateur." - Red Adair

Re: C# to VB Adaption Problem with Lambda Expressions

Simon_Whale2-Jan-12 12:33

Simon_Whale

2-Jan-12 12:33

VB2010 has introduced sub(parameter) into the lambda specification. I haven't tested it but wouldn't the following work?

items.WithProgressReporting(sub(progress) worker.ReportProgress(progress) end sub).forEach(function(item) thread.Sleep(10)))

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: C# to VB Adaption Problem with Lambda Expressions

Sonhospa9-Jan-12 23:09

Re: C# to VB Adaption Problem with Lambda Expressions

9-Jan-12 23:09

Hi Simon,

sorry for the late response which was due to a short holiday of mine. Thanks for your hint which pushed me in the right direction: In the end, all I had to do was change "function" into "sub" in VB. It's finally solved now, and the line

items.WithProgressReporting(Sub(progress) worker.ReportProgress(progress)).ForEach(Sub(item) Thread.Sleep(10))

works, as well as Estys suggestion to factor out the subs. No "end" needed here.

Regards - Mick

Simon_Whale9-Jan-12 23:12

Simon_Whale

9-Jan-12 23:12

Glad it helped Thumbs Up | :thumbsup:

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: C# to VB Adaption Problem with Lambda Expressions

Member 78595873-Jan-12 2:58

Member 7859587

3-Jan-12 2:58

Try changing this line:

items.WithProgressReporting(Function(progress)
worker.ReportProgress(progress)).ForEach(Function(item) Thread.Sleep(10)) ' simulate some real work

To this:

items.WithProgressReporting(Function(progress) _
worker.ReportProgress(progress)).ToList.ForEach(Function(item) Thread.Sleep(10)) ' simulate some real work

The .ForEach extension method doesn't work with IEnumerables and since that's what WithProgressReporting returns, the resultset must first be cast as a Generic List. Also, I don't know for sure, but it looks like the converter inserted an extra line break. That's why I added the underscore to the end of the first line.

modified 3-Jan-12 19:59pm.

Re: C# to VB Adaption Problem with Lambda Expressions

Sonhospa9-Jan-12 23:15

Re: C# to VB Adaption Problem with Lambda Expressions

9-Jan-12 23:15

Hi Member... Wink | ;)

,

sorry for the late response which was due to a short holiday of mine. Thanks for your hint which unfortunately didn't work: In the end, all I had to do was change "function" into "sub" in VB. It's finally solved now, and the line

items.WithProgressReporting(Sub(progress) worker.ReportProgress(progress)).ForEach(Sub(item) Thread.Sleep(10))

works, as well as Estys suggestion to factor out the subs (no "end" or "ToList" constructions needed).

Regards - Mick

Estys3-Jan-12 4:03

Estys

3-Jan-12 4:03

I always have trouble with anonymous delegates in VB so I factored them out :

Class Program
    Shared worker As BackgroundWorker
    Public Shared Sub Main() 'ByVal args As String())
        worker = New BackgroundWorker()
        worker.WorkerReportsProgress = True
        AddHandler worker.DoWork, AddressOf DoWork
        AddHandler worker.ProgressChanged, AddressOf ProgressChanged
        worker.RunWorkerAsync()
        Console.Read()
    End Sub

    Private Shared Sub DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
        Dim items = Enumerable.Range(1, 1000)
        items.WithProgressReporting(AddressOf ReportProgress).ForEach(AddressOf DoSleep)
    End Sub
    Private Shared Sub ReportProgress(ByVal progress As Integer)
        worker.ReportProgress(progress)
    End Sub
    Private Shared Sub DoSleep(ByVal item As Integer)
        Thread.Sleep(10)
    End Sub
    Private Shared Sub ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs)
        Console.SetCursorPosition(1, 0)
        Console.Write(e.ProgressPercentage)
    End Sub
End Class

Cheers

Re: C# to VB Adaption Problem with Lambda Expressions

Sonhospa9-Jan-12 23:19

Re: C# to VB Adaption Problem with Lambda Expressions

9-Jan-12 23:19

Hi Estys,

sorry for the late response which was due to a short holiday of mine. Thanks for your hint which, together with the other guys' ideas, pushed me in the right direction: In the end, all I had to do was change "function" into "sub" in VB. It's finally solved now, and the line

items.WithProgressReporting(Sub(progress) worker.ReportProgress(progress)).ForEach(Sub(item) Thread.Sleep(10))

works, as well as your suggestion to factor out the subs. Just to complete: In your snippet I had to change the definition of 'items' to:

Dim items As IEnumerable(Of Integer) = Enumerable.Range(1, 1000)

in VB. But the most important thing: It works - and I hope I understand it a little better Wink | ;)

Thanks again,
regards - Mick

Estys9-Jan-12 23:50

Estys

9-Jan-12 23:50

Michael Schäuble wrote:
I had to change the definition of 'items'

That's odd, with me it worked as I posted it.
I'm on .NET 3.5, VB Express 2008

Cheers

_{If you can read this, you don't have Papyrus installed}

Re: C# to VB Adaption Problem with Lambda Expressions

DavidSherwood3-Jan-12 16:56

DavidSherwood

3-Jan-12 16:56

In VB, a function that returns void is a "Sub". This is true with lambda function as well. So your ForEach lambda should be

ForEach(Sub(item) Thread.Sleep(10))

Re: C# to VB Adaption Problem with Lambda Expressions

Simon_Whale3-Jan-12 21:51

Simon_Whale

3-Jan-12 21:51

Only true with 2010 though, as there is many time I would loved to of used it in my current project that is 3.5 framework

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: C# to VB Adaption Problem with Lambda Expressions

Sonhospa9-Jan-12 23:22

How to add Excise in forms of my project is Inventnagemegment system ory Ma

9-Jan-12 23:22

Hi David,

sorry for the late response which was due to a short holiday of mine. Thanks for your hint which pushed me in the right direction: In the end, all I had to do was simply change "function" into "sub" in VB. It's finally solved now, and the line

items.WithProgressReporting(Sub(progress) worker.ReportProgress(progress)).ForEach(Sub(item) Thread.Sleep(10))

works, as well as Estys suggestion to factor out the subs (slightly changed).

Thanks again,
regards - Mick

kathiriya31-Dec-11 19:16

kathiriya

31-Dec-11 19:16

i create purchase and sales tables forms also a create
Excise from how to add purchase from sales from

Excise

Description: Details about Excise

FieldName Datatype Constraints Description
Exciseid Numeric(4) PK Excise id number
Purchaseid Numeric(4) PK, FK ID of purchase
Salesid Numeric(4) PK, FK ID od sales
Excisecode Numeric(4) Enter the Excise code
ExciseDate Datetime Datetime of excise

ple rpy me.

How to add Excise in forms of my project is Inventnagemant ory Ma

kathiriya31-Dec-11 19:13

kathiriya

31-Dec-11 19:13

Excise

Description: Details about Excise

FieldName Datatype Constraints Description
Exciseid Numeric(4) PK Excise id number
Purchaseid Numeric(4) PK, FK ID of purchase
Salesid Numeric(4) PK, FK ID od sales
Excisecode Numeric(4) Enter the Excise code
ExciseDate Datetime Datetime of excise

Update BrowserFlags and EditFlags value in Window7 registry

Nitin Varshneya29-Dec-11 3:44

Re: Update BrowserFlags and EditFlags value in Window7 registry

29-Dec-11 3:44

My application is in VB6 and environment is Window XP. We are using WebBrowser control to display data of Word doc files i.e. we are opening word files always inside the WebBrowser control and then modifying word file using macros.Our application send email to user with body as word files i.e we paste word file data into email body part.Our VB code is perfectly working with office 2003 and office 2010.We are doing following changes in window registry via VB6 code for temporary basis:
1)..HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.8\

updating BrowserFlags value to H80000024
2)..HKEY_CLASSES_ROOT\Word.Document.8\

updating EditFlags value to 65536
3)..HKEY_CLASSES_ROOT\Word.Template.8\

updating EditFlags value to 65536
4)..HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.12\

updating BrowserFlags value to H80000024
5)..HKEY_CLASSES_ROOT\Word.Document.12\

updating EditFlags value to 65536
6)..HKEY_CLASSES_ROOT\Word.Template.12\

updating EditFlags value to 65536

Now we are migrating environment from WinXP to Win7. I have following query for Win7 environment :
1) Will we able to do registry changes using VB6 code on the all same path as mentioned above ?
2)Will Word doc files always open inside webBrowser control ?
3)Do we require additional registry changes for BrowserFlags and EditFlags via VB6 code ?
4)Please suggest us what else we have to do for registry changes and to send email ?

I have one more query .If Win7 support team does not give us rights to change registry then without changing values of BrowserFlags and EditFlags , how word docs files will open inside webBrowser control of VB6 ?

Dave Kreskowiak29-Dec-11 4:08

Re: Update BrowserFlags and EditFlags value in Window7 registry

29-Dec-11 4:08

Your uses will not be able to modify anything under LOCAL_MACHINE or CLASSES_ROOT, so your questions are irrelevant.

You don't need a webbrowser control to open/edit/print Word documents. I suggest you Google for "VB6 Office Interop".

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Nitin Varshneya29-Dec-11 4:14

Re: Update BrowserFlags and EditFlags value in Window7 registry

29-Dec-11 4:14

Will I able to open & modify word doc using VB6 Office Interop ?

Dave Kreskowiak29-Dec-11 5:00

Re: Update BrowserFlags and EditFlags value in Window7 registry

29-Dec-11 5:00

What did I tell you to do?? Google it and find out. You might want to try "VB6 eidt Word document".

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Luc Pattyn29-Dec-11 5:41

Luc Pattyn

29-Dec-11 5:41

Fortunately Google seems to know you're occasionally a tad dyslexic. Big Grin | :-D

Luc Pattyn [My Articles] Nil Volentibus Arduum

Re: Update BrowserFlags and EditFlags value in Window7 registry

Dave Kreskowiak29-Dec-11 6:57

Re: Update BrowserFlags and EditFlags value in Window7 registry

29-Dec-11 6:57

My fingers are dyslexic. My mind is so frustrated with their inability to type. So much so, it's thinking of outsourcing the typing.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Nitin Varshneya30-Dec-11 2:23

Re: Update BrowserFlags and EditFlags value in Window7 registry

30-Dec-11 2:23

we can edit word doc by VB6 Office Interop but I am not able to find control in VB6 to view and edit word doc except webBrowser control.Please help me to find solution.

Dave Kreskowiak30-Dec-11 9:10

Re: Update BrowserFlags and EditFlags value in Window7 registry

30-Dec-11 9:10

That's because there is no control. You can show Word on your form. You just have to do a little research to find out how. I already told you what to Google for. You just have to read the results to find it.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Nitin Varshneya3-Jan-12 0:51