miaozk2006

点滴积累与收藏:关于技术，关于生活

日志

关于我

miaozk2006

文章分类

VB6的后期绑定和前期绑定

2010-12-18 22:15:59| 分类：编程-VB | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

1. 什么是后期绑定和前期绑定后期绑定
　　MSDN 6的定义如下：
　　后期绑定：若将一个变量声明为 As Object 或 As Variant（包括 As Form 或 As Control 的变量），Visual Basic 在编译时就无法确定该变量将引用哪种类型的对象。因此，Visual Basic 必须使用后期绑定，在运行时确定对象的属性和方法能否使用该变量。
　　若使用后期绑定，则每次调用属性或方法时，Visual Basic 都要将成员名传给该对象 IDispatch 接口的 GetIDsOfNames 方法。GetIDsOfNames 返回该成员的派遣 ID，或 DispID。Visual Basic 再将该 DispID 传给 IDispatch 接口的 Invoke 方法来调用该成员。
　　对进程外部件而言，这意味着一次额外的跨进程方法调用，结果是调用开销翻番。
　　前期绑定：如果在编译时 Visual Basic 能够知道属性或方法所属的对象，就可以预先查找该成员在类型库中的 DispID 或 vtable 地址。这样就无须在运行时调用 GetIDsOfNames。
　　当显式声明了变量的类时，例如 As Widget，该变量就只能存放该类的对象的引用。Visual Basic 就可以为该变量调用的所有属性和方法使用前期绑定。
　　建议在 Visual Basic 和应用程序中使用这种方法来声明对象变量。
　　使用前期绑定还是后期绑定完全取决于声明变量的方式。对象的创建方式对此没有任何影响。
　　2. 后期绑定的几个优势和好处
　　第一，个人认为，由于VB6不支持实现继承，对于某些设计，可以使用将对象定义为Variant变量，而获取某些设计和编码上的便利，而得到接口或抽象类的好处。例如：
　　如定义2个类：

Class1：
1Option Explicit
2
3Public Sub Update()
4 MsgBox "Class1 Updated"
5End Sub
Class2：
1Option Explicit
2
3Public Sub Update()
4 MsgBox "Class2 Updated"
5End Sub

　　在使用的时候，可以使用以下方法，而实现一些设计模式：

1Dim objTest As Variant
2
3Dim objC1 As New Class1
4Set objTest = objC1
5objTest.Update
6
7Dim objC2 As New Class2
8Set objTest = objC2
9objC2.Test
10

　　这样，无须继承机制，也可以得到抽象接口的优势，而使接口、实现分离。
　　第二，在调用外部的COM自动化组件时，如Office，如果通过这种方式调用，对于不同版本的Office，如果你调用的方法、属性都是存在的，那么可以适应不同版本的Office，但如果通过前期绑定，在项目引用中确定对象类型，是有版本兼容问题的。
　　3. 效率和劣势
　　其实最主要的劣势是效率问题，《Advanced Visual Basic 6》一书说，使用Variant变量和Long变量进行循环，效率差别是1.5倍，而没有别人认为的那么大，而且对于大对象，差别也不是很大。对于本文前边的例子，如果创建的是进程内对象，前期绑定和后期绑定调用效率差别大概2:3左右，也就是说也是1.5倍。对于调用Office这样的外部COM自动化对象，也许差别大一些，没有专门测试，不过对于Office自动化，速度主要是决定于Office本身的启动、初始化。
　　另外一个劣势是没有了IDE下的属性、方法成员自动列出。
　　所以，个人认为，在使用VB6的时候，为了得到好的设计，有时不妨使用一些VB6的后期绑定的特性，来提高设计质量。

摘自：网络整理

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_094065082095087065093084080095087094083071083086083075',
              blogTitle:'VB6的后期绑定和前期绑定',
              blogAbstract:'\r\n<P style=\"TEXT-INDENT: 2em;\"  \>1. 什么是后期绑定和前期绑定后期绑定 <BR\>　　MSDN 6的定义如下： <BR\>　　后期绑定：若将一个变量声明为 As Object 或 As Variant（包括 As Form 或 As Control 的变量），Visual Basic 在编译时就无法确定该变量将引用哪种类型的对象。因此，Visual Basic 必须使用后期绑定，在运行时确定对象的属性和方法能否使用该变量。 <BR\>　　若使用后期绑定，则每次调用属性或方法时，Visual Basic 都要将成员名传给该对象 IDispatch 接口的 GetIDsOfNames 方法。GetIDsOfNames 返回该成员的派遣 ID，或 DispID。Visual Basic 再将该 DispID 传给 IDispatch 接口的 Invoke 方法来调用该成员。</P\>',
              blogTag:'',
              blogUrl:'blog/static/3824705820101118101559897',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1361422157391,
              publishTime:1292681759897,
              permalink:'blog/static/3824705820101118101559897',
              commentCount:0,
              mainCommentCount:0,
              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:false,
              hostIntro:'',
              hmcon:'0',
              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/3824705820101118101559897">${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 - 订阅此博客

miaozk2006

导航

日志

VB6的后期绑定和前期绑定

历史上的今天

最近读者

热度

评论

页脚