利用visual basic 6.0精简版编写网页浏览器方法

《利用visual basic 6.0精简版编写网页浏览器方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、利用VisualBasic6.0精简版编写网页浏览器方法一、新建一个工程方法1、我们制作窗体的标准大小是在是显示器分辨率1024×768的电脑上显示制作。2、点击VB6.0，打开“新建工程”对话框，选择“新建”，双击“标准　EXE”即可打开一个新建工程。在显示器分辨率为1024×768状态下新建“Form1”窗口的默认实际大小为4800（宽）×3600（高）。在Form1窗体的“属性”窗口中设置实际高度（Height）为11520；宽度（Width）为15360。（15360×11520）二、更改“窗口”名称方法在打

2、开的工程中，点击“快捷工具栏”中的“属性窗口”，在“属性窗口”中的“caption”右面输入框进行编辑窗口的名称即可。如：网络在线影视平台。三、窗口菜单中“关闭”按钮制作方法1、在窗口是任何地方点击右键，选择“菜单编辑器”，打开“菜单编辑器”，在“标题”和“名称”分别设置为“登陆密码”和“关闭”，点击确定即可。2、双击“窗口”上的“关闭”，语言编辑如下：PrivateSub关闭_Click()EndEndSub5四、给窗口增加背景方法1、在“窗口”中任何地方双击鼠标左键，打开语言对话框。把下面的语句拷贝到语言编辑区中

3、保存即可。PrivateSubForm_Click()Form1.Picture=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPictures示例图片Bluehills.jpg")’打开图片语言命令，这是单击窗口是出现背景图片的路径设置方法。EndSub说明：Form1.Picture=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPictures示例图片Bluehil

4、ls.jpg")和Form1.Picture=LoadPicture(App.Path&"Bluehills.jpg")的区别：("C:DocumentsandSettingsAllUsersDocumentsMyPictures示例图片Bluehills.jpg")为绝对路径，是指定图片所在路径；(App.Path&"Bluehills.jpg")为相对路径，是指“图片”文件保存在VB6.0“工程”文件所保存的目录中。2、自动调整图片大小语言代码在Form窗口中写入下面的语言代码即可。Private

5、SubForm_Paint()Me.PaintPictureMe.Picture,0,0,ScaleWidth,ScaleHeightEndSub五、Form1窗口起动最大化设置方法Form1窗口起动最大化设置“属性－Form1”窗口中选择“Windowstate”，在“Windowstate”右边设置为“2－Maxi”5（最大化的意思。）六、在利用VisualBasic6.0增加WebBrowser控件在"部件"中找到"MICROSOFTINTERNETCONTROLS"选择，根据提示操作。1、例子PrivateS

6、ubCommand1_Click()WebBrowser1.Navigate("www.baidu.com")EndSub七、输入地址栏制作方法1、点“LABEL”按钮，在“Form1”窗口中建立一个Label1，在“属性”窗口中选择“captiom”中输入“地址栏”。2、在“Form1”窗口中建立一个text，在“属性”窗口中选择“Text”中删除Text。3、“Form1”窗口中新建一个“Command1”，双击“Command1”写入下面的命令：PrivateSubCommand1_Click()WebB

7、rowser1.NavigateText1EndSub八、编写打开浏览器主页选择“Form1”窗口并双击，写入下面的命令：PrivateSubForm_Load()WebBrowser1.Navigate"www.baidu.com"'要去的URLMe.WindowState=vbMaximized'窗体自动最大化5EndSubPrivateSubForm_Resize()'控件跟着窗体最大化WebBrowser1.Top=0WebBrowser1.Left=0WebBrowser1.Height=Me.Height

8、-0WebBrowser1.Width=Me.Width-80EndSub九、图标如果想家图标的话，可以更改窗体的Icon属性，添加自己喜欢的.ico图标。十、用一个窗口浏览网页直接将下面的命令复制到代码器中即可。PrivateSubWebBrowser1_NewWindow2(ppDispAsObject,CancelAsBoolean)Di