admin管理员组文章数量:1534625
2023年12月16日发(作者:)
利用Visual Basic 6.0精简版编写网页
0000
浏览器方法
一、新建一个工程方法0000
0 000
1、我们制作窗体的标准大小是在是显示器分辨率1024×768的电脑上显示制作。0000
2、点击VB6.0,打开“新建工程”对话框,选择“新建”,双击“标准 EXE”即可打开一个新建工程。在显示器分辨率为1024×768状态下新建“Form1”窗口的默认实际大小为4800(宽)×3600(高)。在Form1窗体的“属性”窗口中设置实际高度(Height)为11520;宽度(Width)为15360。(15360×11520)二、更改“窗口”名称方法 0 000
0000
在打开的工程中,点击“快捷工具栏”中的“属性窗口”,在“属性窗口”中的“caption”右面输入框进行编辑窗口的名称即可。如:网络在线影视平台。0000
0 000
三、窗口菜单中 “关闭”按钮制作方法
1、在窗口是任何地方点击右键,选择“菜单编辑器”,打开“菜单编辑器”,在“标题”和“名称”分别设置为“登陆密码”和“关闭”,点击确定即可。0000
0000
2、双击“窗口”上的“关闭”,语言编辑如下:Private Sub 关闭_Click()End0000
0000
End Sub0000
0 000
四、给窗口增加背景方法
1、在“窗口”中任何地方双击鼠标左键,打开语言对话框。把下面的语句拷贝到语言编辑区中保存即可。Private Sub Form_Click()0000
0000
and SettingsAll e=LoadPicture("C:Documents
UsersDocumentsMy Pictures示例图片Blue ")’打开图片语言命令,这是单击窗口是出现背景图片的路径设置方法。0000
End Sub0000
说明:e=LoadPicture("C:Documents and SettingsAll
UsersDocumentsMy Pictures示例图片Blue ")和e=LoadPicture( & " Blue ")的区别:("C:Documents and SettingsAll UsersDocumentsMy Pictures示例图片Blue ")为绝对路径,是指定图片所在路径;( & "
Blue ")为相对路径,是指“图片”文件保存在VB6.0“工程”文件所保存的目录中。
0000
2、自动调整图片大小语言代码0000
在Form窗口中写入下面的语言代码即可。Private Sub Form_Paint()0000
0000
icture e, 0, 0, ScaleWidth, ScaleHeight
0000
End Sub
五、Form1窗口起动最大化设置方法 0 000
Form1窗口起动最大化设置“属性-Form1”窗口中选择
“Windowstate”,在“Windowstate”右边设置为“2-Maxi”(最大化的意思。)0000
0 000
六、在利用Visual Basic 6.0增加WebBrowser控件
在"部件"中找到"MICROSOFT INTERNET CONTROLS"选择,根据提示操作。1、例子0000
0000
0000
Private Sub Command1_Click()
te ("")End Sub0000
0000
0 000
七、输入地址栏制作方法
1、点“LABEL”按钮,在“Form1”窗口中建立一个Label1,在“属性”窗口中选择“captiom”中输入“地址栏”。0000
2、在“Form1”窗口中建立一个text,在“属性”窗口中选择“Text”中删除Text。0000
3、“Form1”窗口中新建一个“Command1”,双击“Command1”写入下面的命令:0000
0000
Private Sub Command1_Click()te Text1End Sub0000
0000
0 000
八、编写打开浏览器主页
选择“Form1”窗口并双击,写入下面的命令:Private Sub Form_Load()0000
0000
te "" '要去的URL00
0000
State = vbMaximized '窗体自动最大化
End Sub
Private Sub Form_Resize() '控件跟着窗体最大化0000
0000
= 00000
0000
= 00000
= - = - 80End Sub0000
0000
九、图标 0 000
如果想家图标的话,可以更改窗体的Icon属性,添加自己喜欢的.ico图标。0000
0 000
十、用一个窗口浏览网页
0 000
直接将下面的命令复制到代码器中即可。
Private Sub WebBrowser1_NewWindow2(ppDisp As Object,
Cancel As Boolean)0000
Dim frm As Form10000
Set frm = New Form10000
0000
erAsBrowser = TrueSet ppDisp = e = TrueUnload MeEnd Sub0000
0000
0000
0000
十一、当窗体大小改变时,使WebBrowser1控件大小填满整个窗口 0 000
0000
Private Sub Form_Resize()On Error Resume Next
0000
0000
= – 100
= – 450End Sub0000
0000
十二、返回按钮命令 0 000
Private Sub Command2_Click()On Error GoTo Exit SubHandle:0000
0000
0000
0000
0000
0000
MsgBox "前面没有Web页!"End Sub
0
0
0
0000 0
版权声明:本文标题:[知识]利用VisualBasic6.0精简版编写网页浏览器方法 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/xitong/1702663179a18204.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论