说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

显示Windows系统的标准ABOUT窗口-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
显示Windows系统的标准ABOUT窗口-VB资料
吴斌
 ABOUT窗口是应用程序向用户传达自身一些基本信息的最佳方式。Windows系统的
许多软件,如程序管理器、文件管理器、书写器等,都带有一个风格一致的ABOUT
窗口。在这些软件中,只要选择“帮助”菜单命令“关于XXX...”,就会弹出
这个标准ABOUT窗口,其中显示有关Windows及相应软件的版本、工作方式和版权等
信息。在VB应用程序中,可以通过调用API函数ShellAbout,方便地借用这个标准
ABOUT窗口,并将自己的基本信息加入其中。
  首先,在module文件中加入下列声明语句:
  Declare Function ExtractIcon% Lib "shell.dll" (ByVal hinst%, ByVal
lpszExeName$,ByVal iIcon%)
  Declare Function GetWindowWord Lib "User"( ByVal hWnd As Integer,
ByVal nIndex As Integer)As Integer
  Declare Function ShellAbout Lib "shell.dll"(ByVal hWnd As Integer,
ByVal szApp As String,ByVal szOtherStuff As String,ByVal hIcon As
Integer)As Integer
  Public Const GWL_EXSTYLE=(-20)
  Public Const GWL_STYLE=(-16)
  Public Const GWL_WNDPROC=(-4)

Public Const GWW_HINSTANCE=(-6)

  然后,在调用ABOUT窗口的菜单项的Click事件中加入下列代码:
 Dim Ret As Integer
  Dim Icon As Integer
  Dim Inst As Integer
  Inst=GetWindowWord(Me.hWnd,GWW_HINSTANCE)
  '从可执行文件中抽取图标
  Icon=ExtractIcon(Inst,"DEMO.EXE",0)
  '调用Windows系统标准ABOUT窗口
  Ret=ShellAbout (Me.hWnd,"1234","123" & Chr$(13) & Chr$(10) & "
123456",Icon)


TIOBE 2014年12月编程语言排行榜:R和Swift成为年度语言候选者 免费增值应用正在“杀死”游戏开发者? 直接Mark!开源的DevOps开发工具箱 Apache Mesos联合创始人Benjamin Hindman:谈分布式应用现状 直觉不靠谱!使用移动应用分析的七个巧妙方法 屏蔽、挖角与丑闻,Uber的“创收神器”泡沫 蚁视科技发布会:三大产品与四大概念技术 盘点VS2015 预览版的5个新特性 低能的“智能” 你就是明星,第一届IBM RockStar正式启动! Kubernetes:Google分布式容器技术初体验 方法可以复制 AngularJS资源集合 那些年,微信走过的开放之路 从YunOS话阿里移动互联网云生态布局 Mobile First!苹果联合IBM发布10款企业级App iOS8.1.1越狱又惹急苹果!扒一扒黑客与苹果的斗争史! Firefox.html:用HTML重现Firefox UI Qt 5.4正式发布!引入WP,支持HTML5混合开发 2014智能硬件盘点第二弹!这次咱走暖心的 聚合数据资产,推动产业创新——2014中关村大数据日看大数据变现 拥抱开源:微软Windows 10宣布全面支持AllJoyn技术 改变App领域发展!友盟推“数据工场”战略,两款新品亮相 Cloudera正式登陆中国市场:与英特尔携手共助本土企业淘金大数据 Go 1.4正式发布 支持Android开发 【特别提醒】2014中国大数据技术大会门票全面告罄 不接受现场购票 累计4000万美元 Qualcomm在华投资5家公司 支持Android、WatchKit开发,全新RubyMotion 3面世! 快速开发移动医疗App!开源框架mHealhDroid 2014CVW﹒产业互联网大会解密未来20年 Nimble VR的收购与一封来自友商的感言 Google Earth API将在2015年12月彻底关闭 用代理服务器,可以上网,却不能上qq~~怎么办? 用ole控件打开一个WORD文档后,如何保存? BCB 6.0 装不了我以前在 5。0 下面装的一个控件 怎么回事? 来者有分!!!!存贮过程中创建视图的问题 在线等待!急,tomcat中文问题 急急急急急急!!!delephi 能调用.class文件吗??也就是使用java的接口!如何作??? 请各位大侠尽快指点! 怎么让StringGrid的行数随数据的多少改变? 一个关于线程的问题 怎么拖动无标题栏窗体? 使用FTP碰到的问题 windows下的网络编程的c库函数有什么?怎么用? 为什么我的机器加入域的时候会出现“提供的凭据与已存在的凭据集冲突”的错误? 一个简单但很迷惑地问题!请指教! 分发高手睇过来 请求帮助 [转帖·放分]恶毒女人的情书 如果自己创建一个类,在这个类中想调用当前CXXVIEW类中的函数该如何办? P:Pointer? 数据库连接问题? 如何在菜单中显示图片?谢谢! 在线等待!急,tomcat中文问题 工作很非常特别烦心,散分 如何监控网络中的打印 请问在COMCAT中如何更改根目录的路径 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 基因重组技术人与蟒蛇基因重组融合培育出蛇人具体的方法说谢谢! 我国与周边国家有哪些海洋争端 一张纸(无论大小)为什么最多只能对折7次? 国防教育征文 王老师倒了杯牛奶,先喝了1/2,接着加满咖啡,又喝了1/3,再加满咖啡,最后把这杯全部喝完.王老师喝的牛奶多还昰咖啡多? 如果每个书包的进价是40元,仍按进价提高50%后标价,若商场想获得14元利润,每个书包打几折 想成大事的女人具备什么品质 必须经历什么 急求答案!Mathematica数学实验练习题1题目在这里 回答完的另加分 急用!http://hiphotos.baidu.com/%CC%EC%C3%FC%D0%A1%D0%A1%D7%D3/pic/item/eaff45feeac478095d600841.jpg 一张纸为什么最多只能对折九次? 两首送别的诗.请写出两手关于送别内容的古诗,都是一个是人写的,一首诗写诗人送好友的情景,一首诗好友宋诗人时的情景. 超声波加湿器电子振荡电路我在河南新乡一家织布厂工作,想自己做一个超声波加湿器用于车间加湿,我在网上看到有卖的加湿量30KG/H,我不知道最大能做到多大?就想做个大功率简易型的 为什么一张纸最多对折9次?问一下,不知有谁知道.折完9次后会怎么样? 说两首送别的古诗 屈原有什么激励人们奋发图强的千古名句 钱是万恶之源吗赞成! 用一根铁丝围成一个平行四边形已知平行四边形相邻的边总长为15厘米这根铁丝一共有多少厘米如果改成最大的等边三角形这个等边三角行边长是多少厘米 屈原写的什么千古名句激励一代又一代的人奋发图强要激励的句子 一盒彩笔4元,如果李红买了这盒彩笔,那李红与玉兰的钱数比是4:5,如果玉兰买了这盒彩笔,那么李红与玉兰钱数之比是13:14.求两人原来各有多少钱? 在哪下动物大战僵尸?发个网址啦 ,求 .发我邮箱也行546201570@qq.com 有植物大战僵尸2、3、4、5、6也都行 Mathematica 微分方程初始条件问题Mathematica解微分方程时,加了初始条件出错!为什么?如:In[1]=DSolve[{y'[x]+y[x]==aSin[x],y[0]==0},y[x],x]DSolve::deqn:Equation or list of equations expected instead of True in the first argume 人类通过对某种动物的遗传基因进行改造,使这些动物可以产生和分泌出人们所需的某些物质,这种动物就是____ 选择合适的句子下面几个比喻句中比喻最贴切的一项是()A.这个老单身汉像木条一样瘦削.B.一轮满月正在荒野上庄严地徐徐升起,像一个赤红的大金盘.C.这个姑娘的眼睛又黑优良,像她经常戴 脑筋急转弯:一头牛,向北走10米,有向西走10米,再向南走10米,倒退右转,问牛尾巴朝哪儿?不难办. 雅思10天复习计划还有10天考试了,目前有剑3~7,高中词汇(背的差不多了),4级词汇,所有的基经,还有新东方雅思全套.怎么用,帮我制定一个高效的计划,我最少要6.这10天从早上6点到晚上9点,除了休 给下列句子中选择正确的解释(写序号)异:1、不同的;2、分开;3、另外的,别的;4、特别的;5、奇怪(1)石钟乳和石笋颜色各异.( )(2)奇花异草不容易养活.( )(3)这是一道奇异的 "珍爱生命,远离毒品"演讲稿 雅思复习计划我暑假怎么复习2个月考雅思,但现在越看越迷茫.请给我个详细的复习计划,目标6,保5.5,目前大一 张明有邮票120张,比小李邮票张数的2倍还多16张,小李有邮票多少张?方程和等量关系方程:等量关系式: 什么样的男人能成大事? 雅思具体的复习计划有三个月左右的时间 雅思想考到6.5 现在英语水平顶多是4级水平请高手帮帮制定一个非常具体的复习计划尤其是写作和听力方面的 对于这两项 是最没信心的出国在即 就 张明有邮票235张,李浩有邮票311张,要使张明的邮票是李浩的3倍,要使张明的邮票是李浩的3倍,李浩要给张明多少张邮票? 征文开头怎么写 现在白海豚有多少只?现在世界上白海豚有多少只?中国有多少只白海豚? 把人和动物的基因合在一起? 写征文怎么开头?.. 白海豚是什么 如何将动物的DNA射到人体 历史的选择征文开头 不管多大的纸,最多只能对折9次对吗? 国防教育征文怎么写 改革三十年征文开头 Mathematica 如何生成这个排列表?如何生成这个排列表?在一个表中,每取连续n个元素,向后移动k个位.例如下式是每取4个元素向后移动1个位.输入:s1={a1,a2,a3,a4,a5,a6,a7,a8};输出:s2={{a1,a2,a3,a4},{a2,a3,a4,a 国防教育的征文 一个猎人向南走10千米,又向东走10千米,又向备走10千米,这是他又回到了原地,请问出发点在里?仅有这一点吗? 怎么用Mathematica画出一列点 就是画出的点是竖着排列的 最好是Mathematica 5.0实现的怎么用Mathematica画出一列点 就是画出的点是竖着排列的 最好是Mathematica 5.0实现的 小学国防教育征文 一只熊先向南走10千米,再向东走10千米,又向北走10千米,又回到了出发点问它在哪儿?PS:这个不是急转弯 为什么每张纸对折超不过9次? 国防教育征文(急求!)600字左右,最好有指导! 表示送人的古诗有哪些? 剑桥雅思口语精讲好还是雅思口语胜经好 蟒蛇属国家几级保护动物? 李浩喝了一杯牛奶的1/6,加满又喝1/6,加满又喝1/3,再加满后喝完.喝的牛奶多还是水多? 教育 总朝一个方向走,不改变方向,最后能回到原点的是( ) A.0°经线 B.40°N C.20°W D.160°E 原 蟒蛇是国家一级保护动物还是二级保护动物? 小华喝一杯牛奶的6分之1,加满水后又喝了一杯的3分之1,再倒满水.又喝了2分之1,继续加满水后一杯喝完了.问小华喝了牛奶和水各几杯? 一张纸,无论有多大.为什么最多对折三次? 应该可以通过基因融合技术把人和杂交品种有毒的巨蟒基因融合成为蛇人我不要求像X战警那样我只要成为变种人就可以了我想培育和蛇人出来我相信铁能成针失败是成功之母我要集中大量的 小刚喝一杯牛奶的1/2,然后在杯内加满水;他喝了1/3杯后,又加满水;他又喝了1/6杯后再加满水,最后把一杯全喝完了.小刚喝了牛奶和水各几杯? 某商场把一个双肩背的书包按进价提高50%标价,然后再按8折(标价的80%)出售,这样商场每卖出一个书包就可...某商场把一个双肩背的书包按进价提高50%标价,然后再按8折(标价的80%)出售,这样商场 执政联盟候选人赢得格鲁吉亚总统选举美被曝一月内监听西班牙超6000万个纽约华裔社区灭门案震惊美国 凶手提审迪拜将推出专供叫车服务出租车迪拜将推出专供叫车服务出租车土耳其青睐中国防控系统向西方国家扇了日本诺贝尔医学奖得主为募资发薪水跑马穆兄会领导人将首次在埃及受审 原定于为表彰军犬贡献 美军方为军犬设国家纪日本一男子摔死1岁女儿 只因其哭闹不德国男子以点燃自家公寓要胁 欲与市长英国男子涉嫌窃取美机密 自称能“搞死全球首次大规模男性裸体展 法国美术展英国国家打击犯罪局欲聘400名赛博情卫计委回应放开单独生二胎新闻:政策无穆兄会领导人将首次在埃及受审 原定于羊城晚报报业集团将派工作组调查整顿新强风暴袭击欧洲多国 致海陆空交通全部天津召开纪念毛泽东同志诞辰120周年日本外相拟11月出访伊朗 推动伊核问十八届三中全会将于11月9日至12日中国打算再次竞标墨西哥高铁男童遭绑架10小时被悉心照顾 获救后“澳门特区新貌”图片展在四川广元举行四川九寨沟县拍到野生大熊猫携子同游画俄央行11月外汇干预显著减少朱立伦相信双北会合作照旧 称与柯文哲马英九盼副主席\"勉为其难\"留任 [东方时空]海外出逃 逃无可逃约什8记三分全场砍32分 佛山127中国残疾人福利基金会举办慈善义演 呼马英九请辞党主席:人民对国民党的失望临漳:教育引导体系助力农村面貌大提升外国领事商务团赴渝共商重庆五大功能区广州两辅警追捕犯罪嫌疑时被捅 致1死王哲林24分 福建107-124不敌何顿新作《来生再见》用小人物反映抗日情侣在景区拍\"裸体婚纱照\"全国老人院院长论坛通过《长期照护20\"香港时尚购物展\"吸引近30万人南京环保局官网上线 空气质量实时预报江苏仪征官方引导诚信自律 “美食美康
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘