图1调整文本框属性
第二步:单击控件面板中的其他控件按钮,在其下拉列表中选择Microsoft Web Browser控件(如图2),然后在幻灯片页面中勾画出范围,调整其大小和位置。
图2选择Microsoft Web Browser控件
第三步:双击打开网页按钮,在打开的Visual Basic窗口的光标位置输入如下代码后关闭:WebBrowser1.Navigate(TextBox1.Text)(如图3)。
图3输入代码
然后播放幻灯片,在文本框中输入网址。点击打开网页按钮,即可在当前幻灯片页面中打开OfficeBa网站(如图4)。
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)图4最后效果图
注意:WebBrowser1.Navigate(TextBox1.Text)中的两个(描红者)为数字1而不是字母。
网页代码未览先知
第一步:新建一张幻灯片,在开始-幻灯片-版式中设置幻灯片的blank为空白。参照前例,从控件中拖拽两个文本框,分别用来输入网址和显示网页代码。右键点击第二个文本框,选择属性,设置MultiLine属性为True(允许多行显示)。
第二步:在控件的其他按钮列表中选择Microsoft Internet TransferControl 6.0(SP6)控件,在幻灯片页面进行勾画。
第三步:从控件面板中拖拽两个命令按钮,分别设置其Caption属性为查看和清除。双击查看按钮,在Visual Basic编辑器窗口的光标位置输入:Text3.Text=Inet1.UpenURL(Text2.Text)
同样双击清除按钮,在光标处输入如下代码:Text2.Text="":Text3.Text=""
播放幻灯片,在文本框中输入网址。单击查看按钮,即可在当前幻灯片页面中显示OfficeBa网站首页的源代码。点击清除按钮,可清除文本框中的数据。
小提示:如果在添加控件的时候弹出窗口该部件的许可证信息没有找到,在设计环境中,没有合适的许可证使用该功能。