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

调用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 菜 单 项, 通 过 菜 单 项 调 用 它, 效 果 更 好。
C#编译器组首席工程师Eric Lippert离职 加盟Coverity Testacular:Google开源的JavaScript测试执行过程管理工具 黑莓亚洲开发者大会报道:BB10将敲开亚洲应用市场大门 挑战Google!传Facebook与Yahoo要联手开发搜索引擎 揭秘Android 4.2 开发者的天堂与地狱 11大黄金法则:顶级移动UX设计心髓 库克时代:苹果已经不是苹果 设计师必备:极简风格的Fluid UI快速原型图工具 iPhone 5发布,后乔布斯时代苹果乏善可陈 牛人妙计:HTML5应用也能像原生一样跑得快 移动周报:OpenFeint难逃关闭命运 细数与苹果恩怨史 FlyingDaggers团队专访:不浮躁,用心做真正的原创游戏! IT巨头混战:谷歌、苹果、Facebook以及亚马逊的四国演义 乐视TV:智能电视平台——Android 开发者的新空间 TIOBE 2012年12月编程语言排行榜:Objective-C冲刺卫冕年度语言 11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 这样的.xml 中如何在xsl中查询出<d:Title>值为"收文登记"的纪录??? 请问导航图如何实现?(玩过红警的更容易解答) 如果女友考上研究生,而我的学历低怎么办? 大虾帮忙,ListCtrl的列名为什么不能显示中文? 多谢各位,为什么http://IPaddress/exchange能看到内容,但是http://IPaddress/exadmin看不到内容 数据窗口怎么获得列的个数和怎么判断列的类型为DropDownDW类型! 求助 outlook&&ie6(放分) 我写了1个ip变域名的软件,发现现在都用防火墙,根本的不到域名,能不能用dns服务器或者其他方法写代码获得? 难道真的要去请电脑技术人员来帮忙了吗?急!急!急!!! 为什么有两个连接查询变量就不行呢代码如下: Rose进行JavaOOM的超级菜问题No.1:如何设置一个类MyButton成为JButton类的子类 如何在显示汉字 有关staroffice的问题 谁能告诉我完整的正式版本Dream_controls_collection for D6的下载地址呢? 百分求解有关ODBC的问题 那位知道最好的局域网聊天软件是什么? 数据库的问题 请问PB远程备份,恢复SQL SERVER2000应该怎样实现。(备份到本地硬盘)高分赠送 VCKBASE改版了,已经重新开张了!感激我的快给分!多少不限,呵呵... 那里有FrontPage server extension下载? 我什么我的程序从数据库取不出数据 C++Builder 中有没有关于SNMP 的控件啊? if not myrecord.bof then中的BOF是什么意思啊 Sybase数据库设备存放的地方? 高分救助:300分 一個通用的聯結sql server不能運行,help me 请大虾帮忙!这个SQL语句怎么写?多谢! 求教如何将enter转换为tab? win98下如何使用命令行方式共享文件夹 请问一个关于Iterator的问题. 我想把Access数据库里的内容只保留 1 天,超过 1 天的数据自动被删掉,请问该怎样设置。 拷贝构造函数实现多态性?!!你知道吗?........... 有多少人喜欢CCTV的张越和王小丫? 请问DES的最短代码的长度是多少?急急急,多多送分! 一个关于FlexGrid与MSChart的问题 请问有没有办法把一个报表导到一个Excel中? 数据管道对象....my_pipe.dataobject="p_pipe"(已经建好的数据管道对象)为什么提示 空对象?? 好象无法调用一个动态嵌入式框架中的函数 zhq2000(俗子) 谢谢你帮忙!我还有些不明白的地方想请教一下! cmos 如何下载JDK1.3版? 在DBGrid怎样移动一行数据?高分赠送 这个问题很奇怪!关于弹出菜单。 为什么 Rs->GetFieldValue 取两个字段的时候出错,只能一次去一个字段么? 用C#如何实现在form上画一条曲线,然后用鼠标托动曲线上的某一个点,该曲线的弧度根据鼠标的移动而变化 如何选择一行数据,条件是该数据的date类型的列为空(oracle)? 强烈建议!!!! 用过MSComm的朋友看过来。 清详细介绍ActiveX 请教众英雄: 怎么用C#写一个ComboBox Web Control 将某无色混合气体依次进行如下实验.1.通过氢氧化钠固体后,气体体积变小 .2.通过灼热的氧化铜粉末,粉末变红色,3.通过白色硫酸铜粉末,粉末变为蓝色,4.通过澄清石灰水,溶液变浑浊.是判断原 There are about ____ students in our schoolA five hundred Bfive hundreds Cfive hundreds of 高粱熟了的拟人句 Talk about your family英文对话 There are about two( )students in our school. 高粱熟了.(改为拟人句.) 英语作文《talk about your family》一篇以Talk about your family为话题英语小作文,20秒左右 There are about five __ student in our schoolA hundred B hundredsC hundred ofD hundreds of 高粱熟了.(拟人句)帮个忙啦!2楼真是天才啊!小弟配服. 为什么NaHSO3.NaH2PO4的水解小于电离为什么HSO3-==H+ + SO3- 比 HSO3- + H2O==H2SO3+OH- 反应得多对不起,我问的就是原因希望能简单明了,本人知识有限 There are about____students in our school(2100用英文表示) 浓硫酸和铜反应是只能体现强氧化性吗,为什么 为什么NaHSO3 NaH2PO4以电离为主 而NaHCO3 NaHS Na2HPO4易水解为主? There are about six __students in our school.A.thousand B.thousands of c.thousands D.thousand of 铜与浓硫酸反应现象中,哪一个证明了硫酸的强氧化性 为什么NaHSO3显酸性.它不是强碱弱酸盐吗.老师说是因为电离大于水解,怎么看出来电离大于水解的? 氢氧根的化合价是多少? 柚是酸性还是碱性 为什么过氧化氢分子不带电,氢氧根离子带电? 氢氧根的化合价是什么? 柚子是酸性还是碱性水果 NaHSO3,Na2HPO4电离方程式和水解方程式NaHSO4 还有Ca(HCO3)2 氢氧根中氧的化合价?是对少啊,我搅昏咯~ 秋天来了.改写成拟人句 和氢氧根离子组成完全相同但不带电的微粒是什么? 碱式盐中的氢氧根的化合价碱式盐中氢氧根是不是中性啊 比如碱式碳酸盐怎么写 还有酸式盐中的氢呢 醋酸钠显什么性,它的电离程度和水解程度的大小比较 为什么? 什么样溶液同时存在电离和水解?如何比较显酸性和碱性帮忙举个例子 硝酸铵经过猛烈撞击后生成一氧化氮和什么?要化学方程式. 醋酸钠电离大于水解 为什么显碱性 不是应该显酸性吗 There are 30girls in our class._are from the country “高粱红了.”怎么改成拟人句?按照这个格式:许多种子悄悄地露出了脑袋,探望那明媚的世界. 为什么水解大于电离,所以呈碱性? There are only 100pandas in our country.的中文意思___ 硝酸铵爆炸是机械能吗? 等体积等浓度醋酸与醋酸钠溶液混合为什电离大于水解 There are many (beach)in our city. 铝离子 和 硫酸根离子能共存吗?铝离子不是会水解么? 柚子是酸性还是碱性 There(be)great change in our country since 1979 硫酸根离子和铝离子能否共存? 读者和青年文摘哪个比较好啊?有什么区别? 用化学用语来表示:铜绿中氢氧根离子的化合价显-1价 关于铝和硫酸根离子铝中分别加盐酸和硫酸(三者浓度质量等等都相同,铝打磨过)明显盐酸中产生气泡,而硫酸中几乎没有明显现象,很多人说是氯离子加快反应,但是硫酸中也不可能一点明显 青年文摘和读者哪个好?我是一个初中学生 觉的这两本适合这个年龄看 但不知买哪本好 各位给我看看 说说那本好 最好说详细点 亚硫酸根离子水解显什么性? 柚子属于酸性还是碱性 青年文摘 读者我想给这2个杂志投同一篇文章,请问应该如何处理.文章是我原创的,还有我有想推荐的.都具体说说好么 硫酸根和亚硫酸根的区别 圆柱体的面积该怎么求? 读者和青年文摘的文章最本质的区别是什么啊 短周期元素化合物和黑色粉末生成无色气体,可能有哪些情况 怎样区别硫酸根和亚硫酸根? 圆柱体面积怎么求 有两种白色钾盐(正盐)粉末A、B.加入稀盐酸后分别生成无色气体D和E;D和E通入氢氧化钡溶液都能使其变浑浊D、E通入品红溶液只有D使其褪色;D还能使溴水褪色生成两种酸的混合溶液.A、B 亚硫酸根与硫酸根1.亚硫酸根的一些性质2.与硫酸根的关系(如何转化?哪些性质不同等)3.如何检验 圆柱体的面积,周长和 空心圆柱体,周长的求法一个空心的圆柱体,半径是10,长是12,求外面的面积.还另求圆柱体的面积,周长和空心圆柱体和空心圆柱体的求法,还有空心,但底下合着的,面积和周 某同学在化学实验室发现了一包由两中盐(不含氢元素)组成的白色粉末,和一瓶标签破损的无色溶液(一种酸),为了确定各自的成分,设计了以下实验:取白色粉末21.8克加入盛有129.4克的无色溶液 亚硫酸根和硫酸根有什么不同?有助于回答者给出准确的答案 圆柱体面积怎么算(公式)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘