樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

日志

关于我

yinzhihua2008

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力！

文章分类

VB相关源代码下载

2009-09-01 09:24:33| 分类： Visual Basic | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

http://www.moon-soft.com/program/VB/source%20code/Sample/

文件/标题	大小	注解
quicktip.zip	5K	一个显示Tips对话框的例子
alphanumsortdll.zip	1526K	按字母和数字排序的例子
ccdemo.zip	257K	演示调用Windows的颜色对话框
cfdemo.zip	280K	演示调用Windows的字体对话框
project4.zip	6K	分解自然数的例子
reg221.zip	50K	注册使用OCX的例子
ropdemo.zip	276K	演示Windows API的光栅操作
vbthread.zip	14K	在VB应用程序中使用多线程的例子
jkcgi.zip	180K	使用DLL创建CGI程序
fsextext.zip	227K	显示多种函数效果的例子
shfileop.zip	3K	显示Win95 API的一些函数
iconextr.zip	2K	从动态库, 执行文件或ICO文件中读取图标
virtlogo.zip	7K	显示Logo的例子
calendar.zip	12K	日历程序
aboutbox.zip	1K	Windows关于窗口
vblib.zip	43K	装入不同的Form
vbio32.zip	16K	访问端口的程序
countdown.zip	9K	计数器
dragdropfiles.zip	4K	文件的拖拉操作
galaxy.zip	27K	演示银河系的例子
rocket.zip	8K	小图形的快速移动
hlitactx.zip	3K	加亮鼠标所在的区域
appbar4.zip	2K	模拟Windows 95/98的任务条
coolbar.zip	17K	实现IE3的CoolBar
millennium.zip	16K	千年倒计数的程序
csplitdc.zip	40K	切分窗口的例子
bkwait.zip	1K	延时程序
browsefolders5.zip	6K	浏览一个子目录
keyboard5.zip	6K	显示键盘信息
listsrch.zip	6K	在列表框中快速查找和定位子项
quiksrch.zip	2K	在列表框或组合框中查找子项
rsSysMonCal.zip	9K	此代码包含一个“日历”类，而且它使用了 SubClass 技术以获得用户的选择
ccursor.zip	2K	鼠标控制的演示,提供了一个鼠标控制的类，包括移动、限制、隐藏等功能
username.zip	1K	用 GetUsername API 函数得到当前用户的名字
calendar1.zip	3K	好用的日历例子
wizFirst.zip	4K	制作向导的例子
biowiz.zip	445K	一个强大复杂的例子, 解释所谓Biorythms理论
mouse-move.zip	1K	鼠标移动的例子

评论这张

转发至微博

阅读(1417)| 评论(0)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_082068087083080069082084080095083095085064084080081',
              blogTitle:'VB相关源代码下载',
              blogAbstract:'<P\><A rel=\"nofollow\" href=\"http://www.moon-soft.com/program/VB/source%20co<wbr>de/Sample/\"  \>http://www.moon-soft.com/program/VB/source%20co<wbr\>de/Sample/</A\></P\>  <P\> </P\>  <P style=\"TEXT-INDENT: 2em;\"  \>  <TABLE cellSpacing=\"1\" width=\"100%\"  border=\"1\" \>  <TBODY\>  <TR\>  <TD\>  <P\></P\>  <P style=\"TEXT-INDENT: 2em;\"  \>文件/标题</P\></TD\>  <TD\>  <P\></P\>  <P style=\"TEXT-INDENT: 2em;\"  \>大小</P\></TD\>  <TD\>  <P\></P\>  <P style=\"TEXT-INDENT: 2em;\"  \>注解</P\></TD\></TR\>  <TR\>  <TD\><A rel=\"nofollow\" href=\"http://www.moon-soft.com/program/VB/source%20co<wbr>de/Sample/quicktip.zip\"  \>quicktip.zip</A\></TD\>  <TD\>5K</TD\>  <TD\>一个显示Tips对话框的例子</TD\></TR\>  <TR\>  <TD\><A rel=\"nofollow\" href=\"http://www.moon-soft.com/program/VB/source%20co<wbr>de/Sample/alphanumsortdll.zip\"  \>alphanumsortdll.zip</A\></TD\>  <TD\>1526K</TD\>  <TD\>按字母和数字排序的例子</TD\></TR\>  <TR\>  <TD\></TD\></TR\></TABLE\></P\>',
              blogTag:'',
              blogUrl:'blog/static/794306720098192433408',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1317211496409,
              publishTime:1251768273408,
              permalink:'blog/static/794306720098192433408',
              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:true,
              hostIntro:'分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力！',
              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/794306720098192433408">${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相关源代码下载

历史上的今天

最近读者

热度

评论

页脚