2024年4月11日发(作者：choice)

利用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()

End

0000

0000

End Sub

0000

0 000

四、给窗口增加背景方法

1、在“窗口”中任何地方双击鼠标左键，打开语言对话框。把

下面的语句拷贝到语言编辑区中保存即可。

Private Sub Form_Click()

0000

0000

and SettingsAll e=LoadPicture("C:Documents

UsersDocumentsMy Pictures示例图片Blue ")’打开图片语

言命令，这是单击窗口是出现背景图片的路径设置方法。

0000

End Sub

0000

说明：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

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 Sub

0000

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 Text1

End Sub

0000

0000

0 000

八、编写打开浏览器主页

选择“Form1”窗口并双击，写入下面的命令：

Private Sub Form_Load()

0000

0000

00

te "" '要去的URL

00

0000

State = vbMaximized '窗体自动最大化

End Sub

Private Sub Form_Resize() '控件跟着窗体最大化

0000

0000

= 0

0000

0000

= 0

0000

= - 0

= - 80

End Sub

0000

0000

九、图标

0 000

如果想家图标的话，可以更改窗体的Icon属性，添加自己喜欢

的.ico图标。

0000

0 000

十、用一个窗口浏览网页

0 000

直接将下面的命令复制到代码器中即可。

Private Sub WebBrowser1_NewWindow2(ppDisp As Object,

Cancel As Boolean)

0000

Dim frm As Form1

0000

Set frm = New Form1

0000

0000

erAsBrowser = True

Set ppDisp =

e = True

Unload Me

End Sub

0000

0000

0000

0000

十一、当窗体大小改变时，使WebBrowser1控件大小填满整个

窗口

0 000

0000

Private Sub Form_Resize()

On Error Resume Next

0000

0000

= – 100

= – 450

End Sub

0000

0000

十二、返回按钮命令

0 000

Private Sub Command2_Click()

On Error GoTo Handle

Exit Sub

Handle:

0000

0000

0000

0000

0000

0000

MsgBox "前面没有Web页！"

End Sub

0

0

0

0000 0