利用Visual Basic 6.0精简版编写网页
浏览器方法
一、新建一个工程方法
1、我们制作窗体的标准大小是在是显示器分辨率1024×768的电脑上显示制作。
2、点击VB6.0，打开“新建工程”对话框，选择“新建”，双击“标准 EXE”即可打开一个新建工程。在显示器分辨率为1024×768状态下新建“Form1”窗口的默认实际大小为4800（宽）×3600（高）。在Form1窗体的“属性”窗口中设置实际高度（Height）为11520；宽度（Width）为15360。（15360×11520）
二、更改“窗口”名称方法
在打开的工程中，点击“快捷工具栏”中的“属性窗口”，在“属性窗口”中的“caption”右面输入框进行编辑窗口的名称即可。如：网络在线影视平台。
三、窗口菜单中 “关闭”按钮制作方法
1、在窗口是任何地方点击右键，选择“菜单编辑器”，打开“菜单编辑器”，在“标题”和“名称”分别设置为“登陆密码”和“关闭”，点击确定即可。
2、双击“窗口”上的“关闭”，语言编辑如下： Private Sub 关闭_Click() End End Sub
1
四、给窗口增加背景方法
1、在“窗口”中任何地方双击鼠标左键，打开语言对话框。把下面的语句拷贝到语言编辑区中保存即可。
Private Sub Form_Click()
Form1.Picture=LoadPicture(\
and
Settings\\All
Users\\Documents\\My Pictures\\示例图片\\Blue hills.jpg\’打开图片语言命令，这是单击窗口是出现背景图片的路径设置方法。
End Sub
说明：Form1.Picture=LoadPicture(\Users\\Documents\\My Pictures\\示例图片\\Blue hills.jpg\和Form1.Picture=LoadPicture(App.Path & \\\Blue hills.jpg\的区别：(\示例图片\\Blue hills.jpg\为绝对路径，是指定图片所在路径；(App.Path & \\\Blue hills.jpg\为相对路径，是指“图片”文件保存在VB6.0“工程”文件所保存的目录中。
2、自动调整图片大小语言代码
在Form窗口中写入下面的语言代码即可。 Private Sub Form_Paint()
Me.PaintPicture Me.Picture, 0, 0, ScaleWidth, ScaleHeight End Sub
五、Form1窗口起动最大化设置方法
Form1窗口起动最大化设置“属性－Form1”窗口中选择 “Windowstate”，在“Windowstate”右边设置为“2－Maxi”（最大
2
化的意思。）
六、在利用Visual Basic 6.0增加WebBrowser控件 在\部件\中找到\选择，根据提示操作。
1、例子
Private Sub Command1_Click()
WebBrowser1.Navigate (\End Sub
七、输入地址栏制作方法
1、点“LABEL”按钮，在“Form1”窗口中建立一个Label1，在“属性”?窗口中选择“captiom”中输入“地址栏”。
2、在“Form1”窗口中建立一个text，在“属性”?窗口中选择“Text”中删除Text。
3、“Form1”窗口中新建一个“Command1”，双击“Command1”写入下面的命令：?
Private Sub Command1_Click() WebBrowser1.Navigate Text1 End Sub
八、编写打开浏览器主页
选择“Form1”窗口并双击，写入下面的命令： Private Sub Form_Load()
WebBrowser1.Navigate \要去的URL Me.WindowState = vbMaximized '窗体自动最大化
3
End Sub
Private Sub Form_Resize() '控件跟着窗体最大化 WebBrowser1.Top = 0 WebBrowser1.Left = 0
WebBrowser1.Height = Me.Height - 0 WebBrowser1.Width = Me.Width - 80 End Sub 九、图标
如果想家图标的话，可以更改窗体的Icon属性，添加自己喜欢的.ico图标。
十、用一个窗口浏览网页
直接将下面的命令复制到代码器中即可。
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1 Set frm = New Form1
frm.WebBrowser1.RegisterAsBrowser = True Set ppDisp = frm.WebBrowser1.Object frm.Visible = True Unload Me End Sub
4
十一、当窗体大小改变时，使WebBrowser1控件大小填满整个窗口
Private Sub Form_Resize() On Error Resume Next
WebBrowser1.Width = Me.Width – 100 WebBrowser1.Height = Me.Height – 450 End Sub
十二、返回按钮命令
Private Sub Command2_Click() On Error GoTo Handle WebBrowser1.GoBack Exit Sub Handle:
MsgBox \前面没有Web页！\End Sub
5