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

调用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 菜 单 项, 通 过 菜 单 项 调 用 它, 效 果 更 好。
工作效率低下?业内人士建议你切勿追求完美 Mozilla发布可视化在线跟踪工具Lightbeam 望向海外:十大移动应用开发外包公司 Facebook支撑万亿Post搜索背后的技术窥探 云OS:共创智能化生态圈 云计算,让游戏世界更加精彩 360推儿童卫士手环,你怎么看? 量产谈判正在进行时:谷歌手表或比Google Glass先上市 Mozilla发布新版Firefox 25 提供支持Web Audio API UC产品总裁何小鹏:轻应用,做什么?怎么做? 高德携手阿里云发布“LBS云”,账户打通只是第一步 最后2天!2013移动开发者大会5折抢票倒计时 大数据如何改变在线广告业? 摩托罗拉推开源硬件平台计划Project Ara 七个垂手可得的敏捷开发工具 微信新版公众平台调整细节381处 300/次认证费引争议 libgit2:纯C语言实现的Git开发包 MongoDB的得与失 开箱即用!Android四款系统架构工具 谁说Kinect只是玩物?微软研究院使用它实现口语手语实时翻译 新浪微博推出粉丝服务平台 引发两微PK大战 MDCC2013移动开发者大会最新日程发布 门票优惠最后1天 英特尔CEO:EUV光刻技术或助力芯片突破摩尔定律 从微软大数据日看到的,银行、交通、医疗实践之路 IDC:iPad市场份额遭Android平板蚕食 滑至29.6% [TUP第30期]直击移动应用开发难点 探讨跨平台最佳解决方案 用动态语言编写程序,命名更重要 命中率80%,磁盘I/O减半,Flashcache的发展史 这次它很低调:谷歌正式发布Android4.4和Nexus 5 iPhone 5S来了,iPhone 6还会远吗?概念机来袭 [开源推荐]PhysicsJS:基于JavaScript的强大的物理引擎 急!!!谁有RTF文件格式中元素说明?给一份!谢先!!!!70分奉上!!! java plug-in 1.3.1是什么东东?如何用? ASP中用foxpro数据库,删除记录的问题,我急。。。 急急急 兄弟我用HTML Help workshop 制作帮助,无法显示图片和默认页,那位来切磋一下好吗 怎么判断打印完毕和打印故障和取消打印的状态? php网络程式的问题。 用C++如何实现多进程ftp功能? 加了个硬盘,整个系统全乱了,怎么办? delphi 6手册组,我翻译好的文件无法上传,谁知道该怎么办? 我不想用第三方控件,如果我想使把Panel中的内容达到一个清屏效果(便如由上向下刷新,但最前有一些粉碎状效果,或是百叶窗什么的。) 有关异常的问题 如何用最简单的方法控制在数据窗口最后一列按回车键增加一行? 哪有ASP的技术手册呀?有关组件用法的 那位能有一个使用xpoint的应用?我不知道应该怎么用xpoint,有什么好??? 为什么我建立了两个读写线程,当频繁读写硬盘后,无法刷新界面呢? 再请教:如何得到浏览器的窗口的尺寸? 高分求助!!!怎样用VC在98下建立一拨号连接? 曾经的话题想改变命运的请走进来不想再说多少有自已看懂了的曾经在这里发过言的朋友可以和我联系,QQ12545029,scaer123@163.net socket编程,如何使connect()30秒超时???? 请问国内有OpenGL的比较全面的代码下载站点吗?能否提供几个URL?谢谢! 关于操作符重载的问题 有什么办法隐藏一个文件夹,使别人清除隐藏属性也看不到。 com的奇怪问题,27分 新手三层结构。问题多多。。。 jsp怎样连数据库? 高分讨教:这个vb+SQL2000的出错提示太奇怪了. 有在深圳考程序员的吗? 大家觉得电信好还是联通好啊 为什么在Win2000下我的GeForce GTS的显卡用了最新的公版驱动,在Windows优化大师中测试 一个小问题,如何在Access97数据库中创建和使用临时表??? 请问一个问题:有一个字符串,我想去掉左边固定的几个字符,剩下右边未知的几个字符!怎么做?谢谢~~ 菜鸟提问,网页上的自动变化的图片用什么作的呀? 请问哪有免费的web mail系统下载? 如何新建一个数据链接? 我想给自己的控件加一个ImageList和ImageIndex属性,选中ImageList后,在ImageIndex中显示图像列表。应如何做? 曾经的话题想改变命运的请走进来不想再说多少有自已看懂,了的曾经在这里发过言的朋友可以和我联系,QQ12545029,scaer123@163.net 如何在ASP中实现广告的按比率播放? dbedit 的问题,???????? private 里声明的函数居然调用不了? 如何得到字体的宽度和高度? ???????如果你说你对DELPHI懂,请进 SAMPLE QUESTION 在DELPHI中如何使用其他语言开发的主见? 请问LINK : warning LNK4098: defaultlib "mfcn42d.lib" conflicts with use of other libs; use /NODEFAULTLIB:library是什么含义? 请问,如何删除一个单项链表的头节点?? 怎样成为编程高手!请教高手们!! b/s程序在客户端生成EXCEL报表问题,梦天请进? 求解:如何将一幅图片或文件存入数据库??? 在用UpdateBatch方法保存纪录时VB提示:数据提供程序或其他服务返回E_FAIL状态。错误号:80004005,我死活也调不出来,还望各位高手指点一二。 菜鸟求教:要怎样去买一款满意的笔记本电脑?(29分) 我新生成一个继承自TPanel的类,但我想有其Create时,在其上放置一个TImage,请问: 第2题怎么做?要列算式 如何将二进制的小数转化为十进制,八进制,十六进制 2011年3月1日是小红的第13个生日.小红过生日那天,小红的妈妈说:你今年都过13个生日了.我明年才过第十个生日.请问:小红的妈妈出生于哪年哪月哪日?明年小红的妈妈几周岁?急!快点要算式 第(2)题怎么列算式啊?急 小红今年12岁,才过了3个生日.小红是( )年( )月( ) 日出生的: 2009年小明6岁,过了6个生日,他妈妈只过了8个生日,问他妈妈几岁?为什么他妈妈只过了8个生日? 东东今年十三岁 却只过了三个生日 他是几月几日出生的 为什么 问题解答 满12岁生日,只碰到3个生日,问是哪一天出生的(要列式计算) 小玲的妈妈是1972年出生的,今年她过了9个生日,她今年几岁?她是生日是几月几日? 半圆的周长等于该圆周长一半, 小红今年八岁了,只过了2个生日,你知道她什么时候出生的 2004年6月1号,小明问妈妈多少岁了,妈妈说我到今年只过了9个生日,问;今年妈妈多少岁 半圆的周长等于圆周长的一半.判断题急 一个圆的周长,直径.,半径的和是13.92分米,这个圆的面积多少? 根号256的算数平方根乘多少等于20 半圆的周长等于圆周长的一半,加上一条直径.老师说对的,我觉得不对,因为半径不同.问下.谁有较充分的理由说明? 1,2题,2题算式 求下列各数的平方根;361 (-3)的平方 根号16 0.01.说出各数的意义,并求出值;根号0.04,负平方根256根号一百分之九。解下列方程;25x的平方=16,(x-1)的平方=四分之一,25(x-2)的平方=49.以 请教我做这两题,请第2题请列算式. 1、2两题,算式是什么? 7.5*0.8=6,3.84/4.8=0.8 列成综合算式26.4-1.4=25,5.4/4=1.4,也列出综合算式 注意比较下面两题的区别,再列出算式.1.一堆贷堆运走3分之2吨后还剩4分之3吨,这堆货物有多少吨?2.一堆贷堆运走3分之2吨后还剩4分之3吨,这堆货物有多少吨? 小红的妈妈比小红大24岁,可是她们过的生日一样多.猜一猜小红妈妈的生日是几月几日 1、2题要算式谢谢给好评 就这两题了,希望能列出算式 小红的妈妈比小红大24岁,可是她们过的生日一样多.猜猜小红妈妈的生日是几月几日 根号5减1的平方根是多少? 帮我列出这道题的算式. 小红的妈妈32岁的时候只过了8个生日,她的生日是几月几日? 如果一个数的平方根是根号5,这个数是多少,他的平方根是多少写出两个无理数使他们的和为有理数( 写出两个无理数,使他们的积为有理数( ) 在数轴上,到原点距离为根号5个单位的点表 (1)根据科学家的推算,地球上1千克的物体在月球上重约0.16千克.王明体重38千克,在月球上的体重是多少千克?(2)小明做一到除法算式时,把除数6看成9,算出的商是3.4.正确的商应该是多少? 小红的妈妈比小红大24岁,可是她们过的生日一样多,小红妈妈生日是几月几日 十六进制带小数转换成十进制例如说126.398(H)转换成十进制 该怎样转换?还有 例如说35.98C为十六进制 可以转换成十进制吗?有这种说发得吗请写出转换的详细过程 数学试题行列式的计算计算行列式1、D=2 3 4 53 4 5 64 5 6 75 6 7 8的行列式值,望各位朋友详解,2、已知行列式a1+b1 a1-b1a2+b2 a2-b2 =-4 求a1 b1a2 b2 圆的周长是2πr,半圆的周长等于什么 小红的妈妈比小红大24岁,可是他们过的生日一样多,猜一猜小红的妈妈生日是几月几日 小学数学试题的难度系数如何计算 要列算式4,5两题 小红的妈妈比小红大24岁,可是他们过的生日一样多.请你猜猜妈妈的生日是几月几日 圆的周长等于他半径的几倍 来人啊,要列算式啊1.甲乙两地相距300千米,客车从甲地开往乙地,每小时行40千米,1小时后,货车从乙地开往甲地,每小时行60千米.货车出发几小时后与客车相遇?2.客车和货车同时从AB两地相向开出 已知圆的面积求圆的半径、直径求公式 圆的周长是半径的几倍 妈妈2012年36岁,却只过了9个生日,妈妈是哪月哪日出生的? 1,2题帮助一下(要算式) 圆的周长是它半径的几倍? 小红诞生在1996年2月29日那末到2012年的2月29日她是多少岁、过了几个生日拜托了各位 负根号三是谁的平方根 圆的周长与半径的比值等于( ). 直径是18厘米,半径多少?圆的周长是多少?圆的面积是多少? 负三次根号-64的平方根是 已知b=根号-(a-3)平方+4,c的平方根等于它本身,求a+根号b-c的值.急用! 4-2=4÷2举例像这种的式子 负根号3是什么的一个平方根 式子怎么列 第二题 1,2题要算式 48除以16等于3.为什么十进制48转十六进制是30? 列算式 二进制,八进制,十进制,十六进制的英语单词是什么 一个半圆的周长是5.14厘米,这个半圆的面积是()
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn