大家帮我把段vb代码转换成c#或vb.net

2006-11-16 09:51:15 204 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

将VB.NET网站转换成C#的全过程在学习URL重写过程中碰到个是VB写的源码，看起来总是不爽的就GOOLE了下感觉这个文章写的不错原文地址 http://www.cnblogs.com/cngunner/archive/2006/01/16/318309.html前两天看到一个比较不错的网站，可惜是用vb.net写的，俺弄不大明白，于是心血来潮想把它全部转换成C#代码的。花了N长时间，问了几多人，费了不少神，总算是能让网阅读详情

1.form1

Option Explicit

Public Sub Some_Procedure()
MsgBox "你点击了按钮."
End Sub

Function ContentMenu() As Boolean
'PopupMenu a
ContentMenu = False
End Function

Private Sub Form_Load()
'下载空页面
WebBrowser2.Navigate2 "about:blank"
End Sub

Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)

'建立事件响应类
Dim cfForward As clsForward

'定义在浏览器中显示的HTML代码，其中包含一个按钮btnMyButton
Dim sHTML As String
sHTML = "<P>This is some text.</P>"
sHTML = sHTML & "<P>And here is a button.</P>"
sHTML = sHTML & "<BUTTON ID=btnMyButton>"
sHTML = sHTML & "Click this button.</BUTTON>"

'将HTML代码写入浏览器
WebBrowser2.Document.body.innerHTML = sHTML

'将事件响应类连接到页面的按钮btnMyButton上
Set cfForward = New clsForward
cfForward.Set_Destination Me, "Some_Procedure"
WebBrowser2.Document.All("btnMyButton").onclick = cfForward

'屏蔽上下文菜单
Dim cContentMenu As New clsForward
cContentMenu.Set_Destination Me, "ContentMenu"
WebBrowser2.Document.body.oncontextmenu = cContentMenu
End Sub

2.clsForward

Option Explicit

Dim oObject As Object
Dim sMethod As String
Dim bInstantiated As Boolean

Private Sub Class_Initialize()

bInstantiated = False

End Sub

Public Sub Set_Destination(oInObject As Object, sInMethod As String)

Set oObject = oInObject
sMethod = sInMethod
bInstantiated = True

End Sub

Public Sub My_Default_Method()

If bInstantiated Then
CallByName oObject, sMethod, VbMethod
End If

End Sub

...全文