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

调用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 菜 单 项, 通 过 菜 单 项 调 用 它, 效 果 更 好。
[回顾]比尔·盖茨传奇的前半生 IT基础设施与运维论坛:IT基础设施及运维经验分享 记华为HCC2013 Day1:发力高端存储 HCC 2013虚拟化论坛:虚拟化未来发展方向 Windows 8操作系统市场份额增至7.41% Windows 7仍最受欢迎 【开源专访】Sea.js创始人玉伯的前端开发之路 SDCC 2013:阿里周宝方谈“去IOE”战略及实施 百度和高德:最后谁是地图的王者? 【CTO论道】瑞智和康CEO陶建辉:软硬结合是消费电子新潮流 10大高效率原型设计工具 JIRA与敏捷:李小龙教给我们的敏捷开发之道 百度开放云:Light Up The World,与开发者共享云未来 有胆你就来!11个在线编码大赛 CTO如何避免决策失控:第一步-定义角色 后机械硬盘时代,那些引领风骚的闪存初创公司 致远文杰:传统企业如何实现移动化转型? 记华为HCC2013 Day2:SDN开放编程系统OPS打造生态圈 HCC2013:华为FusionCube融合至简,性能至优 已确认Stephen Elop候选微软下任CEO 英语对于软件开发者来说到底有多重要? SDCC 2013中国软件开发者大会成功落幕 新浪微博宋琦:PHP在微博优化中的“大显身手” 8月份浏览器份额:IE浏览器PC端出现反弹 移动端跌出前五 如何让Ruby项目速度提升10倍 跨平台进行到底:Facebook发布Unity SDK 云薪资管理初创公司ZenPayroll:年处理薪资超1亿美元,获多位知名CEO力挺 Twitter开源Summingbird:近原生编码下整合批处理与流处理 亚马逊推Matchbook 欲将顽固纸质书读者拉向电子书 Broadcom为可穿戴设备推新开发平台WICED 再战江湖 New Kodak还牛不牛? 郭理靖:公、私有云架构异同点与难点 请问谁有符合“c99标准”的编译器 关于盘符的问题,即光盘盘符为何在硬盘盘符之前 冷门问题,会者请多多指教!(发言者都有分) 这样的sql语句怎么写?::::::::::::::::::::>在线等待!! VB--->传真???? 用VB如何收发传真,请各位赐教....(急) 谁知道这个问题的答案? 请问怎样把主框架的两个滚动条去掉?? 那有JSP上手的源代码学习下载。在线等待 知者不难的问题---oracle里有没有像sql server那样生成diagram(表间关系图)的工具? ASP初建网站外,还可以用在哪些方面? 请问序列号在那?? 如何建立与有数据库密码的ACCESS数据库的连接,错误提示:没有可安装的ISAM 指的是什么错误 各位前辈,如果在公司的试用期觉得工资低了,怎么样和公司谈好一点?谢谢! 为什么取不出id字段值! 如何讓SELECT刷新本頁時現有的數据不會消失? 请问这是怎么回事? c语言的源代码!哪里有? 如何在正在运行的窗体中实例化一个控件。 关于向文件中写入表格的问题!谢谢! 爽,两天来在VC版得分2205分,现在偶的专家分有3406了,希望明天能达到5000,这样我就有一个星星了 有人能给我详细解释一下GDI位图和DIB位图的区别吗 smilejiangjun(smile将军)请进 打印问题!! 快来啊,哥哥! 请问,怎样将.fox的文件变成.prg程序 各位前辈,如果在公司的试用期觉得工资低了,怎么样和公司谈好一点?谢谢! 在安装好的机器中提取声显卡驱动吗? 大家有没有兴趣在北京举办一次聚会,大家探讨Java技术? 数据库中的某个字段的数据中包含  ,当把该字段绑定到dropdownlist后,  就显示不出来了.? vb怎么处理导出的历史文件 用户控件问题?急、急、急??? 原文:文字接龙---喜欢玩的请接下去!(转) CInternetSession.OpenURL()打开这个网面,只能得到93字节,怎么处理??? 求救:如何低级格式化硬盘,用什么dos命令? delphi+mapx的问题,求救! 读取数据库怎么这么慢?是不是我的方法不正确? form提交数据后,另一页取值为空?200分相送!! 关于windows.net server的安装 打印问题!!(50) 如何编程获得win2000本机的MAC地址?不用Netbios的方法阿,谢谢 讨论一下,对于个人来讲计算机可以帮助我们做什么? 谁有WS-FTP pro 7.5的注册码! 怎样改变MENU的字体? 请问有谁愿意转让《Object-Oriented Software Engineering: A Use Case Driven Approach》一书 讨论一下,对于个人来讲计算机可以帮助我们做什么? 谁用C++ BUilder写过类似sql 语句生成器的东西。 有谁知道 NetBoy 3.0.1 的序列号?第一个答对者20分全给!本人说话绝对算数。 ADO,如何判断一个连接对象(_ConnectionPtr)是否已经打开? IIS 5.0 & exchange server 有沖突? 修改数据库问题,急,在线等待! 讨论一下,对于个人来讲计算机可以帮助我们做什么? 人体细胞分化成上皮细胞,上皮细胞是否会发生分裂体细胞不是会发生有丝分裂么,怎么答案说高度分化的细胞不能分化? 以前有抗体,四年前注射了一次加强针,两年前检验抗体呈+号,现在还有抗体吗?男朋友小三阳,拍拖一年,经常接吻,我会被传染吗? m^2n-5mn+6n因式分解 是什么决定了人体上皮细胞和肌肉细胞的不同特性 人体细胞中分化程度最低是? 因式分解x^4n-y^2n 人体,各种细胞,如肌细胞、骨细胞、成骨细胞、肌腱细胞、上皮细胞、破骨细胞、神经细胞等,这句话正确吗人体各种细胞:如肌细胞、骨细胞、成骨细胞、肌腱细胞、血细胞、上皮细胞、破 下列人体细胞中分化程度最低的是A胚胎干细胞B造血干细胞C胰腺细胞D肌肉细胞选A可WHY,细胞分化不是在胚胎时期达到最高限度吗? 等待被爱英文怎么写 甲乙两个自然数的乘积比甲的平方小2007,那么满足上述条件的自然数有几组?最好有算式,谢谢 人体细胞中分化程度最低的是 细胞质在细胞中起什么作用? 谁用量子物理学解释下宇宙大爆炸理论 细胞质流动的作用是()?A.促进光合作用的进行B.增强细胞贮藏作用C.加速细胞与外界环境的物质交换D.使细胞分裂加快 我已经在等待爱情了 英文怎么写的 终末分化细胞中含有线粒体吗?比如人的成熟红细胞,根尖细胞,肌肉细胞,还有神经细胞. 细胞质的功能要概要的回答! 细胞核对细胞质有什么重要作用 人类B细胞分化成熟的场所是( ) A.胸腺;B.骨髓; C.淋巴结;D.脾脏;E.法氏囊 一个正六菱形如图所示,它的底面边长是3厘米,侧棱长为5厘米,则这个正六棱柱的侧面积是? 等爱的英文怎么写 抗体能作用于植物吗为什么 如图所示的六棱柱,其底面边长都是2厘米,侧棱长为5厘米:1,求此六棱柱所有侧棱长的和2,求此六棱柱侧面展开图的面积 静静等待属于自己的爱情 英文怎么写 植物抗体的应用有哪些? 设A={x|x的2次幂-ax+a的2次幂-19=0}.B={x|x的2次幂-5x+6=0},C={x|x的2次幂+2x-8=0}(1)A∩B=A∪B,求a的值 (2)A∩B=A∩C≠ф,求a的值 细胞质有什么作用啊?包括控制细胞的生命活动吗 请问抗原抗体反应中"中和作用"的概念? 输丙种球蛋白后多长时间起作用 3相4极5.5Kw的电机50Hz运转时电流是11.2A,60Hz运转时是7.4A,50Hz时电流接机定额,是什么原因? 下列有关细胞分裂的叙述,错误的是A细胞分裂产生的两个新细胞的形态结构相似B细胞分裂产生的新细胞的染色体数目与原细胞相同C细胞分裂可以使多细胞生物增加细胞数量D细胞分裂后新细 宇宙大爆炸的几个问题1,所有的星体都在以相同的速度远离地球,那么是不是说地球就是宇宙的中心?2,星球都在加速远离地球,那么他们的动能增量从那来的?3,宇宙的每一寸空间都在膨胀,那么, 免疫球蛋白有什么作用有人知道吗? 某单位盖一座楼房,如果由建筑一队施工,那么180天就可以盖成,如果由建筑一队,二队同时施工,那么30天能完成工程总量的十分之三,现若由二队单独施工,则需要多少天才能盖成? 关于宇宙大爆炸的问题这个问题困扰我很久了:如果发生大爆炸物质的逃逸速度是多少?根据爱因斯坦的相对论,任何物质的速度不会超过光速,所以逃逸的物质的速度是小于等于光速的,但是黑 若(2X+1)的5次幂=ax的五次幂+bx的四次幂+cx的三次幂+dx的二次幂+ex的一次幂+f求a+b+c+d+e+f的值 某单位盖一座楼房,如果由建筑一队施工,那么180天就可盖成,如果由建筑一队,二队同时施工,那么3天能完成工程总量的3/10,现若由二队单独施工,则需要多少天才能盖成? 关于理论的几点疑问?首先,大家都知道目前对天文学来说,宇宙的起源是由一个质量无限小而密度无限大的点(这个点叫奇点)爆炸而形成的,那么问题来了:1,宇宙是否只是由一个点发展起来的,或 抗体是否都能长期起作用? 某单位盖一座楼房,建筑一队施工,预计一百八十天盖成,为了早日完成,由建筑一队、两对同时收工,一百天盖成了,问:由建筑二队独立施工,要多少天才能完成?列方程 关于“宇宙大爆炸”理论的疑问?据科学家说,宇宙原先是个密度很大的大火球,后来发生爆炸,导致宇宙不断的膨胀,那么请问:宇宙初期(大火球)的周围是什么物质呢?它周围有空间吗? 举一个实际应用题,要求含1个字母的二次多项式表示结果 甲数有7个约数,乙数有12个约数,甲乙两数的最小公倍数是1728,甲乙两数各是几 长江三峡大坝上下游水位最高可达113m,上游的船要在船闸中经过5个闸室使船体逐渐降低,每个闸室水位变化二十多米,因而三峡船闸的闸门非常大.其首级人字闸门每扇高39.5m,宽20.2m.倘若门外的 给我15道关于多项式含有字母的计算题, 功率因数(PF)是指的什么? 肌细胞是高度分化的细胞我知道,但不是说高度分化的细胞仍有细胞全能性的潜能吗?肌细胞在人体中显然是不能够再分化的了,但离体即体外培养,在适宜条件下,都不能表现出细胞全能性吗? 细胞质和细胞质基质有什么区别? 功率因数越大,总电流越……?当cos&=1时,总电流为……?这里的功率因数指的是电阻的,&指的是功率因数角 为什么皮肤细胞比肌肉细胞分解得快? 细胞质与细胞质基质的区别 下列有关细胞分裂和细胞分化的叙述,错误的是A.细胞分裂产生新细胞的形态结构相似B.细胞分裂产生新细胞的染色体数目不变C.细胞分化可以形成不同的组织D.细胞分化可以导致细胞中的遗传 4x的平方-9y的平方 分解因式 求1-1/2+1/3-1/4+……+1/99-1/100的值用vf程序怎么编 下列关于细胞分裂的叙述中,错误的是()A细胞分裂的结果使细胞数目增加B细胞分裂时不受外界条件的限制C细胞分裂时,染色体和细胞质都要平均分配到新细胞中去D细胞分裂开始时染色体位 一个六棱柱模型,他的底面边长都是5厘米,侧棱长4厘米.那这个六棱柱的所有侧面面积之和是多少 vf 计算1-1/2+1/3-1/4+.-1/100请写出详细的程序. 0.125的2010次幂乘以8的2009次幂 在抵抗乙型肝炎病毒感染的过程中,发挥主要作用的物质是抗原还是抗体? 用VF编辑程序 求1+2+3+.+100.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘