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

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


IBM成立展示中心扩展大型主机的Linux开放生态系统 SDN解决方案总结:OpenFlow、虚拟机、OpenStack和VXLAN/NVGRE 第六届中国云计算大会将于5月20-23日在京隆重召开 大数据实战:站在JMP分析平台上的FIT足迹识别技术 首届SAP d-code大会在上海举办 【OSTC讲师专访】ZoomQuiet:因商业化而开源是中国开源界最大的囧处 亿元资金扶持+联手100家VC,腾讯的雄心壮志 美国史上最大IPO 能给阿里巴巴带来什么? 买Windows平板而非iPad或Android的十大理由 Framework7:不会Objective-C,也能开发iOS7应用 CocoaChina开发者大会 全新引擎Cocos 3d-x开源 Oracle和微软的抱团,以及对抗Amazon霸主的5个可用点 Agile已死 Agility长存? 论程序员的自我修炼 Github女员工因遭性别歧视离职 继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 Python 3.4.0正式发布 未添加任何新语法特性 谷歌受困邮件挖掘丑闻,企图抹掉庭审记录 Python 3.4.0发布,增加了多个功能模块 美的+阿里,“云端”战略第一把火是智慧家居 对产业互联网战略的战术思考——争夺企业信息入口的战争 加入Cassandra,OpenStack发力DBaaS生态圈 死磕Google Keep,微软正式发布Mac免费版OneNote 《近匠》安管云CTO石磊:降维安全的开放平台 2014 Unity亚洲开发者大会·中国站讲师名单议题全部出炉 【独家专访】红旗Linux元老:猎猎红旗永飘扬 借助三大技巧 助你提升API状态页面 集成GemFire,Hadoop生态圈的又一把火 次世代光照体验:Unity 5面世,功能系统全升级 深入浅出,以咖啡店为例演示Web应用程序扩展 求一个com+的最简单例子 powerman_lyj(刘瑜江),能说的再详细点吗,具体的菜单或快截键是啥, 我的电脑是联想同禧品牌机,98年买的,价格是7999元。由于各种学习软件的增加,机器的配置已经无法满足实际的需要,所以本人打算升级我的 Analysis Patterns:Reusable Object Models 关于编写ASP.NET程序的工具使用问题 在submit的click事件中调用check(),当条件不符合时如何让submit终止? 申明CRecordSet的子类为什么不行呢? 高手请进!!!!高手请进!!!!(100分!!!!!) 请问如何用程序改变本机在局域网中的IP地址? help! 为什么session不可用?iis服务器配置错在那里? 一个关于数据库的问题,望各位高手多多指教.(很急) 大个大姐快开金口吧,从我启动PB 开是教我吧,没想到新手这么难呀!(共送700分!!!) 今天这件事说没完就没完,谁的面子我也不给,结了我就再发,删ID就换马甲,如果想封IP那就谢谢了,能让我下定决心离开 这个页面如何? MDI主窗口的背景,怎么显示阿? 高分求助!如何用程序获取显卡的物理地址? 请问LOEBBS的系统占用时间 在Tomcat4.0环境下,运行JSP,程序出错? 向大家推荐一个品质计数计量图控制程序 来者有分,班长请高抬贵手,不删此贴,谢谢 谁知道哪儿有cloudscape数据库的安装程序? 老大,infopower2000的密码是多少阿? 100分求<壮志雄心>8-20集的下载 能讨论一下 VB开发财务相关软件的经验吗,各位高手??(UP都有分) 简单的问题,送分 请教:ADO方式连接Oracle数据库时出现:多步OLE DB错误,请检查每个OLE DB状态,怎么办? 错乱 如何用jdbc连接oracle 老大,infopower2000的注册号,密码是多少阿? 向大家推荐一个品质计数计量图控制程序,来者有分,班长请高抬贵手,不删此贴,谢谢 线程管理 向大家推荐一个品质计数计量图控制程序,来者有分,班长请高抬贵手,不删此贴,谢谢 能不能提供一些有关图像分割的算法和实现代码!谢谢 如何实现语音聊天技术~需要什么? 如何实现语音聊天技术?需要些什么 请问如何用delphi语言将一文件夹压缩? 老大,infopower2000的注册号,密码是多少阿? 我现在是2000系统,想装一个98系统而不破坏2000,请问有解决办法吗?谢谢! [求助高手]VB注册表的读取 (dave_adl)将军请进来啊!给你分啊! 谁有数据结构与算法的东西,我在技术区可以给分 局域网内收发邮件?? 怎样利用主键不可重复的特性? 在ACCESS中如何在中间插入记录呢? 有谁知道,jbuilder7.0是调用了那些命令打包成EXE文件的? 一个简单的问题 OpenDialog控件怎么初始化路径? 使用regsvr32 时怎样不显示成功的对话框(即参数?) 怎样提高专家分? 网关屏蔽了QQ、聊天,如何使用QQ和聊天 如何配置声卡? 使用Excel时为什么不能更新图表? 欢迎踊跃参加 Office开发技术网上竞赛 生物按用途分为那几大类 为确保2020年实现全面建成小康社会的宏伟目标,党的十八大提出了哪些具体的要求和措施 食用盐分为几种?都有哪些好处? 手机电板用万能充导致电池正负极短路电板怎么办才能恢复正常充电 党的十八大报告提出全面建成小康社会的新的目标要求是什么? 1毫米等于多少个丝 数分为几大类?除了自然数之外还有什么数?整数应该属于自然数的吧,以下三层楼说的都不对! 做梦梦到鬼 很害怕 电动车的铅酸电池怎么加液体?我的电动车是新换的电池,长时间没用电力不足 电池正负极短路?还是新电池那 才两个月就充不进去电了.怎么办?还能修复过来么? 做梦梦到鬼麻烦高手解释下我做梦梦见鬼,是我去看我以前的女朋友的时候在饭座上她一来做下,我就看到旁边的鬼了,我被一吓吓的跑的好远跑到一个房子里面,越来越阴暗知道我怕到楼顶看到 电动车电池胶体的容易起鼓还是液体的容易起鼓? 12Ah的锂电池正负极被短路后会这么样?现象是什么? 党的十八大提出的到2020年实现全面建成小康社会宏伟目标的标志是实现国内生产总值和什么比2010年翻一番 电动车的铅酸电池是不是可以加液体?然后增加电池的可用性?在哪里可以买到?加了有什么用 用拉力F使一个质量m为的木箱由静止开始在水面上移动了s,拉力F跟木箱前进的方向的夹角为a,木箱与水平面间的动摩擦因素为u,求(1)拉力f所做的功(2)摩擦力所做的功(3)木箱获得的速度 党的十八大确立的要在全面建设小康社会目标的基础上努力实现哪些新的要求 电动车电池液体,胶体,哪个好? 如图,OC是∠AOB的角平分线,P是OC上一点,PD⊥OA交于点D,PE⊥OB交于点E,F是OC上除点P、O外一点,连接DF、EF,求证DF=EF 如图所示,一光滑的定滑轮两边用轻绳吊着A、B两物块,A,B的质量分别为ma,mb,ma=1.5mb如图所示,一光滑的定滑轮两边用轻绳吊着A、B两物块,A、B的质量分别为ma、mb,ma=1.5mb,将A固定,B放在地面上, 电动车电池液干了 应该加什么液体?蒸馏水可以么? 他们打算去参加音乐会英文怎么说 “十八大”提出2020年全面建成小康社会的经济目标是什么 光滑水平面上,一个质量为0.5千克的物体从静止开始受水平力而运动.在前5秒受到一个正东方向、大小为1牛...光滑水平面上,一个质量为0.5千克的物体从静止开始受水平力而运动.在前5秒受到一 谢谢你邀请我参加音乐会 英语 ,共九个词那个 那个 不好意思啊 我做的这道题是完成句子 呵呵 要不你们帮我回答一下吧 怎么样 Thanks ___ ___ me to ___ ___ ___ ___ . (给分)2020年全面建成小康社会的经济目标是全面建立社会主义市场经济体制对吗? 世界上最大的动物是?拜托各位了 3Q 如图所示,一轻杆两端固定两个小球A、B,mA=4mB,跨过定滑轮连接A、B的轻绳长为L,求平衡时OA、OB分别为多长? 物理动滑轮重力何时减去? 世界上最大动物是什么拜托各位了 3Q ab两物体质量分别为mA,mB中间用一轻绳连接放在光滑水平面上现用力F使A.B匀速运动求F大小 少输了点一题抱歉 两组-48V容量2000AH的蓄电池,负载1000A,整流模块100A20只,怎样进行核对性放电 世界上最大动物是什么?3Q 电池容量与放电状态有关?电池容量与放电状态有关吗?高二物理课本这样写的:"同样的电池,小电流,间断性放电就比大电流,连续放电的容量大"如果是真的,那是为什么?还有电池的体积越大,容 48V电瓶车有2组电池,能否用48V的重叠器分别充电 现在是暑假·我的英语又比较差·我想再暑假把英语提高·有什么方法·现在是暑假·我的英语又比较差·我想再暑假把英语提高··好让我开学跟上大家的英语进度·大家有什么推荐吗?我是想一 什么叫放电状态有关电池的使用和保护问题,例如不能处于放电状态,还有插电源时同时用电池吗 我做了 2组7.2V2.2A理电池串联7个再并联为什么用48V电动车不能给他充电. 26、如图,在△ABC中,ABBC于点D,交AC于点E,过点D作DF⊥AC,垂足为F.=AC,以AB为直径的圆O交26、如图,在△ABC中,AB=AC,以AB为直径的圆O交BC于点D,交AC于点E,过点D作DF⊥AC,垂足为F.(1)求证:DF为⊙O的切线 晚上做梦梦到鬼是啥意思 请问可不可把电动车的5个电池中的2个并联(就是说把60v变成48v),在用48v充电器充,电能不能充满,可不可以这样充 如图,在△ABC中,AB=AC,以AB为直径的圆O交BC于点D,交AC于点E,过点D作DF⊥AC,垂足为F.(1)求证:DF为圆O的切线;(2)若过点A且与BC平行的直线交BE的延长线于点G,连接CG,当△ABC是等边三角形时,求角 请问,电池容量、冲电电流、冲电时间;放电电流、电池容量、放电时间各是什麼关系都什麼关系,怎麼几双! 如图,OC是∠AOB的平分线,P是OC上的一点,PD⊥OA交OA于D,PE⊥OB交OB于E.F是OC上的另一点,连接DF,ED.求证DF=E 新旧电池能否串联使用 充电宝连接电池是并联还是串联 晚上做梦梦到鬼了,是什么意思啊~? 电池中的液体的名称是什么?又是什么化学成分呢?听说过干电池,有湿电池吗? 充电宝里面的电池连接是并联还是串联. 完成句子音乐会以一首英文歌曲结束翻译成英文 汽车蓄电池内的液体是什么如题. 内蒙古呼和浩特市地区哪里有回收废旧铅酸蓄电池的公司或个人? 怎样很快记住一首英文歌 请英文高手帮忙翻译车间标牌1功放组装线2功放部件线3物料中转仓4物料仓5炮筒组装区6成品包装区7物料区 如图所示,A、B两物体的质量分别为mA和mB,且mA>mB,整个系统处于静止状态如图所示,A、B两物体的质量分别为mA和mB,且mA>mB,整个系统处于静止状态,滑轮的质量和一切摩擦均不计.如果绳一端由Q点 十八大提出全面建设小康社会目标新的要求 汽车电池冒液体汽车电池冒酸性液体,有的喷到电缆,管子上,有的流到下面的变速箱壳体上,由于变速箱有凹槽,结果就腐蚀的变了颜色.现在在4S换了新电池,用冲洗了流酸的地方,但还是担心变色 根据材料的化学组成,材料分为哪几大类? 十八大关于全面建设小康社会所提出的目标 电瓶车的电瓶加的液体?电瓶车的电瓶加的液体是什么?在那能买到?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘