谁能帮我把这一段C，转成VB.NET!

mw515 2010-03-02 06:03:23
using System;
using System.ComponentModel;
using System.Collections.Generic;
using System.Diagnostics;
using System.Text;

namespace ExtendWebBrowserSample
{
public partial class ExtendWebBrowser : System.Windows.Forms.WebBrowser
{
System.Windows.Forms.AxHost.ConnectionPointCookie cookie;
WebBrowserExtendedEvents events;

public ExtendWebBrowser()
{
InitializeComponent();
}

public ExtendWebBrowser(IContainer container)
{
container.Add(this);

InitializeComponent();
}

//This method will be called to give you a chance to create your own event sink
protected override void CreateSink()
{
//MAKE SURE TO CALL THE BASE or the normal events won't fire
base.CreateSink();
events = new WebBrowserExtendedEvents(this);
cookie = new System.Windows.Forms.AxHost.ConnectionPointCookie(this.ActiveXInstance, events, typeof(DWebBrowserEvents2));
}

protected override void DetachSink()
{
if (null != cookie)
{
cookie.Disconnect();
cookie = null;
}
base.DetachSink();
}

//This new event will fire when the page is navigating
public event EventHandler BeforeNavigate;
public event EventHandler BeforeNewWindow;

protected void OnBeforeNewWindow(string url, out bool cancel)
{
EventHandler h = BeforeNewWindow;
WebBrowserExtendedNavigatingEventArgs args = new WebBrowserExtendedNavigatingEventArgs(url, null);
if (null != h)
{
h(this, args);
}
cancel = args.Cancel;
}

protected void OnBeforeNavigate(string url, string frame, out bool cancel)
{
EventHandler h = BeforeNavigate;
WebBrowserExtendedNavigatingEventArgs args = new WebBrowserExtendedNavigatingEventArgs(url, frame);
if (null != h)
{
h(this, args);
}
//Pass the cancellation chosen back out to the events
cancel = args.Cancel;
}

//This class will capture events from the WebBrowser
class WebBrowserExtendedEvents : System.Runtime.InteropServices.StandardOleMarshalObject, DWebBrowserEvents2
{
ExtendWebBrowser _Browser;
public WebBrowserExtendedEvents(ExtendWebBrowser browser) { _Browser = browser; }

//Implement whichever events you wish
public void BeforeNavigate2(object pDisp, ref object URL, ref object flags, ref object targetFrameName, ref object postData, ref object headers, ref bool cancel)
{
_Browser.OnBeforeNavigate((string)URL, (string)targetFrameName, out cancel);
}

public void NewWindow3(object pDisp, ref bool cancel, ref object flags, ref object URLContext, ref object URL)
{
_Browser.OnBeforeNewWindow((string)URL, out cancel);
}

}

[System.Runtime.InteropServices.ComImport(), System.Runtime.InteropServices.Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"),
System.Runtime.InteropServices.InterfaceTypeAttribute(System.Runtime.InteropServices.ComInterfaceType.InterfaceIsIDispatch),
System.Runtime.InteropServices.TypeLibType(System.Runtime.InteropServices.TypeLibTypeFlags.FHidden)]
public interface DWebBrowserEvents2
{

[System.Runtime.InteropServices.DispId(250)]
void BeforeNavigate2(
[System.Runtime.InteropServices.In,
System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)] object pDisp,
[System.Runtime.InteropServices.In] ref object URL,
[System.Runtime.InteropServices.In] ref object flags,
[System.Runtime.InteropServices.In] ref object targetFrameName, [System.Runtime.InteropServices.In] ref object postData,
[System.Runtime.InteropServices.In] ref object headers,
[System.Runtime.InteropServices.In,
System.Runtime.InteropServices.Out] ref bool cancel);
[System.Runtime.InteropServices.DispId(273)]
void NewWindow3(
[System.Runtime.InteropServices.In,
System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)] object pDisp,
[System.Runtime.InteropServices.In, System.Runtime.InteropServices.Out] ref bool cancel,
[System.Runtime.InteropServices.In] ref object flags,
[System.Runtime.InteropServices.In] ref object URLContext,
[System.Runtime.InteropServices.In] ref object URL);
}
}

public class WebBrowserExtendedNavigatingEventArgs : CancelEventArgs
{
private string _Url;
public string Url
{
get { return _Url; }
}

private string _Frame;
public string Frame
{
get { return _Frame; }
}

public WebBrowserExtendedNavigatingEventArgs(string url, string frame)
: base()
{
_Url = url;
_Frame = frame;
}
}
}
...全文
294 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
Clownxz 2010-03-10
  • 打赏
  • 举报
 回复

Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text

Namespace ExtendWebBrowserSample
Partial Public Class ExtendWebBrowser
Inherits System.Windows.Forms.WebBrowser
Private cookie As System.Windows.Forms.AxHost.ConnectionPointCookie
''vb.net不区分大小写，与系统提供的相同需改名
Private events1 As WebBrowserExtendedEvents

Public Sub New()
''不需要
'InitializeComponent()
End Sub

Public Sub New(ByVal container As IContainer)
container.Add(Me)
''不需要
'InitializeComponent()
End Sub

'This method will be called to give you a chance to create your own event sink
Protected Overloads Overrides Sub CreateSink()
'MAKE SURE TO CALL THE BASE or the normal events won't fire
MyBase.CreateSink()
events1 = New WebBrowserExtendedEvents(Me)
cookie = New System.Windows.Forms.AxHost.ConnectionPointCookie(Me.ActiveXInstance, events1, GetType(DWebBrowserEvents2))
End Sub

Protected Overloads Overrides Sub DetachSink()
If cookie IsNot Nothing Then
cookie.Disconnect()
cookie = Nothing
End If
MyBase.DetachSink()
End Sub

'This new event will fire when the page is navigating
Public Event BeforeNavigate As EventHandler
Public Event BeforeNewWindow As EventHandler

Protected Sub OnBeforeNewWindow(ByVal url As String, ByRef cancel As Boolean)
Dim args As New WebBrowserExtendedNavigatingEventArgs(url, Nothing)
''直接触发事件就可以了，不能赋值的
RaiseEvent BeforeNewWindow(Me, args)
cancel = args.Cancel
End Sub

Protected Sub OnBeforeNavigate(ByVal url As String, ByVal frame As String, ByRef cancel As Boolean)
Dim args As New WebBrowserExtendedNavigatingEventArgs(url, frame)
''直接触发事件就可以了，不能赋值的

RaiseEvent BeforeNavigate(Me, args)
'Pass the cancellation chosen back out to the events
cancel = args.Cancel
End Sub

'This class will capture events from the WebBrowser
Private Class WebBrowserExtendedEvents
Inherits System.Runtime.InteropServices.StandardOleMarshalObject
Implements DWebBrowserEvents2
''因为DWebBrowserEvents2是接口，所以用Implements

Private _Browser As ExtendWebBrowser
Public Sub New(ByVal browser As ExtendWebBrowser)
_Browser = browser
End Sub

'Implement whichever events you wish
Public Sub BeforeNavigate2(ByVal pDisp As Object, ByRef URL As Object, ByRef flags As Object, ByRef targetFrameName As Object, ByRef postData As Object, ByRef headers As Object, _
ByRef cancel As Boolean) Implements DWebBrowserEvents2.BeforeNavigate2
_Browser.OnBeforeNavigate(DirectCast(URL, String), DirectCast(targetFrameName, String), cancel)
End Sub

Public Sub NewWindow3(ByVal pDisp As Object, ByRef cancel As Boolean, ByRef flags As Object, ByRef URLContext As Object, ByRef URL As Object) Implements DWebBrowserEvents2.NewWindow3
_Browser.OnBeforeNewWindow(DirectCast(URL, String), cancel)
End Sub

End Class

<System.Runtime.InteropServices.ComImport(), System.Runtime.InteropServices.Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), System.Runtime.InteropServices.InterfaceTypeAttribute(System.Runtime.InteropServices.ComInterfaceType.InterfaceIsIDispatch), System.Runtime.InteropServices.TypeLibType(System.Runtime.InteropServices.TypeLibTypeFlags.FHidden)> _
Public Interface DWebBrowserEvents2

<System.Runtime.InteropServices.DispId(250)> _
Sub BeforeNavigate2(<System.Runtime.InteropServices.In(), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)> ByVal pDisp As Object, <System.Runtime.InteropServices.In()> ByRef URL As Object, <System.Runtime.InteropServices.In()> ByRef flags As Object, <System.Runtime.InteropServices.In()> ByRef targetFrameName As Object, <System.Runtime.InteropServices.In()> ByRef postData As Object, <System.Runtime.InteropServices.In()> ByRef headers As Object, _
<System.Runtime.InteropServices.In(), System.Runtime.InteropServices.Out()> ByRef cancel As Boolean)
<System.Runtime.InteropServices.DispId(273)> _
Sub NewWindow3(<System.Runtime.InteropServices.In(), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)> ByVal pDisp As Object, <System.Runtime.InteropServices.In(), System.Runtime.InteropServices.Out()> ByRef cancel As Boolean, <System.Runtime.InteropServices.In()> ByRef flags As Object, <System.Runtime.InteropServices.In()> ByRef URLContext As Object, <System.Runtime.InteropServices.In()> ByRef URL As Object)
End Interface
End Class

Public Class WebBrowserExtendedNavigatingEventArgs
Inherits CancelEventArgs
Private _Url As String
Public ReadOnly Property Url() As String
Get
Return _Url
End Get
End Property

Private _Frame As String
Public ReadOnly Property Frame() As String
Get
Return _Frame
End Get
End Property

Public Sub New(ByVal url As String, ByVal frame As String)
MyBase.New()
_Url = url
_Frame = frame
End Sub
End Class
End Namespace
macenjie 2010-03-10
  • 打赏
  • 举报
 回复
有在线转换的工具回复内容太短了！
nmbluerain 2010-03-04
  • 打赏
  • 举报
 回复
呵呵 有在线转换的工具！D
feixuyue 2010-03-04
  • 打赏
  • 举报
 回复
算了,干脆 CType(C#,VB.NET)
xingyuebuyu 2010-03-03
  • 打赏
  • 举报
 回复
这个是指OnBeforeNavigate有多次相同的定义，不像是VS版本问题，虽然我用的是VS2005。
你重新建个工程，只拷贝我那个class，然后在Form中调用，如果不成功，在说下错误信息。
如果成功，那就是你那个工程里有多次相同的定义，你将多次出现的mark掉，如果还有问题，那将代码全贴上来看看。
mw515 2010-03-03
  • 打赏
  • 举报
 回复
在这我这里，还是不可用，我用的是VS2008。
在下面的语句中，都有错误
1. Public Sub New(ByVal container As IContainer)
2. Protected Overloads Overrides Sub CreateSink()
3. Protected Overloads Overrides Sub DetachSink()
4. Protected Sub OnBeforeNewWindow(ByVal url As String, ByRef cancel As Boolean)
5. Protected Sub OnBeforeNavigate(ByVal url As String, ByVal frame As String, ByRef cancel As Boolean)

错误提示：
Protected Sub OnBeforeNavigate(ByVal url As String, ByVal frame As String, ByRef cancel As Boolean)具有多个带有相同签名的定义
上面每一条的错误提示，都有类似的提示。
xingyuebuyu 2010-03-03
  • 打赏
  • 举报
 回复 


Imports System

Imports System.ComponentModel

Imports System.Collections.Generic

Imports System.Diagnostics

Imports System.Text



Namespace ExtendWebBrowserSample

    Partial Public Class ExtendWebBrowser

        Inherits System.Windows.Forms.WebBrowser

        Private cookie As System.Windows.Forms.AxHost.ConnectionPointCookie

        ''vb.net不区分大小写，与系统提供的相同需改名

        Private events1 As WebBrowserExtendedEvents



        Public Sub New()

            ''不需要

            'InitializeComponent()

        End Sub



        Public Sub New(ByVal container As IContainer)

            container.Add(Me)

            ''不需要

            'InitializeComponent()

        End Sub



        'This method will be called to give you a chance to create your own event sink 

        Protected Overloads Overrides Sub CreateSink()

            'MAKE SURE TO CALL THE BASE or the normal events won't fire 

            MyBase.CreateSink()

            events1 = New WebBrowserExtendedEvents(Me)

            cookie = New System.Windows.Forms.AxHost.ConnectionPointCookie(Me.ActiveXInstance, events1, GetType(DWebBrowserEvents2))

        End Sub



        Protected Overloads Overrides Sub DetachSink()

            If cookie IsNot Nothing Then

                cookie.Disconnect()

                cookie = Nothing

            End If

            MyBase.DetachSink()

        End Sub



        'This new event will fire when the page is navigating 

        Public Event BeforeNavigate As EventHandler

        Public Event BeforeNewWindow As EventHandler



        Protected Sub OnBeforeNewWindow(ByVal url As String, ByRef cancel As Boolean)

            Dim args As New WebBrowserExtendedNavigatingEventArgs(url, Nothing)

            ''直接触发事件就可以了，不能赋值的

            RaiseEvent BeforeNewWindow(Me, args)

            cancel = args.Cancel

        End Sub



        Protected Sub OnBeforeNavigate(ByVal url As String, ByVal frame As String, ByRef cancel As Boolean)

            Dim args As New WebBrowserExtendedNavigatingEventArgs(url, frame)

            ''直接触发事件就可以了，不能赋值的



            RaiseEvent BeforeNavigate(Me, args)

            'Pass the cancellation chosen back out to the events 

            cancel = args.Cancel

        End Sub



        'This class will capture events from the WebBrowser 

        Private Class WebBrowserExtendedEvents

            Inherits System.Runtime.InteropServices.StandardOleMarshalObject

            Implements DWebBrowserEvents2

            ''因为DWebBrowserEvents2是接口，所以用Implements



            Private _Browser As ExtendWebBrowser

            Public Sub New(ByVal browser As ExtendWebBrowser)

                _Browser = browser

            End Sub



            'Implement whichever events you wish 

            Public Sub BeforeNavigate2(ByVal pDisp As Object, ByRef URL As Object, ByRef flags As Object, ByRef targetFrameName As Object, ByRef postData As Object, ByRef headers As Object, _

            ByRef cancel As Boolean) Implements DWebBrowserEvents2.BeforeNavigate2

                _Browser.OnBeforeNavigate(DirectCast(URL, String), DirectCast(targetFrameName, String), cancel)

            End Sub



            Public Sub NewWindow3(ByVal pDisp As Object, ByRef cancel As Boolean, ByRef flags As Object, ByRef URLContext As Object, ByRef URL As Object) Implements DWebBrowserEvents2.NewWindow3

                _Browser.OnBeforeNewWindow(DirectCast(URL, String), cancel)

            End Sub



        End Class



        <System.Runtime.InteropServices.ComImport(), System.Runtime.InteropServices.Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), System.Runtime.InteropServices.InterfaceTypeAttribute(System.Runtime.InteropServices.ComInterfaceType.InterfaceIsIDispatch), System.Runtime.InteropServices.TypeLibType(System.Runtime.InteropServices.TypeLibTypeFlags.FHidden)> _

        Public Interface DWebBrowserEvents2



            <System.Runtime.InteropServices.DispId(250)> _

            Sub BeforeNavigate2(<System.Runtime.InteropServices.In(), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)> ByVal pDisp As Object, <System.Runtime.InteropServices.In()> ByRef URL As Object, <System.Runtime.InteropServices.In()> ByRef flags As Object, <System.Runtime.InteropServices.In()> ByRef targetFrameName As Object, <System.Runtime.InteropServices.In()> ByRef postData As Object, <System.Runtime.InteropServices.In()> ByRef headers As Object, _

            <System.Runtime.InteropServices.In(), System.Runtime.InteropServices.Out()> ByRef cancel As Boolean)

            <System.Runtime.InteropServices.DispId(273)> _

            Sub NewWindow3(<System.Runtime.InteropServices.In(), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)> ByVal pDisp As Object, <System.Runtime.InteropServices.In(), System.Runtime.InteropServices.Out()> ByRef cancel As Boolean, <System.Runtime.InteropServices.In()> ByRef flags As Object, <System.Runtime.InteropServices.In()> ByRef URLContext As Object, <System.Runtime.InteropServices.In()> ByRef URL As Object)

        End Interface

    End Class



    Public Class WebBrowserExtendedNavigatingEventArgs

        Inherits CancelEventArgs

        Private _Url As String

        Public ReadOnly Property Url() As String

            Get

                Return _Url

            End Get

        End Property



        Private _Frame As String

        Public ReadOnly Property Frame() As String

            Get

                Return _Frame

            End Get

        End Property



        Public Sub New(ByVal url As String, ByVal frame As String)

            MyBase.New()

            _Url = url

            _Frame = frame

        End Sub

    End Class

End Namespace



在Form1中调用成功了
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ww As New ExtendWebBrowserSample.ExtendWebBrowser
ww.Dock = DockStyle.Fill
ww.Navigate("www.baidu.com")
Me.Controls.Add(ww)
End Sub
mw515 2010-03-03
  • 打赏
  • 举报
 回复
我主要是想解决：WebBrowser的NewWindow事件中不能取得新Url
上面C代码的详细介绍及源码，来自于：http://www.cnblogs.com/yjwgood/archive/2009/02/09/1386789.html

我用csharp-to-vb来转，始终提示有问题，如：
1.Dim h As EventHandler = BeforeNewWindow
系统提示， Public Event BeforeNavigate As EventHandler，是事件，不能直接调用，请用RaiseEvent语句引发事件
2.Private Class WebBrowserExtendedEvents
Inherits System.Runtime.InteropServices.StandardOleMarshalObject
Inherits DWebBrowserEvents2
系统提示：nherits只能在Class语句中出现一次，并且只能指定一个类。

但上面的C源代码，没有问题，可以直接执行，就是转换后，就提示错误！
tjficcbw 2010-03-03
  • 打赏
  • 举报
 回复
要什么功能直接写吧，这样二边的人全看不明白，
vapor_55 2010-03-03
  • 打赏
  • 举报
 回复
太牛了，一定要好好学习。
a124819202 2010-03-03
  • 打赏
  • 举报
 回复
转吧 靠··· 我也在转 不过是asp转asp.net
ouzui 2010-03-03
  • 打赏
  • 举报
 回复
都好牛XX啊。。。学习，路过~
xray2005 2010-03-02
  • 打赏
  • 举报
 回复
可惜，不会VB.nET
xingyuebuyu 2010-03-02
  • 打赏
  • 举报
 回复
有没有完整的代码 包括调用这个类的
实在不行就将这个类在C#中编译为DLL,然后在添加引用,最后直接调用就可以了
mw515 2010-03-02
  • 打赏
  • 举报
 回复
还是不能用！
我用csharp-to-vb来转，也不能用，真是头痛！
tjficcbw 2010-03-02
  • 打赏
  • 举报
 回复 
Imports System 

Imports System.ComponentModel 

Imports System.Collections.Generic 

Imports System.Diagnostics 

Imports System.Text 



Namespace ExtendWebBrowserSample 

    Public Partial Class ExtendWebBrowser 

        Inherits System.Windows.Forms.WebBrowser 

        Private cookie As System.Windows.Forms.AxHost.ConnectionPointCookie 

        Private events As WebBrowserExtendedEvents 

        

        Public Sub New() 

            InitializeComponent() 

        End Sub 

        

        Public Sub New(ByVal container As IContainer) 

            container.Add(Me) 

            

            InitializeComponent() 

        End Sub 

        

        'This method will be called to give you a chance to create your own event sink 

        Protected Overloads Overrides Sub CreateSink() 

            'MAKE SURE TO CALL THE BASE or the normal events won't fire 

            MyBase.CreateSink() 

            events = New WebBrowserExtendedEvents(Me) 

            cookie = New System.Windows.Forms.AxHost.ConnectionPointCookie(Me.ActiveXInstance, events, GetType(DWebBrowserEvents2)) 

        End Sub 

        

        Protected Overloads Overrides Sub DetachSink() 

            If cookie IsNot Nothing Then 

                cookie.Disconnect() 

                cookie = Nothing 

            End If 

            MyBase.DetachSink() 

        End Sub 

        

        'This new event will fire when the page is navigating 

        Public Event BeforeNavigate As EventHandler 

        Public Event BeforeNewWindow As EventHandler 

        

        Protected Sub OnBeforeNewWindow(ByVal url As String, ByRef cancel As Boolean) 

            Dim h As EventHandler = BeforeNewWindow 

            Dim args As New WebBrowserExtendedNavigatingEventArgs(url, Nothing) 

            RaiseEvent h(Me, args) 

            cancel = args.Cancel 

        End Sub 

        

        Protected Sub OnBeforeNavigate(ByVal url As String, ByVal frame As String, ByRef cancel As Boolean) 

            Dim h As EventHandler = BeforeNavigate 

            Dim args As New WebBrowserExtendedNavigatingEventArgs(url, frame) 

            RaiseEvent h(Me, args) 

            'Pass the cancellation chosen back out to the events 

            cancel = args.Cancel 

        End Sub 

        

        'This class will capture events from the WebBrowser 

        Private Class WebBrowserExtendedEvents 

            Inherits System.Runtime.InteropServices.StandardOleMarshalObject 

            Inherits DWebBrowserEvents2 

            Private _Browser As ExtendWebBrowser 

            Public Sub New(ByVal browser As ExtendWebBrowser) 

                _Browser = browser 

            End Sub 

            

            'Implement whichever events you wish 

            Public Sub BeforeNavigate2(ByVal pDisp As Object, ByRef URL As Object, ByRef flags As Object, ByRef targetFrameName As Object, ByRef postData As Object, ByRef headers As Object, _ 

            ByRef cancel As Boolean) 

                _Browser.OnBeforeNavigate(DirectCast(URL, String), DirectCast(targetFrameName, String), cancel) 

            End Sub 

            

            Public Sub NewWindow3(ByVal pDisp As Object, ByRef cancel As Boolean, ByRef flags As Object, ByRef URLContext As Object, ByRef URL As Object) 

                _Browser.OnBeforeNewWindow(DirectCast(URL, String), cancel) 

            End Sub 

            

        End Class 

        

        <System.Runtime.InteropServices.ComImport(), System.Runtime.InteropServices.Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), System.Runtime.InteropServices.InterfaceTypeAttribute(System.Runtime.InteropServices.ComInterfaceType.InterfaceIsIDispatch), System.Runtime.InteropServices.TypeLibType(System.Runtime.InteropServices.TypeLibTypeFlags.FHidden)> _ 

        Public Interface DWebBrowserEvents2 

            

            <System.Runtime.InteropServices.DispId(250)> _ 

            Sub BeforeNavigate2(<System.Runtime.InteropServices.In(), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)> ByVal pDisp As Object, <System.Runtime.InteropServices.In()> ByRef URL As Object, <System.Runtime.InteropServices.In()> ByRef flags As Object, <System.Runtime.InteropServices.In()> ByRef targetFrameName As Object, <System.Runtime.InteropServices.In()> ByRef postData As Object, <System.Runtime.InteropServices.In()> ByRef headers As Object, _ 

            <System.Runtime.InteropServices.In(), System.Runtime.InteropServices.Out()> ByRef cancel As Boolean) 

            <System.Runtime.InteropServices.DispId(273)> _ 

            Sub NewWindow3(<System.Runtime.InteropServices.In(), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.IDispatch)> ByVal pDisp As Object, <System.Runtime.InteropServices.In(), System.Runtime.InteropServices.Out()> ByRef cancel As Boolean, <System.Runtime.InteropServices.In()> ByRef flags As Object, <System.Runtime.InteropServices.In()> ByRef URLContext As Object, <System.Runtime.InteropServices.In()> ByRef URL As Object) 

        End Interface 

    End Class 

    

    Public Class WebBrowserExtendedNavigatingEventArgs 

        Inherits CancelEventArgs 

        Private _Url As String 

        Public ReadOnly Property Url() As String 

            Get 

                Return _Url 

            End Get 

        End Property 

        

        Private _Frame As String 

        Public ReadOnly Property Frame() As String 

            Get 

                Return _Frame 

            End Get 

        End Property 

        

        Public Sub New(ByVal url As String, ByVal frame As String) 

            MyBase.New() 

            _Url = url 

            _Frame = frame 

        End Sub 

    End Class 

End Namespace
红衣老大 2010-03-02
  • 打赏
  • 举报
 回复
hehe

你也在做这个了哦

ExtendWebBrowser

我转了 2年
基于VB.net 的酒店管理系统-毕业论文
该程序包含三套程序，一套WebServices作为前段连接后台服务，一套是简便用来测试的网络预订功能的B/S程序，一套是C/S酒店管理的程序。 里面的功能还有很多不完善，但主要偏向于 B/S 与C/S 结合的描述。另外我还上传了文档。需要的来下载来参考。用 vs2005
数据库课程设计-KTV点歌系统（VB.net 窗体，MySQL5.5）
通过MySQL、VS2019中的VB.net进行C/S软件架构最后完成课设。课设90+，在第一部分，介绍KTV点歌系统的设计背景、设计意义和设计内容。第二部分是本报告的重点，基于KTV点歌系统，对数据库设计的5个阶段，即需求分析、概念模式设计、逻辑模式设计、数据库实施、数据库运行与维护。
用VB.NET开发交互式CAD系统
用VB.NET开发交互式CAD系统，包括结合GDI+和OPENGL两种方案。 联系平台客服可开发票。
AutoCAD .net开发人员手册中文版
AutoCAD .net开发人员手册中文版 文档介绍： 当前版本为20101128版，为第一个CHM版本，如需更新版本，请及时关注http://www.01vb.com，也可以查看CHM文件中的前言部分的版本通知。 因本版本制作仓促，还有如下不完善的内容。 1、还有一章内容没有翻译完成； 2、目录部分和索引部分还是英文版本，但具体页面中全部是中英文对照（有些在提示中有些在翻译上面）。 本《AutoCAD .NET 开发人员手册》由01VB编程站翻译并提供，版权所有，原英文版本版权归原版权所有者所有。本手册为免费版本，可在网上随意发送，但必须注明出处(01VB编程站及网站链接http://www.01vb.com)及翻译者。 序言 自从 AutoCAD 支持使用 .NET 开发以来，所有关于 .NET 的官方开发资料全部是英文版本，给国内开发者的学习带来了一定的阻碍，为了给广大 .NET 爱好者提供更多方便，于是决定翻译一部分资料。 因本人英文水平及CAD二次开发水平有限，翻译的资料中也许有表达不清楚的地方，请大家谅解，也可以在资料底部找到留言的链接，给我留言或直接点击QQ联系我。 01VB编程站是一个非营利性的网站，但是，网站要生存，必须有经济来源。因此，本人在本手册中的投放了广告，但是，广告都是在正文内容的底部，不影响阅读。原则上我不鼓励大家点击上面的广告，除非真的对广告内容感兴趣。因广告给您带来的不便，还望谅解。 最近一段时间，老婆一直生病，始终没有痊愈，在此，我希望老婆能快点儿好起来， 并想对她说一句：老婆，别哭，好好养病，病痛在你身，也疼在我心。你累了，我会背你；钱花光了，我会去挣，身体是第一位的。如果你也想给我老婆送上祝福，请留言，谢谢！(2010.11.24) 翻译历史 2010年8月中旬 开始，期间由于本人生病，中断了几天，还有部分内容没有翻译完成，仍然在翻译中。 11.6 更新《图层状态管理器的使用》部分。 11.07 更新《文字样式》部分 11.08 更新完《创建和编辑AutoCAD图元》这章。 11.11 更新 《标注的概念》 部分 11.12 更新《创建标注》部分 11.15 更新完 《创建引线和注释》 部分 11.20 更新完《形位公差》 部分 11.24 更新到 《在三维空间中编辑 》 11.28 修正手册中的脚本错误，进行CHM格式文档的制作并在01VB编程站首发。 感谢 《AutoCAD .NET 开发人员手册》的翻译过程得到 明经通道 网站 "明经 AutoCAD.NetApi 群"中许多网友的帮助，像 MCCAD、雪山飞狐、Still等等，另外还有其它人记不清楚了，因为太多太多，总之两个字，谢谢。 版权 本开发人员手册版权属01VB编程站网站所有。 翻译者：黄明新（平凡）
opcuanet-samples:C＃，VB.NET和C ++ CLI的示例项目可指导开发人员使用我们的OPC UA .NET SDK
OPC UA .NET SDK示例 在这里，您将找到C＃，VB.NET和C ++ / CLI的示例项目，以指导使用我们的OPC UA .NET SDK的OPC UA客户端和服务器应用程序的开发人员。 每个样本均按原样提供，而对准确性和正确性没有任何保证，尤其是在生产环境中。 软件开发工具包 该存储库中提供的所有示例/项目都依赖于我们的OPC UA SDK之一： 客户端的OPC UA .NET SDK（Opc.UaFx.Client） 适用于客户端和服务器的OPC UA .NET SDK（Opc.UaFx.Advanced） 用法 样本被实现为在绝对最小数量的依赖项下（每个样本/项目）完全没有头地使用它们。 我们希望鼓励您复制并使用它们，以便相应地满足您的需求而没有任何限制。 为此，您可以选择以下方法之一。 复制粘贴 您可以只浏览示例，然后将所需的代码段复制到自己的。 一旦您的高峰满足了您
VB

16,554

社区成员

110,527

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章