教你用vb做你自己的浏览器
2011年04月09日
一、先打开VB新建一个工程二、在工具条上点右键选部件(我用的是中文版VB)或者选工程菜单,点部件三、找到Microsoft Internet Controls,在前面打挑,然后确认就可以看到在工具条上多出来一个地球样的图标,我们以后的实现就都围绕着他来进行了。四、添加一个WebBrowser1到Form1中,再添加一个command1、2、3、4到Form1中五、在Form1中添加如下代码: Private Sub Command1_Click() WebBrowser1.Navigate "wg.suda.edu.cn"End SubPrivate Sub Command2_Click() WebBrowser1.Navigate "www.qq.com"End SubPrivate Sub Command3_Click() WebBrowser1.Navigate "www.baidu.com"End SubPrivate Sub Command4_Click() WebBrowser1.Navigate "534923566.qzone.qq.com"End SubPrivate Sub Form_Load()WebBrowser1.Navigate "wg.suda.edu.cn"End Sub 这样一个属于自己的浏览器就ok了。 不是假装的
2011年04月09日
一、先打开VB新建一个工程二、在工具条上点右键选部件(我用的是中文版VB)或者选工程菜单,点部件三、找到Microsoft Internet Controls,在前面打挑,然后确认就可以看到在工具条上多出来一个地球样的图标,我们以后的实现就都围绕着他来进行了。四、添加一个WebBrowser1到Form1中,再添加一个command1、2、3、4到Form1中五、在Form1中添加如下代码: Private Sub Command1_Click() WebBrowser1.Navigate "wg.suda.edu.cn"End SubPrivate Sub Command2_Click() WebBrowser1.Navigate "www.qq.com"End SubPrivate Sub Command3_Click() WebBrowser1.Navigate "www.baidu.com"End SubPrivate Sub Command4_Click() WebBrowser1.Navigate "534923566.qzone.qq.com"End SubPrivate Sub Form_Load()WebBrowser1.Navigate "wg.suda.edu.cn"End Sub 这样一个属于自己的浏览器就ok了。 不是假装的