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

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


孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 2014Unity亚洲开发者大会倒计时 干货内容日程汇总 TIOBE 2014年4月编程语言排行榜:Perl跌至历史最低点 Hadoop集群环境下网络架构的设计与优化 CloudFoundry架构优化:NATS集群化方案 Dropbox推独立应用,公司估值已达100亿美元 【走近院士】梅宏:云计算时代软件技术发展需求和挑战 云计算战争:OpenStack vs. VMware Cortana与Siri、Google Now的较量:支持功能更多 代码面试最常用的10大算法 “颠覆医疗” 时云医疗推三款硬件产品 华为章宇:如何学习开源项目及Ceph的浅析 EMC:大数据时代中对于数据保护的重新定义 Google Glass于4月15日在美对外开放购买,售价为1500美元 电脑上的网址怎么样复制到手机 创客天下——《Make》及Maker Faire创办人、O'Reilly Media创始人Dale Dougherty专访 《近匠》aGlass团队:透析眼控技术的价值 請問TForm中相當於MFC中OnIdle()的event是什麼 数据库问题,急!!急!急!急!急! CISCO2600的ISDN拔号不会自动断线,怎么办? 谁知道怎么验证一个用户名和一个密码是不是在WINDOWS2000中添加过的?而且正确? 。。。谁能给我发一个“智能狂拼2”的下载连接地址 请求--网页评比规则? 在visual.net上无法调试存储过程。急。求救 asp加密程序 我用SQL server+DElphi中的ADO做数据应用程序,数据库备份后,怎样实现数据库的恢复? 贴子太多了,看不过来了,大力liuri出来讲讲 sqlserver 用 jdbc出错 ,Microsoft][SQLServer 2000 Driver for JDBC]Error setting up static cursor cache 如何在C#中用代码控制本地FTP服务打开和关闭?99分,中秋快乐. 关于dll的问题,在线求教 昨晚,我抱了我MM一下!开心呀!散分! 有什么软件可以使上网不受防火墙的限制? 一个C的图形函数,请问怎样用的? 数据库查询语句执行错误 web页面的activex控件怎么调用服务器上的动态连接库?? 中秋散分 【泰坦】祝大家中秋节快乐!(1) 纯jsp聊天室的页面刷新问题 这个MSDN是不是常说的那个MSDN资料库? 一句sql语句问题 【泰坦】祝大家中秋节快乐!(2) 我的触发器为什么没有响应啊。在线等啊 pb9.0+sql server 2000,怎样制作程序发布? pb给dll传递结构数组的问题。急!!! pb9.0+sql server 2000,怎样制作程序发布? 为什么关闭MSDEV的时候,会导致它占用90%以上的CPU时间??? 如何在代理中同時讓兩個套表同時結案 菜鸟问题:我想把一个CString类型转换成LPBYTE类型应该怎么弄? 如何在JRUN3.1中连接SQLSERVER, 我的web server用的是IIS5 怎么样在JSP中显示 WORD 或 WPS 格式的文件? 如何在servlet 中存储数组用javabean 取数组用JSP显示(在线等,急,谢谢) 如何使Response.Redirect "xxx.htm"打开的网页是满屏显示! 鄙视民工的人,给你讲个故事听。 庆祝中秋佳节,大散分~ 中秋节到了,与大家同庆,散点分!!!祝大家开心呀! VC的bug!!! 游戏、网络、图形等版块正在整顿中,有意见或建议欢迎提出!! 如何进一步提高C语言的功力???? 学习JSP的过程中遇到的问题(问题1),请进!!! 大家说一下网上下载的水晶报表crystal report 9.0会过期吗!!买一套要好几万的! 有个问题想请教,关于数码相机生成的图片的格式及存储方式! 在网站上数据保密问题 我用Inet控件下载文件时,经常会遇到无法结束程序的问题? 我在用电脑的时候,有时会提示我们插入WIN98光盘,但我现在用的这台,它会自动扫描的,自动查找,是怎么回事啊,在线等啊。 请问有DOS下的C++编译器吗???哪里下载?? 如何指定DataGrid的列宽呀 求boundschecker下载地址 怎么实现放大缩小的功能? 你一定品尝过不少家乡特产,那么,请你介绍一种自己最喜爱的家乡特产,并给它拟一条广告词,让它走出家乡名扬天下.我的家乡是黑龙江哈尔滨通河,请大家帮我想一个.特产名称:___________广告 你一定品尝过不少家乡特产,那么,请你介绍一种自己最喜爱的家乡特产,并给它拟一条广告词.我的家乡在内蒙 妈妈让小丽把照片放到影集里.如果小丽每页放1张,就多出4张;如果每页放2张就缺6 日常生活中,你一定品尝了不少家乡的特产.那么,请你介绍一种自己最喜爱的家乡特产,并给它拟一条广告词,让它走出陕西,名扬天下.(陕西 西安) 世界上最美丽.最优秀的女孩是谁? 全世界最出色的女低音是谁?请问美国的Marian Anderson(玛丽安.安德森)和英国的Kathleen Ferrier(凯思琳.费丽尔),哪个更胜一筹呢? 这个世界谁最优秀, 秋色到深闺,夜扫梧桐叶的含义 沁园春长沙作者笔下的秋景活泼美好的这样写有什么意义 柏拉图为什么要将诗人逐出理想国? 介绍一种自己最喜爱的家乡(启东)特产,并给它拟一条广告词,让它走出家乡,名扬天下. 孙杨可自选拘留时间 新女友浮出水面亦日本一企业官员疑挪用24亿日元 被同加拿大一名刑满性犯罪者潜逃至美国又面麻生积极扩大外国游客免税品范围 以吸塑料袋威胁欧洲环境 欧盟计划对其征收盘点孙杨这些年惹的事 无证驾驶 耍大叙反对派内讧致战场节节败退 全国联盟胜选五周年,奥巴马光环黯淡法媒曝萨科齐下台后电子档案遭非法侦察巴塔发誓要为马哈苏德报仇 卡尔扎伊批世界十大主权基金海通国信等4家券商被处罚全球1200个作物品种来京亮相泰陆军司令否认政变行动与王室有关中澳企业合资成立医疗中心 促中医药在ITF女子巡回赛天津站双打比赛落幕 福建坠江客车载有24名台湾游客 其中4000余人全力扑救安宁山火 过火面归来者 权佳果端午节休市安排杭州官方昨晚紧急否认“限降令”一个芦苇般的思想者(图)极品宝鼎极品天尊在都市小仙有礼了异世小游戏无敌泡妞王和珅重生女妖庇护所魔法圣骑士炼气士系统升级系统冥判十八盘旅游颜庙旅游孔庙旅游古北水镇旅游磐石官马溶洞旅游鸡足山旅游仙人桥旅游白鹅岭旅游云谷寺旅游离堆公园旅游药王山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘