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

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


重塑品牌 RIM更名黑莓 发布BlackBerry 10移动操作系统及新手机 NoSQL依赖的不只是大数据 还有应用程序架构的改变 新一代Apple TV增强内在组件 外观不变 加速Web开发的7款知名HTML5框架 Firefox OS开发者日来袭 5小时15款Web应用出炉! 微软发布Office 365家庭高级版 订阅费499元/年 鲍尔默对Office信心满满,十亿用户量触手可及 【多图】梦幻现实 IBM的未来超级计算机水世界 一名骨灰级工程师的OpenStack部署总结引发的讨论 解读DuckDuckGo搜索 百万点击也敢叫板Google 开发者成功学:扔掉你那些很sexy的想法 VMware严控ESXi API 引发用户和ISV被绑架担忧 布局O2O Facebook推出实物礼品卡 iSuppli:微软Surface RT实际销量远低于出货量 业界前三甲:App Store两个刷榜者,站了出来 极客无极限 一行HTML5代码引发的创意大爆炸 将服务器“弃”之荒野? 微软玩转露天数据中心 Dropbox:我们现在关注“内容” 而不仅仅是文件存储 访Teradata Aster Mayank Bawa:抛弃无效数据,让分析走向大众化 谷歌Chrome或新增通知中心 与Google Now整合 传言称HBO节目将登陆苹果Apple TV? Crashlytics被收购,应用崩溃报告服务要火了? 微软公布WP7.8完整功能 诺基亚率先升级 BlackBerry 10或许不仅仅是一剂强心针 一周消息树:专访蒋彪:JavaEE是企业级开发首选 移动周报:从封闭到开放,iOS生态系统要变天? 游戏平台上:Win7已跌破70% Ubuntu突破1% 不再那么传奇 扎克伯格时代或结束 微软应该联手Firefox OS,打造破坏性生态系统 中美IT人才俱乐部第一期:硅谷经验面面观 中国第四季度Android和iOS智能手机出货量高达98% 怎么取得用uniqueidentifier作主关键字的新增纪录 利用C#编写控件直接打印Web(Html)页面(不用IE菜单打印命令)而且可以做相关设置! 关于图片点击显示一种效果的问题,为什么不行? 如何在子窗口中改变含有不同帧结构的父窗体中的域值问题,急!! 请问file函数的问题。 请问pb怎么运行.chm文件?例如 c盘下有help.chm文件,pb 要直接运行他怎么样? CObject类里面的那个Dump是干什么的? 请问通过响应哪个Window消息能知道窗口隐藏(ShowWindow(SW_HIDE))或显示(ShowWindow(SW_SHOW))? 中国同学录 www.5460.net 不能访问,听说被人黑掉了,谴责ing!!!!!!!!!!!!!! 广域网数据传输,欢迎参与讨论: 利用vb.net编写控件直接打印Web(Html)页面(不用IE菜单打印命令)而且可以做相关设置! 求Web Services的下载地址 STRUTS里面的几个问题??大家近来帮忙,初学碰到的??你一定可以解决的??多谢了!! 要考试了 请求高手帮忙!题目如下...... rm 格式的播放不了,哪位知道是用什么放啊? 我在邮件模板里写了个代理,可是不能用,为什么呢? 有关ejb中cmr域与事务的关系的问题? 记录机指针问题 急 大家看看我的jboss有没有问题!为什么jboss的8083端口出错!(1)帖子内容长接着是(2) 我要打开一个coreldraw9.0制作的文件,我下载了coreldraw10.0,发现居然不能向下兼容,兄弟们能不能告诉我那儿有下载coreldraw9的?『猫 用cb做一个ie浏览器,怎么做啊? 关于网页很简单的问题 紧急求助 这里登记一下大家的网站吧! 孟大人  救命哦!!!!!!!!!!!!! 大家看看我的jboss有没有问题!为什么jboss的8083端口出错!(2)接(1) 问大家一个间单的问题。 sybase在XP下安装后不能使用??? 如何使DropDownList呈现时就为展开状态? 求助!动网里提示 Script Engine 异常,请大虾帮帮我啊 大家看看我的jboss有没有问题!为什么jboss的8083端口出错!(3)接(2) 内联函数 菜鸟求教:关于Tcanvas的问题,不知道怎么重画 请大家关注http://expert.csdn.net/Expert/TopicView1.asp?id=1883460 ,谢谢 紧急求救!! 怎么才能在没有VC的环境下运行带有MS DataGrid 控件的程序 URLDownloadToCacheFile 下载的小文件不能立即打开! oracle 9i For Linux 的字符集的问题,谢绝灌水! 当使用了showModalDialog打开的窗口后。。。 我一直将vcl源码作为代码书写标准文档,现发现。。。。。 如何获取当前页的地址。 中国网通真TNND不是东西 在win2003下怎么使用VOS 请教:如何通过VB的宏对Excel进行排序? 青岛发生4级地震,做个调查 对不起,第一次想给给过自己帮助的人分。但都出现这样的提示,请帮忙解决。 驱动不在了,求助!! 建好表后,如何添加数据?不要导入的方法 用dbstart启动时出现Can't find init file ......请指点! 我用17"的顯示器設為1024*768顯示,但pb9開發工具的字體很小,怎麼設啊? 对于解决站点使用基本验证的自定义客户端验证界面的一篇有价值的文章 运行java3D后这样的提示,怎么回事????? shuxue!5÷2/3=(5×__)÷(2/3×3/2)=5×__=__2/7÷9/14=(2/7×__)÷(9/14×14/9)=2/7×__=__1/2÷3/5=(1/2×__)÷1=1/2×__=__在__填上适当的数 英语翻译英语.地道的. 有一个受了诅咒的村子,他们只有3个人,他们有红色或蓝色的眼睛,他们只能看到······有一个受了诅咒的村子,他们只有3个人,他们有红色或蓝色的眼睛,他们只能看到别人眼睛的颜色,看不到 shuxue数学.1.5x+12y=360 7x+16y=500求x 2.x+y=36y-x=28求x 让人倒霉的地方怎么形容 你有一袋糖,有红色的,蓝色的,绿色的.闭上眼睛,拿出两块颜色一样的糖,你需要拿多少次才能?B 实数 shuxue小明买了一箱苹果,装苹果的纸箱的尺寸为50×40×30(长度单位为厘米),现小明要将这箱苹果分装在两个大小一样的正方体纸箱内,问这两个正方体纸箱的棱长为多少厘米? 函数化简求周期区间y=sin^2x+2sinxcosx+3cos^2x求:1.函数的最小正周期2.函数的单调增区间化简单调增区间用导数求的还是怎么求得? 红光照射一只眼睛为什么就会出现看东西一个眼睛偏蓝,一个眼睛偏红的现象? 记数单位,就是个,十,百,千,万.一直到最后都有什么啊报.完了再往后呢? 同样一双滑冰鞋在冰面上滑行比在旱冰上更自如,为什么?(用物理知识回答:熔化·凝固) 为什么很多人看到红色和蓝色闪图都说闪瞎狗眼呢?为什么很多人看到这个就说狗眼怎么的 88065432读作( )改写成以万为单位的数约是( )万;这个数是( )位数,6在( )上,计数单 如要一壶50度的温水,是把直接把谁烧到50度省燃料,还是先烧开半壶水再掺半壶水省材料啊谢谢了, 蚊子是趋光还是趋黑? 百位上的记数单位是(  ) A:一 B:万 C:百万. 一年一度的菊展开始了,公园里满是各式各样的菊花.改为拟人句如题. 搞冷藏车跑运输能赚钱吗 第4 5 6 7 都是选择填空, 电阻R1=10,R2=40和R3并联后,接到电压U=8V的电路两端,干路电流I=1.4A 求R3阻值求详解 15米冷藏车跑运输好干吗? 6年级几个题(填空4题,判断5题,一填空.1.( )除以5=( )分之十五=1.2=36:()=( )% 2.一个半径为6厘米的圆,他的周长( ) 3.在比例尺为1800万分之一的地图上,量的甲乙两地间 并联电路各支路两端电压都相等,那么如果一条电路上并联了三个电阻,R1、R2、R3 并联电路各支路两端电压都相等,那么如果一条电路上并联了三个电阻,R1、R2、R3.且电阻值相等.那么根据欧姆定 运输香蕉使用普通车还是冷藏车? 1+1=?1+1=?,shuxue ALCL3 NA 单质一起加入水中生成气体和沉淀ALCL3 NA 单质一起加入水中生成气体和沉淀NA 和H2O反应生成0.672L气体问沉淀最多生成多少克 冷藏车运输生意怎么样 填空4.5.6. 南辕北辙文言文是一个什么体裁? y=1+xe^y,求y'|x=0 4,5,6,选择求解! 将Na和Al共0.5mol方入一定量的水中充分的反应后无固体残留,放出氢气7.84L得到50ml浓液求所得浓液中各种离子的物质的量浓度由大到小的顺序是什么?向所得浓液中加2mol.L-1的稀盐酸多少ml时产生 为什么我有假面骑士w的变身卡但不能变身 y1=3分之2x+1,y2=6分之10x+1,当x为何值y1比y2大1 什么是文言文南辕北辙的体裁? 假面骑士大乱斗怎么变身decade的超级形态、可以叫甲斗和555的 已知y1=3/2x+1,y2=6/10x+1,当x= 时y1与y2的差是1 下列哪些说法是正确的?( )(1) 图像都是由像素组成的,通常称位图或点阵图.(2) 图形是用计算机绘制的画面,也称矢量图.(3) 图像的最大优点是容易进行移动、缩放、旋转和扭曲等变 求《假面骑士超电王之红篇》与《假面骑士超电王之蓝篇》的中文字幕啊! 已知Y1=(2X+1)除3,Y2=(10X+1)除6,当x=什么时,与Y2的差是1 请区分下面两个英文句子what's your friend look likewhat does your friend look like用is和用does用起来有什么区别 假面骑士里面有个用虫子变的是谁 已知y1=2x+8,y2=6-2x (1)当x取何值时,y1=y2? (2)当x取何值时,y1比y2小10 函数y=sin x/1+cos x的周期等于 谁能告诉我以下句子该怎么弄?英语强的帮帮忙She is sitting in the chair now【改为否定句】 Thoy are swimming in the pool【变为一般疑问句,并作否定回答】Students are reading in the classroom.【对划线部分提 单位废业后账本怎么处理 大门对着楼梯好吗求答案 SF6的电子式 谢谢(shuxue)知道一个正多面体棱 点 面的个数,怎么求他的面为几边形?就比如说正八面体的面为三角形,怎么得出来的呢?(求您千万不要说靠空间想象能力!)(谢谢非常) 关于熔化一章的物理题下列正确的是A雾是漂浮在空气中的水蒸气B雾是大量水冰晶吸热熔化成的大量小水珠C有的气体在温度降到足够低时都能液化D用压缩的办法可以使所有的气体液化 一题而已啦!1:已知y=y1-y2,y1与x成正比例,y2与2x-1成正比例,当x=6时,y=3,当x=-2时,y=-4,则y与x的函数关系时是?,当x=0时,y=___ 比较下面两组句子有什么不同我在7岁的时候第一次知道这世界上存在者一个“北大”.第一次知道这世界上存在者一个“北大”是我在7岁的时候.表达效果有什么不同 shuxue a小弟有几道题不懂,指点一下,已知函数Y=X^2-3X-4 求函数图象的顶点坐标,问题补充:求出函数图象的坐标啊,是几 昆山自来水收费标准,还有污水处理费是怎么算的 为什么烧开的水会让盖子翻动 什么是倒霉蛋? 已知y1=2x+8,y2=6-2x.(1).当x取何值时,y1=y2?(2).当x取何值时,y1比y2小5? 水烧开了为什么会滚?是什么让水动了起来呢? 古诗 小池后两句常用来形容什么人 为什么戴完红蓝3D眼镜之后,一边眼睛看东西是蓝色的,一边是红色的呢?我买了一副红蓝3D眼睛,在电脑上,看3D电影、玩3D立体游戏的时候都得戴它,这样才可以看到立体效果.通过红蓝眼镜看世界, 以色列批准在定居点新建1500套住房奥巴马幕僚曾考虑用克林顿替换拜登法著名导演吕克·贝松出席《LUCY》非洲部落男子比胖大赛:最胖者获封“英哈佛大学肯尼迪政府学院创院院长:高效安倍护卫车连续两日发生交通事故 日媒德国纳粹盖世太保头子被证实已误葬入犹日本学者发现有助改善糖尿病和肥胖症的俄建议叙政府与反对派在莫斯科举行非正日本警官爱用枪对准下属遭停职 称只为卜拉希米:日内瓦会议不能缺少叙反对派奥巴马出席投资美国峰会 承诺加强吸引日再上传英文版主张独岛主权视频 韩再德国成欧洲首个允许出生登记性别栏空白德国成为欧洲首个允许出生性别栏填写空会议记录爆奥巴马医改网站开通首天仅6法一酒店房间装透明天幕 住客仿佛置身韩政府再次敦促日方删除主张争议岛屿主日本东京民众提前两天排队等待购买新款调查报告称澳移民目的地开始从欧美转向日本学生12万粒杏仁膏立体再现法国印小米以旧换新服务正式上线 旧手机可折小米以旧换新服务正式上线 旧手机可折《极品飞车12:无间风云》移植版登陆马斯克的猎鹰9号成功返航 贝索斯发推《问道:奇经八脉》悟道系统重写战斗格年末电影市场存三大悬念,未来的市场格英伦金融「原油交易策略」:供应过剩加躲避高速隐形杀手,学会这5招就够了时隔3个月再放“曲面”大招 乐视超级2015年十大网络热词公布:“主要看贾玲身为一个胖子,自拍却有尖下巴!错过了最佳生育年龄,还能生二孩吗?什么是糖尿病朋友饮食治疗的“吉祥三宝新是财经—周二涨停总结!【2015-穿高跟鞋要了她的命 女司机开车时这些钓鱼台卖“国宴”年夜饭:4菜1汤 3男子盗墓喝随葬茅台:以前没尝过 太过多地传“地铁发生持刀挟持人质事件”实马新明获“2015中国全面小康杰出贡榕对涉及大众创业万众创新收费实行减免德国交批准书加入亚投行 成亚洲外最大
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘