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

调用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 菜 单 项, 通 过 菜 单 项 调 用 它, 效 果 更 好。
响应式导航设计案例解析(多图) 所见即所得:七大无需编程的DIY开发工具 前Google员工发布无痕搜索产品,阻老东家财路 VMware推出vCloud Suite及vSphere新版:可用性及性能双丰收 TIOBE 2013年10月编程语言排行榜:Groovy首次挤进Top 20 Cookie时代将结束:微软将开发跨PC、移动和Xbox跟踪技术 Web设计里需要避免的八大糟糕趋势 Groupon从ROR迁移至Node.js,响应速度大幅提升 腾讯云的Container实现 专为物联网打造的数据库TempoDB获得320万美元投资 MongoDB成为首位10亿美元初创,功臣可归功于Oracle? 程序员遇到Bug后的30种常见反应 扎克伯格豪掷3000万美元购四套房 梅耶尔和拉里佩奇也居于此 IBM研究人员:仅200条微博 就可构建人格剖析图 MDCC重磅讲师:Pebble CEO Eric Migicovsky 历届中国大数据技术大会PPT精粹(一) 通讯也“跨界”:几行代码,API+SDK,用PaaS实现移动互联 MIT风景线:丝绸雕塑、VR代码、机器人、智能按钮及保时捷 深度学习新算法,完成字里行间的情绪识别 如何在开发项目里和难缠的程序员合作? 移动周报:七大无需编程的DIY开发工具 手把手教学,用jQuery Mobile创建Web App 别惊讶,Android绿色机器人标志灵感来自于卫生间标识 Google TV更名为Android TV 智能电视的路不好走 CTO如何避免决策失控(四)——通盘考虑 做到技术业务不分家 重塑世界!历届MDCC重磅嘉宾演讲大回顾 从贝佐斯的14句言论看商业成功之道 5大宠物可穿戴式设备 Google CIO Ben Fried谈内部工具文化 【开源专访】Fourinone创始人彭渊:打造多合一的分布式并行计算框架 API优先架构或者胖瘦服务器之争 我想做一个类,提供ONMOUSERMOVE事件给用户接口,怎么做,在线等候? 请问关于软件架构,框架和构架的问题 看看别人吧!!!再看看我们!!! 怎么样自动增加一列在select UserID,AreaCode from table 。在先等候,先答来的100 全民健身 有谁使用过水晶报表? 求线段作另一线段的垂足 请问哪里有Delphi 6的控件下载? 怎么调用api画多边形? 求线段作另一线段的垂足 谁能帮我!错手把逻辑盘的东西删了,能不能恢复。 如何把一个文本文件的内容赋值给一个char* 大连高程何时报名? 需要这样功能的远程控制工具.... 谁知道广州搞php OR asp一月多少钱? 如何给JButton响应Enter键. W2K2000中的 SP 是干什么? 问题整理:求教关于Bezier的方程!!! 关于DJGPP和NASM 请问用什么样的方法可以令win98每隔两个小时死一次机或重启?谢谢 交论文的日子快到了--- 请问关于网站建设方面的,有哪些可写的? 50分,请问ms sql2000可以设置只显示用户表,隐藏系统表, JRE?JAVA 运行环境,指的是什么?要如何配呀? 关于记录指针问题? 50分,请问ms sql2000可以设置只显示用户表,隐藏系统表, 请问。。。 怎样在tomcat 401上面配置一个虚拟主机?(更详细的提问) 请各位能不能详细的解释一下客户端代码和服务端代码 activx控件屏蔽右键菜单 大家简单谈一下,现在学Delphi还有多少前途呢? 给大家带来一个好消息!! 如何关闭一个THREAD? 熟悉文件操作的高手看过来 求线段作另一线段的垂足 makefile中的库的路径指定? 各位老大!又出问题了......... 如果同时有两个或更多的钩子程序在运行,并且挂钩的消息是一样的,会是什么情况? 各位大虾,谁有用DELPHI制作的小精灵的控件. 我猜中国队以1:N(N>2)输给巴西队,听小道消息中国某财团从巴西买入一球。。。。 一个最难的难题 .net远程处理中的客户端激活问题 如何让CListCtrl中选中的行高亮显示? 选择一个文件夹怎么做???? 熟悉文件操作的高手看过来! 请大家帮我出出主意 电脑配置 帮帮忙! 2002年北京的高程报名了么。在那报啊。 VB与ORACLE数据库中的日期怎么转换 ? 菜鸟常问菜问题,菜鸟问题分虽少但是好赚 什么才是真正的程序员?! 为什么硬水软化后才可作锅炉水 在探究唾液淀粉酶对淀粉的消化作用时,淀粉为什么要煮熟? 铁碗能放微波炉吗 下表为"唾液淀粉酶对淀粉的消化作用"的几组实验记录,请在表格在填写实验的现象.试管 加入的物质(各2毫升) 水温 时间 试剂 加碘后的现象1号 淀粉+唾液 0度 碘液 ( )2号 淀粉+唾液 80度 碘液 ( 误把84消毒液当白猫用洗碗了···怎么办!有毒么?刚才洗碗误把84消毒液档白猫用了····还有个木头铲子在里面~~~~不知道会不会吸收了84以后还能用么?有毒么? 怎么才能取出残留在里面的84 酒精和84消毒液哪个的消毒能力强? 唾液淀粉酶对淀粉的消化作用制备淀粉浆糊.取干淀粉放在小铁锅里,加清水调均匀,上火煮沸,制成浆糊,冷却后备用.把浆糊注入试管,分别编为1、2号,向1、2号试管内分别滴入清水和唾液.将这两 84消毒液+厕所清洁剂冒烟有毒吗?我老公在打扫卫生时,不小心把84消毒液和厕所清洁剂给混合到一起了,当时就起了很浓的烟,味道十分难闻,这种烟对身体有没有害啊,应该怎么处理? 请问84消毒液和酒精之类的属于卫生材料吗?还是低值易耗品? 锅炉使用硬水时间长会爆炸吗? 84消毒液洗过的电饭煲闷米有毒吗 将一个体积为1*10-3立方米,重5.88牛的木球用细线系在底面积为200平方厘米的圆柱形容器的底部当容器中倒入足够的水使木球被浸没时,求:1.木球浸没在水中受到的浮力2.剪断细线,木球处于静 为什么锅炉不能使用硬水? 7.糖蛋白主要存在于细胞膜上,如果将细胞培养在含药品X的培养基中,发现细胞无法合成糖蛋白的糖侧链,则此药品可能作用于糖蛋白合成及运输过程中的哪一种细胞器上? 将26g某金属混合物投入到足量的稀硫酸中,共收集到2g氢气,该金属混合物的组成可能是( )A.Mg和Zn B.Fe和Zn C.Zn和Cu D.Cu和Fe 甘蔗分蔗糖与果糖两类,它们区别在哪里? 糖蛋白(含有寡糖肽链侧链的蛋白质分子)普遍存在于细胞膜上,如果将细胞培养在含药品X的培养基中,发现细胞无法制造糖蛋白的糖链,那么此药品可能作用在蛋白质合成以及运输过程中的: 底面积为0.03米平方的薄壁容器放在水平桌面上,自重2牛内装重有10牛的水面离地面高度为30厘米.求1.水对容器底面的压强.2.水对容器底面的压力 3.容器对水平桌面的压强 果糖与蔗糖有什么不同? 高锰酸钾接触皮肤会怎么样?在药店里的价格多少?几克?纯吗? 将56g两种金属粉末的混合物与足量的稀硫酸反应,生成2g氢气,则这种混合物的可能组成是 ( )A.Mg,Zn B.Fe,Zn C.Mg,Fe D,Al,Zn 怎么鉴别果糖和蔗糖 84消毒液中毒怎么办?具体症状是恶心,想吐~早上上班前在房子里撒了84消毒液,可能撒多了,中午回来消毒液气味还很重,睡了一觉,还喝了杯子里几口水,早上走的时候忘记盖盖子了,现在就感觉恶 圆柱的侧面积为31.4平方厘米,体积为15.7立方米,这个圆柱的底面积是多少平方厘米? 107胶水用于室内装修是不是有毒啊我当时买了百安居的801胶水,但前两天油漆工说不好用,要换为旁边小店的袋装107胶水.用于调制膏灰,那您看现在我该怎么办? 84消毒液 反应生成什么 哪些是固体 哪些是液体,怎么分离出来 可能含有下列金属的镁合金15.2g与足量的稀硫酸反应产生0.4g氢气.则此镁合金中可能含有金属a.Al b.Fe c.Zn D.Cu 下表中使唾液淀粉酶对淀粉进行消化的实验,请写出实验中液体颜色的变化,并分析原因和回答问题.试管 加入的物质(各2毫升) 水温 时间 试剂 加碘后的现象1号 淀粉+唾液 0度 碘液 ( )2号 淀粉+ 假如2012年地球真的毁灭的话,现在大家最想做的是什么 硫化氢与氧气反应的方程式是什么?只有硫化氢与氧气反应 地球环境污染和破坏的九大现象 一、大气污染 大气污染的定义 在干洁的大气中,痕量气体的组成是微不足道的 84消毒液和铁,VC有反应吗?刚用84拖了地,就冲铁粉和VC给宝宝吃,感觉颜色和白天的有点不一样,是不是和84超反应了呀? 怎样鉴别麦芽糖蔗糖蛋白质 印刷水胶有毒吗 在84消毒液中加入铁 生成了黄色固体我把液体蒸发后 剩下的 黄色粉状物 请问这种物质是什么 蔗糖里有蛋白质吗?请问蔗糖里含有蛋白质吗? 下列有机化合物中,只含C,H,O三种元素的是 A.氨基酸 B.核苷酸 C.脱氧核糖 D.磷脂 烟屁股泡的水有毒吗吸完的烟屁股,泡到水里,那么毒性到底有多大呢? 蛋白质点样时为什么要加蔗糖 某溶液中含有HCO3-,CO3 2-,SO3 2-,SO4 2-,K+NH4+ 6钟离子.假如过氧化钠固体后能大量存在的是? 背部接近脖子处的皮肤上起了一些毒泡,里面好像有毒水怎么办? 蔗糖水补充蛋白质么? 向含有NH4,Mg,Al,Fe(二价) 等离子的溶液中加入足量Na2O2微热并搅拌后,,再加入过量稀盐酸上述离子中大量减少的是仔细想想,只有2个答案 现有镁铝铜合金6g,加入过量的盐酸中,在标准状况下放出氢气5.6L,反应后过滤得沉淀0.9g.若将此合金投入过量的烧碱溶液中,在标准状况下,能产生多少L氢气, 蔗糖溶液补充蛋白质了么? 皮肤上的高锰酸钾颗粒怎么清洗 石锦瓦长期泡在水池里,会影响水质吗,水会不会有毒 脂肪酸的合成脂肪酸的新合成.最后合成的为什么是 棕榈酸?这个酸对身体好吗?有什么作用啊 什么情况下,既含有极性键又含非极性分子?请帮忙麻烦告诉我 现有镁铝铜三种金属组成的混合物1.2g,将该混合物加入过量的稀盐酸中,在标准状况下产生的氢气1.21L反应过后滤得0.2g沉淀1;求该混合物中铝的质量分数2;若将等量的该混合物投入过量的烧 脂肪酸的生物合成脂肪酸的代谢是以β氧化为主,即每次“切下”一个二碳单位并与CoA结合生成乙酰CoA,那么脂肪酸在体内的合成过程是怎样的? 有没有因为环境污染灭绝的鸟呢 大米在水里泡2天 在煮着吃有毒没? 脂肪酸只要用来合成什么物质打错字了,是主要用来合成什么物质补充下,是人体内的脂肪酸一楼:没记错的话,无氧呼吸是糖类分解成乳酸吧 O2 金刚石 NaBr H2SO4 Na2S NaHSO4 这些物质中哪些只含共价键,哪些只含离子键,哪些两个都有? 有那些鸟儿已经灭绝了,时间,地点,环境污染原因,结果 现有镁铝铜金属混合物10g,加入过量的盐酸中,在标准状况下放出氢气8.96L,反应后滤得沉淀2.2g.若将此混合物放入过量的烧碱溶液中反应后,在标准状况下,大约能产生的氢气体积__L. 小明研究唾液淀粉酶的消化作用时,设计如图所示的实验.他把上述四支试管放在盛有37℃温水中的烧杯内保温10分钟,取出冷却后,向每支试管中滴入两滴碘液.(1)乙试管中的液体没有变蓝,这 鸟类灭绝原因鸟类为什么灭绝 有关氧气与硫化氢混合气体燃烧的体积计算常温常压下,将24ml的氧气和硫化氢的混合气体点火燃烧,充分冷却反应后到原来状态,测得有6ml二氧化硫生成.原混合气体中硫化氢的体积是()A 6ml B
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘