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

显示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)


Temple Run:Oz稳坐付费榜头把交椅,迪士尼名利双收 Facebook开放图谱示好开发者 新增书籍电影等九项操作 源代码管理的六大视觉模式 最新算法面世 可提高云数据库性能 分析称平板电脑应用将占全球应用经济的35% 三大运营商对微信等OTT业务摊牌 Runscope联合创始人John Sheehan:API已死,API永存! IBM在京发布大数据白皮书 提出五项关键建议 Twitter开源Parquet 将支持Impala加速实时查询 使用Go代替Ruby,将服务器数量从30降到2 初创公司SwiftStack:“放在盒子里的S3” 赫尔辛基:全球移动游戏开发者的“黄埔军校” 不只属于三星!uMoove将发布“眼球追踪”SDK Android掌门人Andy Rubin宣布辞职 Chrome主管接任 openSUSE 12.3发布 弃MySQL拥抱MariaDB Meteor:让实时Web App成为主流 别了,Google Reader!谷歌于7月1日关闭服务 “天网”降临 机器人或将崛起? 涅槃重生:Qt 5 for Android预览版发布 Google Play将逐步移除广告拦截应用 Shapeways公司开放API 3D打印时代来临 37signal设计师眼中的iOS与Android系统 VMware/Oracle向公有云拓展生态系统 AWS“山寨”技术伙伴创意与产品,是自我完善还是杀鸡取卵? 苹果发布OS X 10.8.3 新版Boot Camp可支持Windows 8 恭喜!麻省理工两密码学教授获2012图灵奖 Rovio的逆袭,发布首款RPG游戏“克鲁德一家” 百会呼吁微软提供合法经营Office 365的相关证明 谁说Vim不是IDE?(四) RDS升级:单DB实例最高可获得3TB存储和3万IOPS 移动周报:“先验证,后开发”的App开发必杀技 指针的问题,大家给看看 本人是初学者,请问一个简单的问题 目的没达到,再问,关于span 客户端用ADO连MSSQL,远端的数据库改了数据库端口1433,原先好用的东西就不能用了,不知道改如何解决了 编译出错,是不是就是我的解题思路是错的?? 在vc中能不能建消息队列?怎样建? 用checklistbox如何一次删除所选中的全部项 我做了一个动态生成可上传多个文件的,但是有个问题就是我该如何读取那些字段的值。如:图片标题,我删除一些行后我如何确定新的字段值, 救命!如何用 cable modem 上宽带网 在VC里如何实现QQ的界面啊,急急急急急急急急急急急? web如何实现连接点的回调功能? 新闻系统建模? 如何去掉release版exe文件中export的___CppdebugHook? 用标准C++开发的时候最常用的工具是什么? 到哪里能载到一些编游戏用的2D、3D图象文件啊? 招聘asp.net工程師(深圳) windows关机的问题,把我搞得好惨 请问高手如何判断保存上传图片的字段是否有数据?谢谢! 急!告急了。 学Java与Vc哪个更有实力,更有前途? 有关J2EE部署文件? 请问谁有《微型计算机原理与汇编》潘峰著,电子工业出版社的!!谢谢 一个简单的问题(VFP中) 请问OnKeyPress 和 OnKeyDown 这两个事件有什么区别? 哪里有可视化的jCheckTree组件? 关于译码器的问题,急!! *******在red hat linux下怎么设置DNS?网络设置里没有嘛 help 一个简单的问题 怎样删除干净OCX控件? 我用QQ的自定义查找输入一个QQ号码,但现在忘了我输入的是哪个号码,能不能找回? 框架制作!! 框架的问题 提个弱问! 使用treeview控件,我想给它们的节点图标都换一下,可它默认图标都在上面,怎么去掉默认的。 有牛人吗?准考证英文怎么说? 请大家帮我看看,我的机器是怎么回事?我的机器很不稳定!!! 我为大家共享的资源.找我的人太多了,我吃不消.在这里列BILL.大家看看,书不算太多。 很傻的问题,在线等 ★★如何实现按一下按钮可以终止一个正在运行中的循环?请举个例子,谢谢! 谁能帮我提供一点资料或文档! 告急?(在线等待) 用正则表达式,怎么验证日期(yyyy-mm-dd)的输入啊? kao~ 请教有关MSWORD9.OLB的帮助文档是哪个? 怎样知道一个调度执行失败或没有执行???(MSSQL7)上火呀~~~ 如何将自己定义的记录类型转化成Tmemorystream对象? c++builder5的下载地址? 做个调查,来者有分。 ODBC下的数据库查询,急!急! 初学者的问题--com dll服务器如何在客户程序中使用? the old man did nothing on Sundays except ——a walk in the park A took B to take C take D taking为什么是C,不是D或是B? “鲁迅是个著名作家,他写的文章很有意思”用英语怎么说 简单四字成语 Mrs Smith is taking a walk in the park.(taking a walk 提问)What is Mr Smith _____ in the park? "making love out of nothing at all"的意思是什么? 求100个简单的四字成语 Who is ___(tall),Tim or Tom 英语翻译我有一个幸福的家,爸爸爱我,妈妈爱我,弟弟爱我,我也爱他们,在温暖的家中,我快乐的长大. 副词的最高级是不是可以省略the也可以不省略啊 ( )Tim,who's at the door?Dad,I think——.A.he is LiLei B.he is Tom c.shi is Lucy D.it't Jim “天空不曾留下鸟的痕迹,但我已经飞过.” 请各位名师点拨,不吝赐教……“天空不曾留下鸟的痕迹,但我已经飞过.”这是印度诗人泰戈尔的著名诗句,它让你产生什么联想或感悟?请根据你的 英语翻译台湾,台北市,中正区,泉州街18巷3号2楼要寄DHL去台湾,规定要写英文,所以, Who do you think is _____(boring),Tim or Tom? “鲁迅写的这部小说很难懂”用英语怎么说 荀巨伯探友(世说新语.德行)在荀巨伯身上可以学到什么 这张桌子是大明和托尼的英语翻译 英语翻译这里的so.as 英语翻译Rm.5,2F.,No.3,Ln.26,Guanghua Rd.,Shilin Dist.,Taipei City 111Taiwan (R.O.C.) There are many students in the park.Some are talking,________ are singing.空白处应该填others还是the others呢?急, 根据对“天空不留下鸟的痕迹,但我已飞过”的理解,写一段作文开头 《苟巨伯探友》中的苟巨伯有什么品质?速求 煽情怎么解释 副词的最高级前可以省the ,那么形容词的最高级也可以吗?有木有什么特使情况呢? (世说新语之陈太丘与友期)(世说新语知苟巨伯探友)—两篇短文给我们启示很多,其共同点是 煽情怎麼解释 "George在我们班跑得最快".请翻译这句话.我想知道的是副词的最高级前面要不要加the. 看起来容易做起来难的成语 煽情这个词语用英文怎么说 “是世界上最著名的岛屿之一”用英语怎么说? 看起来难但事实上不难 是什么成语 a bit of 修饰可数名词还是不可数名词?bits of 和 a bit of – Physics _____ more difficult than Chinese,do you think so?-- Yes,I think so.A.is B.are C.has选什么,为什么? 求一成语 一件事,你心里认为它容易,它做起来就会很容易,如果你害怕,觉得它难,你做起来就难 a bit of后面跟可数名词还是不可数名词 Physics ____ more difficult than maths A is B are 英语翻译把下面一段话翻译成文言文:我当然记得我的承诺,但是我已经尽自己的全力了,所以可以无愧于自己了(自己想的或者书中摘的都可以). a little+()=a bit of;a little+()表示程度很浅;a little+cn单数时,他为形容词,修饰名词,表示(),与()同义 as a result of的用法As a result of keeping study,my body get better than before ahd even study more easily.这句话对吗?不对的话该怎么改 As a result of 是这么用的吗 形容词原级与比较级的用法归纳(什么时候用原级,什么时候用比较级) Jim is no more careful than Tom.怎么翻译? a bit of 后修饰的名词是可数还是不可数 夏日绝句古诗 Who is _____(careful) boy,TOM or Jack? 什么是长尾关键词啊?这几天在学SEO基本知识,听不懂这个词的意思啊 夏日绝句 古诗要诗意 the prince of egypt(埃及王子)的剧本外教的课要演舞台剧热锅上打转中…… "放某人一马"用英语怎么说? 副词最高级加the?he works harder he works the hardest请问这个对吗 Jim is no more careful than 请问:放马过来英文怎么说?还有放你一马 诗:妈妈的爱 阅读题,英语 The old man walk to the park.(改同义句) The old man go to the park ____ _____. 妈妈的爱,要用什么词赞美?妈妈伟大到无私,而我却找不到词语形容… 阅读题英语谢谢 permit和permission区别是什么? 妈妈的爱用什么词形容? 1、The old man is taking a walk in the park.(改为否定句)2、We are talking about how to learn English well.(对划线部分提问,划线部分是how to learn English well.)3、Mike is playing computer games.(对划线部分提问,划 beautifu变最高级的时候前必须加the吗单词
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘