面包会有的

... ...

日志

关于我

加菲

覆巢之下焉有完卵。出来道上混,迟早是要还的。

文章分类

利用VB设计浏览器

2007-08-21 17:26:53| 分类：默认分类 | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

　　使用VB5附带的WebBrowser控件，可以非常简单地设计出一个实用的浏览器。

　　首先，加载“Microsoft Internet Controls”和“Microsoft Windows Controls”控件。然后，设计好界面。

　　在Web浏览器里定义URL

　　现在，已经建立了浏览器里所需的一些控件，怎么让用户导航呢？

　　我们可使用WebBrowser控件的Navigate方法。接下来看一看这种方法。例如：Web浏览器首次加载时，可以通过这种方法去导航Microsoft Web页(注意在Intenet Explorroe可定义带或不带“HTTP：//”)：

　　 private sub form_load()

　　 webbrowser1.navigate

　　″www.microsoft.com″

　　 …

　　 end sub

　　当然也可以使用户能够导航新的URL，这通常使用组合框Combo1。首先通过显示当前的URL来启动Combo1工作将其加载到组合框的下拉列表中：

　　 private sub form_load()

　　 webbrowser1.navigate″www.microsoft.com″

　　 combo1.text=″www.microsoft.com″

　　 combo1.AddItedm combo1.text

　　 end sub

　　用户可以从组合框下拉列表里选择过去的URLS ，当通过这种方法选择了一个URL时，相应的Click事件就产生了，用这种方法能够导航最新选择的URL：

　　 private sub combo1_load()

　　 webbrowser1.navigate combo1.text

　　 end sub

　　另外，用户可以在组合框里定义一个新的URL 并按Enter键，正如他们能够在商业浏览器里所作的一样。当按下Enter键时，就可以直接从Keypress事件处理器中简单地调用Combo1—Click事件处理器导航到这个新的URL：

　　 private sub combo1_keypress(keyascii as integer)

　　 if keyascii=vbkeyreturn then

　　 combo1—click

　　 end if

　　 end sub

　　最后，当下载过程结束时，WebBrowse控件激活了Downloadcomplet事件，此时就能够在浏览器的标题栏内显示当前的URL，正如任一商业浏览器一样。为此，必须从其Locationname属性中得到浏览器的当前URL：

　　private sub webbrowser1_downloadcompiete()

　　form1.caption=webbrowser1.locationname

　　 …

　　 end sub

　　还有，通过以下方法可以把URL加载到组合框列表的上层：

　　private sub webbrowser1.downloadcomplete()

　　 form1.caption=webbrowser1.locationname

　　 combo1.addltem ebbrower1.licationURL,0

　　 end sub

　　现在，已经建立了Web浏览器并且用户可以通过组合框里键入URLS进行导航。这里将会为浏览器增加Back和 Forward按钮。

　　这比想像的恐怕还容易一些——使用浏览器的Goback或Goforward方法即可。可以照这样去做。通过检测那些按钮的键来决定工具条中的按钮是否被按下：

　　private sub toolbar1_buttonclick(byval button as button )

　　select case button.key

　　case ″back″

　　webbrowser1.goback

　　case ″forwdrd″

　　webbrowser1.goforward

　　end select

　　end sub

　　这就是所有要做的——用户可以在浏览器的记录中进行下一步和上一步的导航了。现在已经加载了Back和Forword按钮。

　　给Web浏览器加载Refresh、 Home 和Stop按钮

　　前面，已经建立了可以用用户键入和选择URLS组合框Web浏览器，如Back 和Forward按钮，让用户通过导航穿梭于浏览器的记录之中。然而，这里还有很多能实现其功能的按钮：Refresh、Home和Stop按钮。用户可以用Web浏览器的Refresh、Gohome和Stop方法分别实现这些按钮的功能。这里分别给出Refresh、Home和Stop 三个按钮的名称“Refresh”、“Home”和“Stop”，当匹配的按钮被按下时，调用响应的Web浏览器方法（注意用户按下Stop按钮，也可以使用Web浏览器的Locationname属性更新当前显示在浏览器标题栏里的URL)：

　　private sub toolbar1_buttonclick(byval button as button

　　select case button.key

　　case ″back″

　　webbrowser1.goback

　　case ″forward″

　　webbrowse1.goforward

　　case ″refresh″

　　webbrowser1.refresh

　　case ″home″

　　webbrowser.gohome

　　case ″stop″

　　webbrowaer1.stop

　　me.caption=webbrowser1.locationname

　　end select

　　end sub

　　现在用户能够使用这些新按钮：Refresh、Home和Stop。

评论这张

转发至微博

阅读(594)| 评论(3)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_087067086081086074084084080095087094083071081081087071',
              blogTitle:'利用VB设计浏览器',
              blogAbstract:'　　使用VB5附带的WebBrowser控件，可以非常简单地设计出一个实用的浏览器。<BR\><BR\>　　首先，加载“Microsoft Internet Controls”和“Microsoft Windows Controls”控件。然后，设计好界面。<BR\><BR\>　　在Web浏览器里定义URL<BR\><BR\>　　现在，已经建立了浏览器里所需的一些控件，怎么让用户导航呢？<BR\><BR\>　　我们可使用WebBrowser控件的Navigate方法。接下来看一看这种方法。例如：Web浏览器首次加载时，可以通过这种方法去导航Microsoft Web页(注意在Intenet Explorroe可定义带或不带“HTTP：//”)：<BR\><BR\>　　 private sub form_load()<BR\><BR\>　　 webbrowser1.navigate<BR\><BR\>　　″www.microsoft.com″',
              blogTag:'',
              blogUrl:'blog/static/38245714200772152653758',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:0,
              publishTime:1187688413758,
              permalink:'blog/static/38245714200772152653758',
              commentCount:3,
              mainCommentCount:2,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:true,
              hostIntro:'覆巢之下焉有完卵。\n出来道上混,迟早是要还的。',
              hmcon:'1',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/38245714200772152653758">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

面包会有的

导航

日志

利用VB设计浏览器

历史上的今天

最近读者

热度

评论

页脚