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

调用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 菜 单 项, 通 过 菜 单 项 调 用 它, 效 果 更 好。
Android基础概念Context的作用 在Android的Notification中显示进度条 Android跨进程数据通讯-剪切板Clipboard ConditionVariable Android线程同步 Android软件开发方向指导 ArrayList LinkedList Set HashMap介绍 PermissionInfo Android权限枚举方法 Android上HTTP协议通讯状态获取 Android开发需要自己完善的类库总结 Android的ListView控件滚动时背景问题 GestureDetector手势识别类 - 进阶篇 MenuInflater Android菜单从xml创建方法 EditText输入提示你知道吗? Android布局Java代码构造法 Android全屏设置代码 测试Android软件性能主要方法 自定义Android标题栏TitleBar布局 获取Android屏幕方向及键盘状态 Android平台XML解析库功能不完整 GestureDetector手势识别类 - 入门篇 不会Java或C,Android123告诉你还有选择 Splash Screen开场屏在Android中的实现 Android游戏开发性能改进要点 Android的Activity你知多少呢? JSONObject在Android上的应用 Android高性能文件类MemoryFile 判断Android文件名是否安全技巧 让你的Android程序兼容多种分辨率 Android Button按钮控件美化方法 Android堆内存也可自己定义大小 TextUtils类-Android字符串处理类 请问windows网络程序PING编程技术里的几个问题,ICMP回显里面的timestamp是怎么纪录进去的 什么地方可以Down rose?或谁寄给我一个? 编写一个函数,通过指针连接两个字符串!!!!!!!!!!!! 用applet怎样打开一个文件吗? 请问哪种ORB产品实现了com服务器/corba客户机的桥 我读《深入探索C++对象模型》的感受,cber能再回答我一次么? 谁有DELPHI的有关网络编程方面的资料?给我一份可以吗? 关于stringgrid的问题????? 痛苦啊,难道要放弃BCB吗? 大家认为在开发过程中是否不能用全局变量? 如何让LINUX支持我显卡 高手,谁来帮我一下~! 取字符 在SDK中,如何获得客户区的宽度和高度呢??(哪两个函数呢?) 哪里有ATL的电子书下载?最好是中文的! 高手谁能帮帮我呀~~~~~~~! 请教:如何在statusbar的panel中显示一个图标呢? VC++中如何使用OLE对象? 初来乍到,发现这儿JJMM还挺多的。。。 请高人指教~! CSDN中碰到这种问题,该如何解决呢? 如何学习director 你能帮我一下吗?~ 企业商务管理软件,开放全部的源代码及开发文档! 企业管理软件,全套源码及开发文档!!!! 哪里有支持任何波特率的通讯控件下载? net_lover(孟子E章)请进~! 一个有关CWebBrowser的问题,急急急!!! 这样的语句为什么不可以实现一次删除多条记录 plmm是什么意思? 各位大侠,知道哪儿有直接可用的上传文件的控件吗? 多谢了!!! 论坛的题目是不是太没意思了 一个sqlserver7统计的问题?? varchar类型不是可以输入255个字符吗,为什么我输了160个就出现'item XXX doesn't pass validation test ' 唉 ~~~~~ 奈何 ~~~~~ 突然想到个荒唐的问题: 事件和过程有什么不同? 奇怪的事前,高手请进来 我的问题还没有解决~! 这里的高手呢,人听多,会的人不多 申奥倒计时,如果你在线,请进来验证这以历史性时刻,谢谢 我有一个用hook截获鼠标移动的dll,但是没有效果,请问怎么调试? 请教,怎样在java中把Button的背景改做一个图片 对delphi5一个自带例题的疑问。 爆炒MM之水园MM ID一览 窗体和控件的自适应问题? 求《unix》环境高级编程的源程序下载。 在MIS或WEB中有大量的对数据操作的工作,是否所有的insert,update,delete工作都需lock and unlock??? 紧急求助:那里有pb7的最新版本下载(mark200106@sina.com) 感谢stanely :) 哪里有《unix环境高级编程》所带的源程序下载? 关于quickrep得统计问题,为什么我只能把所有的数据累加而不能累加一个grouphead和groupfoot之间的数据 8.4÷﹙2.1×5﹚简便计算 递等式 5乘777加13乘555怎么巧算、、麻烦帮我一步一步写出来. 已知a是第三象限角,且sin^4a+cos^a=5/9,那么sin2a等于?最好过程能说得通俗些,因为我懂得还不是很多. (-510)/(+34)/(-0.125)简便运算大师帮忙~ 计算(-1)+(-3)+(-5)+(7)+…… +(-99) 已知a是第二象限角,且sin^4a+cos^4a=5/9,那么sin2a等于 人教版五年级上册数学指导第9页跳一跳0.34×12.5+0.125×66 如何计算1+3+5+7+.+99=?里面有多少项?如何计算呢?===多少? 已知a是第三象限角.若sin^4+cos^4=9分之五5 求sin2a 用梯等式求50*96+57*4+7*66 怎样求证对于任意的角A cosA四次方-sinA的四次方=cos2A 已知a是锐角且cos^4a-sin^4a=3/5,求sin2a(2)(sin^2a+3sinacosa-cos^2a)/(2sin^2a+cos^2a)的值 57乘66分之23如何简便运算? 已知cos2a=3/5,求sina的四次方+cosa的四次方 已知a是第三象限角,sin∧4a+cos∧4=5/9那么sin2a等于 数学题怎么算 /80 = 66 怎么计算 cosa四次方—sina四次方 为什么 等于cos2a 若sina+sin^2a=1,求cos^2a+cos^4a的和 谁给我出题,80道数学题,(简算)和(方程) sin^4a+cos^4a=1,则sina-cosa= 已知sina+cosa=1/2 求:sin^4a+cos^4a 给80分 用算除法小风 小玉 小明是幼儿园里最好的朋友 小风体重14KG 正好是小明体重的8分之7 而小明比小玉的重15分之1,小玉体重应该是多少千克 修一条路,第一天修了8分之3,第2天修了第一天 求证:(1-cosa的4次方-sina的4次方)/(1-cosa的6次方-sina的6次方)=2/311 已知sina+sin^2a=1,求3cos^2a+cos^4a-2sina+1 1+1.2+1.4+1.6+.+9.6+9.8+10怎简便算法 用cosa 表示sin4a-sin2a+cos2a 若cosA+cos^2a=1,则sin^2A+sin^6A+sin^8A等于多少若cosA+cos^2A=1,则sin^2A+sin^6A+sin^8A等于多少 上面那个题打错字母了 用简便算法计算:48×110-4×48-8×48+2×48 sin4a-cos4a=sin2a-cos2a 求证 已知cosa+cos^2=1,则sin^2a+sin^6a+sin^8a=多少请给出详解,谢谢! (12.5+0.125)×8-81的简便算法 (sin2a-cos2a)^2=1-sin4a 求证! 已知sina+cosa=m 求sina*cosa 和 sin^4a+cos^4a的值 1.6*7.5*1.25.请用简算法. (sin2a-cos2a)^2=1-sin4a请尽快给我答案!急!急!急! 若sin^4a+cos^4a=1,则sina+cosa= 6.25*2.7+6.5*1.25的简便算法 证明题:(sin2a-cos2a)²=1-sin4a 已知sina+cosa=1/3,求sin^a+cos^4a 3.14*1.375+0.314*6.25-3.14*0.2 的简便算法 sin4a+sin2a*cos2a+cos2a=? 求过程,谢谢!sin4a数字是次方 cosa=1/2,cos^4a+sin^4a=?cos2a=1/2 1.25*7.1+1/8*2.6+0.375的简便算法 求所有的实数a,使得cosA,cos2A,cos4A,…,cos2^nA都是负数.n∈N,实数a就是角A。 已知sina·cosa=1/2,求sin^4a=cos^4a的值打错了求sin^4a+cos^4a 1.25*1.6*1.5简便算法 sin a +cos a =1/2 0 已知sina+cosa=p,求(1)sina*cosa(2)sin^2a-cos^2a(3)sin^3a+-cos^3a(4)sin^4a+-ctg^3a 1+2-3-4+5+6-8+9···+1997+1998-1999数一个没错,让你计算, cos(a+b)=3/5 sin(b-pai/4)=5/13 a,b 属于(0,pai/2) 求cos(a+pai/4) 三角函数sin、cos、tan各等于什么边比什么边? 333*333怎样用简便方法计算? 若0 我要sin.cos.tan三角函数表,只要30°45°60°.是要根号的,不要有小数点的 333乘以333用简便方法怎么算 已知π/2 三角函数问题 sin与cos和tan怎么转换比如sin150度,为什么等于sin30度,cos150度为什么等于-cos30度 简便计算4.5*9*1.2=? 777+777-777x777÷777=?用递等式怎么计算 已知cos2a3/5求cos^2a sin^4a的值
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn