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

调用API函数设计ABOUT窗口 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
调用API函数设计ABOUT窗口 -VB资料

江 苏 省 镇 江 港 务 局
蔡 可 训
---- windows98 系 统 的 许 多 软 件 中 都 包 含 一 个windows 风 格 的about 窗 口, 它 向 用 户 反 映 了 当 前 系 统 的 一 些 基 本 信 息, 其 中 显 示 有 关windows 及 其 应 用 软 件 的 版 本、 版 权 和 系 统 的 工 作 状 态 等 信 息。 笔 者 用VB 6.0 通 过 调 用API 函 数 设 计 应 用 系 统 的ABOUT 窗 口。 效 果 如 图1。( 略)
1 . 建 立 含 有 如 下 控 件 的 窗 体:
   控 件   NAME   CAPTION
   窗 体   FORM1   用VB6.0 设 计ABOUT 窗 口
   命 令 按 钮  COMMAND1 关 于 销 售 管 理 系 统

2 . 程 序 清 单:
---- Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
---- Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

---- Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hinst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

---- Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const GWL_WNDPROC = (-4)
Private Const GWL_HINSTANCE = (-6)
Private Type SYSTEM_INFO
    dwOemID As Long
    dwPageSize As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOrfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    dwReserved As Long
End Type
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1

Private Sub Command1_Click()
Dim hinst As Long
Dim icons As Long
Dim abouts As Long
Dim dispx As String
Dim dispy As String
Dim cps As String
Dim space1 As String
Dim space2 As String
hinst = GetWindowWord(Me.hwnd, GWL_HINSTANCE)
icons = ExtractIcon(hinst, "d:\fpw26\foxprow.exe", 0)
Dim sysinfo As SYSTEM_INFO
Dim cls1 As Long
Dim cls2 As Long
Dim secs As Long
Dim bytes As Long
Dim buffs As String
buff = "C:\"
x = GetDriveType(buffs)
x = GetDiskFreeSpace(buffs, secs, bytes, cls1, cls2)
cls1 = cls1 * secs * bytes
cls2 = cls2 * secs * bytes
space1 = "C驱动器总共容量:
  " + Format$(cls2/1024, "#, #") + "千字节"
space2 = "C驱动器可用容量:
  " + Format$(cls1/1024, "#, #") + "千字节"
x = GetSystemMetrics(SM_CXSCREEN)
dispx = "显示器分辨率:" + Str$(x)
x = GetSystemMetrics(SM_CYSCREEN)
dispy = Str$(x)
Call GetSystemInfo(sysinfo)
Select Case sysinfo.dwProcessorType
Case 386
   cpus = "处理器类型:386"
Case 486
   cpus = "处理器类型:486"
Case 586
   cpus = "处理器类型:586"
End Select
abouts = ShellAbout(Me.hwnd, "演示程序",
  "销售管理系统V2.0版权所有[C]1998-1999蔡可训"
  & Chr$(13) & Chr$(10) & space1 & Chr$(13) & Chr$(10)
  & space2 & Chr$(13) & Chr$(10) & cpus + " " + dispx +
   "*" + dispy , icons)
End Sub

---- 以 上 程 序 在WINDOWS98,VISUAL BASIC 6.0 FOR WINDOWS 环 境 下 运 行 通 过. 用 户 可 以 将 其 加 入 应 用 系 统 的ABOUT 菜 单 项, 通 过 菜 单 项 调 用 它, 效 果 更 好。
【最具价值CTO评选秀】能做存储的超级计算机——任宇翔和以色列团队的创业故事 OpenStack Swift存储策略 分享5个可视化的正则表达式编辑工具 在iOS程序中使用Bluemix云推送服务 GitHub开源任务列表组件 表白健身小能手!详解Apple Watch特色功能 高逼格不任性!个人智能航空摄影飞行设备ZANO Clappr——开源的Web视频播放器 东软举办2014解决方案论坛 将全面推进BBC战略 Google Glass已死,智能眼镜长存! 五个步骤,保护移动应用免受恶意攻击 声波改变移动社交——参加联想“茄子快传”创意征集 赢取平板电脑大奖! 车载硬件Baen:被游戏化的驾驶体验 深入解析Docker背后的namespace技术 响应苹果要求:Qt 5.4、Qt Creator 3.3同迎RC版 击碎泡沫谈发展,盘点OpenStack商业生态圈! 2014年11月操作系统份额:Windows 7雄居第一,XP跌新低 微信开放平台上线统计报表功能 【向导】如何开始学习高伸缩性编程? 基于Apache Samza,揭秘LinkedIn架构背后的技术 Aeron:每秒可以传递数百万消息的低延时开源消息系统 英特尔物联网马拉松:用创造力改变生活 年末总结:2014年全球手游市场发展的六大趋势 Saber——模块化、组合式的移动前端框架 什么仇什么怨?还原日本反美颜应用Primo真面目 横跨2D与3D!专属C#开发者的超强游戏引擎Paradox 首份“2014年移动外语学习行业报告”等你下载 《近匠》Ayla联合创始人张南雄:物联网发展的三个阶段 神器 VisuAlgo:通过动画学习算法和数据结构 【工具推荐】QWrap——开源的前端JavaScript框架 老外看中国:移动应用UI设计的十大精髓 我用new新建了若干个基类是cwnd的窗体cmywnd,然后想在每个窗体内定时让它们自己消失,我应该用什么函数?是destroywindow吗?最后还用不 vs.net 2003 中文版 的帮助MSDN是不是有问题? 清问这个SQL有什么错,还是FB1。0不支持? 是我的usb口的问题吗?? 怪事 急 路径绝对正确,为什么服务器只能下载rar 不能下载EXE 文件 已知,f(x)=arctanx,其二导f''(x)=(-2x)/(1+x*x)^2,f''(0)=0,试: 一个有趣的问题,请大家看一个小程序,来者有分。 这个写者优先是不是有问题????麻烦看一下,小弟实在看不出错在哪里 请问有没有办法得到[系统托盘]上其它程序的所显示的Icon?? 已知,十六进制(34.6)16=(28.75)10(十进制) 高手推荐几个Palm开发的网站?最好有源代码! 请教一个问题 触发器(加密)内容可以查看吗 怪,文件路径绝对正确,EXE文件不能下载,其它格式正常。 在编写的用户控件中公开所引用控件的事件怎么实现啊 这是我的usb口的问题吗? 考程序员前想先考全国三级,请问三级种哪个科目考C编程?何时报名? 调用DLL时候出现Bad Dll calling convention错误,为什么?代码如下 如何建立一个小数据库? 我想问下,网络技术到底是指什么??? 为什么会出现这个问题呢??急救??? 在不同操作系统出现不能正常运行的问题,和默认字体语系乱码问题 C# 静态类成员 新手请求各位前辈帮助 如何查询我连接到哪个数据库? 哭着请求帮助。。。。。页面显示问题!!在线等着 网络技术到底是指什么???? 我想在<<三国九>>里输入正确的中文,有法子么? 能帮我改改么? 紧急求助,请高手支招 请问在JTABLE中如何将某几行设置成可以被选择的,其他几行设置成不能被选中的? 请问怎样修改SDI框架的标题及去掉最大化按钮??? 在自定义的用户控件上公开引用windows控件的事件怎么做啊!!谢谢 2003中为什么IDE设备只能用PIO模式? 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 求出摩擦力就可以了 北方冬天紫檀手串要包浆晚上需要放在袋子里吗 一个长方形的长是10cm,宽是8cm,高是3cm,把它切成两个完全一样的小长方体.它的表面积最多增加多少?最少增加多少? 摩擦力的方向是 小肠黏膜细胞内合成的脂蛋白主要是低密度脂蛋白 对还是错的 建一个高2米宽10米长24米的彩钢房需多少钱?直筒子的 声控灯原理 任何三角形,都能折叠成一个长方形,剪几个三角形试一试,折折看,你知道这是为什么吗? 声速是由传递声音的物质决定的这句话对吗? 关于摩擦力的问题重10N的磁铁在黑板上静止,则黑板对磁铁的摩擦力的大小为______,如再用5N的压力F静压在磁铁上,则黑板对磁铁的摩擦力的大小为______,如要将磁铁竖直向上匀速运动,则拉力为 不管是一个什么形状的三角形,都能折叠成一个长方形,剪几个三角形试一试,折1 设P为等边△ABC内一点,PA=3,PB=4,PC=5,则∠APB的度数为( ) 合力3T叉车机械式换挡变速箱,前进后退均不行走,是变速箱什么坏了 如图,三角形abc中,ab=8,ac=6,bc=9,如果动点d以每秒2个单位长的速度,从点b出发沿边ba向点a运动,直线de平行bc,交ac于e,.记x秒时de的长度为y,写出y关于x的函数关系式,并画出它的图像 在三角形ABC中,AB=AC=6,P是BC上任意一点,求PC*PB+PA*PA的值(提示:利用勾股定理)不要用三角函数,就用勾股定理! 解析:如图所示,固定斜面倾角为a,整个斜面长分别为AB、BC两段,BC=2AB,小物块P(可视为质点)与AB、BC两段斜面间的动摩擦因数分别为μ1,μ2 ,已知P由静止开始从A点释放,恰能滑动到C点而停下,那么a 紫檀手串多久出包浆 细胞呼吸中的[H] 怎么读 合力叉车490发动机总是爱坏水泵是怎么回事 {甲乙丙共有1580元,甲乙钱数比是2;3,乙丙钱数比是5;4,甲乙丙各有多少元}{甲乙丙共有1850元,甲乙钱数比是2;3,乙丙钱数比是5;4,甲乙丙各有多少元} 在音标里I(I两旁有中括号)怎么读?在一组音标里I在前面拼什么?在后面拼什么?在中间呢 合力叉车1.5T无级变速480发动机坏了可以换哪种发动机 续电器如果弹簧烂了还能正常工作吗? breathe怎么读 合力叉车5t,2003年,无级变速前后各2档的,变速箱型号是Y10,油标尺杆没了,不知加多少油量.说明书也没了,我参考了大连车是18升,但我感觉不够.不知那位能有此车,量一下标杆长度,或说明书上标 三角形的五个心在那?(请截图) 如图所示,在水平向右运动的小车上,有一倾角为α=53°的光滑斜面,质量为m=2kg的小球被平行于斜面的细绳系住并静止在斜面上,当小车加速度发生变化时,为使球相对于车仍保持静止,则:(1)小 一条山路240米,小华上山每分钟走40米,10分钟往返一次,小华下山平均每分钟走多少米? 三角形的四个心是什么 如题,因为我要家教所以想知道进度. 小华从家到学校去上学每分钟行240米,已经走了走了4分钟,小华的爸爸发现小华忘带数学作业,就马上骑自行车追,6分钟赶上把作业给小华,小华的爸爸用怎样的速度赶上小华? 三角形的五个心三角形有五个“心”,这个大家都知道.那这五个“心”有什么定理啊,或者应用之类的东西么?我还没有学过,接触到这些便想了解.五个心是什么这个我知道,我只是不知道在做 牛顿的“微粒说”和爱因斯坦的 “光子说”的区别 如图所示,两物体A,B(小的是A)通过跨接于定滑轮的轻绳连接,若两物体处于相对静止(0°<夹角<90°)下列说法正确的是A.绳上的拉力等于A的重力 B.B对地一定有压力 C.B对地 如图所示在竖直平面内固定着半径为R的光滑的1/4圆弧槽,它的末端水平,上端离地面高H,一个小球从上端无初速度下滑.求(1)小球做平抛运动的时间(2)小球做平抛运动的水平射程S 牛顿的微粒说和爱因斯坦的光子说本质相同么 和摩擦力有关如图所示,人重600N,木块A重400N,人与A,A与地面的动摩擦因数均为0.2,现人用水平力拉绳,使他与木块一起向右作匀速直线运动,运动摩擦不计,求(1)人脚对A的摩擦力的方向和大小图 具有防止动脉粥样硬化作用的脂蛋白是?A.CM B.VLDL C.LDL D.HDL 德国阳光电池有一个参数是C10 1.80VpC 20℃ 一块地有2.5公顷,用2台同样的抽水机浇水,要5小时,平均每台抽水机每小时可以浇地多少公顷?今天就要, 三个三角形变成九个,怎样做? 怎么证明磁铁已经消磁了?如果用高斯计测量的话,数据在那个范围才表示磁铁已经消磁了 摩擦力和什么有关 W如何画三笔变成九个三角形? 讨论函数f(x)={-x-1,x>0;-x+1,x 摩擦力与什么有关 均值不等式为什么要证明等号成立今天刚学,做题时不会了.均值不等式里证明等号成立有什么用?最好再介绍一下均值不等式求最值的大致步骤. 一个长方体长24cm,把它锯成每段是8cm的小段后,表面积增加了16平方厘米,求原来这个长方体的体积. 摩擦力跟什么有关? 均值不等式ab异号如果ab为异号,那么均值不等式怎么用?如果ab异号,那么均值不等式的公式是什么? 消防水带规格10-65-20,10,65, 发电机电压高低和什么有关 均值不等式,求:(a+b+c)/3≥_______,当且仅当_____时取等号? 有衬里消防水带的有多长,口径有多少厘米? 语音声控灯的原理是什么? 低密度脂蛋白进入细胞的方式是 函数y=1/(x+3) 的间断点是? 想买小米盒子,现在能买到吗? 由图为什么可以知道携带胆固醇的低密度脂蛋白进入细胞的方式是胞吞和胞吐? 为什么曲线运动所受合外力有可能是恒力有没有例子说一下 谢谢了 媒体揭“神医”胡万林江湖路:曾在新疆纽约华裔社区发生凶杀案 4名儿童被刺美国安局:奥巴马并未参与讨论监听默克美国国安局:奥巴马并未参与讨论监听默马英九数度否认两岸只经不政 重申先经中国不足3成人为城镇户籍 超7成农民北京最牛违建被疑停工 城管称楼体结构北京今日将有中度霾 局地能见度不足5阿尔及利亚宣布在其南部发现大油田商业养老模式存瓶颈 难获医保定点资格非正式出口民调显示执政联盟候选人胜出三部门:对芦山地震受损严重的企业将免官员:领导干部出问题犯错误原因之一是中国海军实兵演习遭外国舰机跟踪 训练国际社会热议习近平讲话:将周边外交提韩媒称中国顾客在韩免税店消费额首超韩土耳其肉夹馍“创始人”在德国去世享年洋葱涨价让印度执政党担忧 街头贩卖廉纽约华裔社区凶杀案致4儿童丧命美最大银行被罚130亿美元悉尼歌剧院走过40年美丽旅程9岁男童因脑瘤离世捐献器官救5人 大美军司令:解放军向我们展示歼10战机妙龄女松花江溺亡 身着白裙《朱镕基上海讲话实录》(线装本)首发川大教授古体诗获鲁迅文学奖引发争议成都警方打掉特大发卡招嫖团伙 抓获涉上海自贸区土地正式启动“二次开发”亚太经合组织代表议公私合作制 促基础老人看管孩子大意 一个喝小酒走失孙女合肥设立6亿元自主创新专项资金屯溪区完成今年“三小”改造工程肥东县响导乡留守儿童托管中心百余儿童北洋军舰“主炮晾衣”存疑 或为夸张编黄山实行物价上涨与补助挂钩联动机制湖北巴东县“最牛村官”曹祖强的生财之湖南举报食药监局前局长官员:不认同药西瓜5件事让你“瓜”目相看乌克兰顿涅茨克拟将麦当劳改免费餐厅 韩国开枪警告“越界”朝鲜渔船 朝发文中华台北代表队出征南京青奥会港股恒生指数8月13日收市升200点
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘