huhu liebe Gemeinde,
ich habe ein C# Projekt von einem externen Browserprojekt, der soweit auch prima funktioniert.
ICh habe alles in VB.NET umwandeln können, bis auf eine kleine Stelle vom C# Code:
Die einzigen Stellen, die in der VB.NET Umwandlung angekreidet werden, sind folgende Zeilen:
Die Umwandlung in VB.NET spuckt folgendes aus:
Hier werden browser.LoadingStateChanged += handler als Fehlermeldung angezeigt. Hat jemand vielleicht eine Idee, wie man das richtig formulieren kann?
Vielen Dank!
ich habe ein C# Projekt von einem externen Browserprojekt, der soweit auch prima funktioniert.
ICh habe alles in VB.NET umwandeln können, bis auf eine kleine Stelle vom C# Code:
C#-Quellcode
-
- public static Task LoadPageAsync(IWebBrowser browser, string address = null)
- {
- //If using .Net 4.6 then use TaskCreationOptions.RunContinuationsAsynchronously
- //and switch to tcs.TrySetResult below - no need for the custom extension method
- var tcs = new TaskCompletionSource<bool>();
- EventHandler<LoadingStateChangedEventArgs> handler = null;
- handler = (sender, args) =>
- {
- //Wait for while page to finish loading not just the first frame
- if (!args.IsLoading)
- {
- browser.LoadingStateChanged -= handler;
- //This is required when using a standard TaskCompletionSource
- //Extension method found in the CefSharp.Internals namespace
- tcs.TrySetResultAsync(true);
- }
- };
- browser.LoadingStateChanged += handler;
- if (!string.IsNullOrEmpty(address))
- {
- browser.Load(address);
- }
- return tcs.Task;
- }
Die einzigen Stellen, die in der VB.NET Umwandlung angekreidet werden, sind folgende Zeilen:
Die Umwandlung in VB.NET spuckt folgendes aus:
VB.NET-Quellcode
-
- Public Shared Function LoadPageAsync(browser As IWebBrowser, Optional address As String = Nothing) As Task
- Dim tcs = New TaskCompletionSource(Of Boolean)()
- Dim handler As EventHandler(Of LoadingStateChangedEventArgs) = Nothing
- handler = Function(sender, args)
- If Not args.IsLoading Then
- browser.LoadingStateChanged -= handler
- tcs.TrySetResultAsync(True)
- End If
- End Function
- browser.LoadingStateChanged += handler
- If Not String.IsNullOrEmpty(address) Then
- browser.Load(address)
- End If
- Return tcs.Task
- End Function
Hier werden browser.LoadingStateChanged += handler als Fehlermeldung angezeigt. Hat jemand vielleicht eine Idee, wie man das richtig formulieren kann?
Vielen Dank!