跪求哪位高人能够把VB计算机语言的编码翻译一下。

显示全部楼层 · 2011-5-19 12:49:38

OptionExplicit

PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Trip:WebBrowser1.Stop
Case1
WebBrowser1.Refresh
Case2
WebBrowser1.Gohome
Case3
‘OnErrorGoTotrip
WebBrowser1.GoBack
Case4
‘OnErrorGoTotrip
WebBrowser1.GoForward
EndSelect
EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
WebBrowser1.Navigate(Text1.Text)
EndIf
EndSub

PrivateSubWebBrowser1_BeforeNavigate2(ByValpDispAsObject,URLAsVariant,FlagsAsVariant,TargetFrameNameAsVariant,PostDataAsVariant,HeadersAsVariant,CancelAsBoolean)
Text1.Text=URL
EndSub

PrivateSubForm_Load()
WebBrowser1.GoHome
EndSub

PrivateSubWebBrowser1_StatusTextChange(ByValTextAsString)

EndSub

千问 · 2011-5-19 12:49:38

不要跪求，鄙视你。捎带帮助热心小朋友，觉得好，给我补分。
OptionExplicit‘强制显式声明模块中的所有变量

PrivateSubCommand1_Click(IndexAsInteger)’command1的点击事件，整型参数
SelectCaseIndex‘判断参数值
Case0
Trip:WebBrowser1.Stop‘0停止
Case1
WebBrowser1.Refresh’1刷新
Case2
WebBrowser1.Gohome‘2主页
Case3
‘OnErrorGoTotrip’词句被注释，否则功能为跳转到错误页
WebBrowser1.GoBack’后退
Case4
‘OnErrorGoTotrip‘同上
WebBrowser1.GoForward’前进
EndSelect
EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)‘文本框1的键盘事件
IfKeyAscii=13Then
WebBrowser1.Navigate(Text1.Text)’回车时转至文本框内文本地址（应该是一个网址--！）
EndIf
EndSub

PrivateSubWebBrowser1_BeforeNavigate2(ByValpDispAsObject,URLAsVariant,FlagsAsVariant,TargetFrameNameAsVariant,PostDataAsVariant,HeadersAsVariant,CancelAsBoolean)‘浏览器跳转前触发事件
Text1.Text=URL’设置文本框1的内容为浏览器访问的地址
EndSub

PrivateSubForm_Load()
WebBrowser1.GoHome‘窗体加载时浏览器默认为主页
EndSub

PrivateSubWebBrowser1_StatusTextChange(ByValTextAsString)‘浏览器的状态栏文本变化时触发，如鼠标移动到页面上的链接上则在状态栏上返回链接的地址.

EndSub

参考资料：<spanclass=\"gray\">人，书，电脑(能上网)</span>