在Windows9x编程过程中，我们经常需要了解当前系统的运行状态。例如，如果Win9x运行于安全模式，那么多媒体等部件可能无法正确运行。程序中有必要对此做相应处理，以提高程序安全性，增强系统的适应能力。VB中没有直接提供此类控制或函数，但是我们可以通过API函数GetS...

2008-04-09 04:42:37

程序说明 : 这个程序 比较简单,大家自己看吧 计算机 名就是你打开 控制面板-系统 -网络标识-完整的计算机名称 程序代码: Form1 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long...

2008-04-09 04:42:36

本例通过调用API函数 FlashWindow 实现了窗体标题栏的闪烁，标题栏的闪烁通常用来引起使用者的注意。 在VB中 声明这个API函数的方法是： Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long 其中各个参数的意义...

2008-04-09 04:42:35

流行软件 的工具栏上的按钮是平的按钮，当鼠标移过时才会突起，这种效果采用贴图 的方法实现十分麻烦，而利用API函数实现起来就很方便，快捷。实现的基本思路是：用SendMessage函数向工具栏发送设置显示样式TB_SETSTYLE的消息来改变工具栏的显示效果。 我们先来声明API...

2008-04-09 04:42:35

使用API函数ShellExecute可以调用外部默认的浏览器和电子邮件工具来打开一个超链接 和和发送一个电子邮件。 为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码： ------------------------------------------- 在程序中加入超链接 和发送电子邮件 -...

2008-04-09 04:42:33

在安装 软件等一些操作中，需要用户指定安装路径，现在软件的安装界面都是非常友好的，一般来说给出一个缺省路径，用户如不满意 可以在文件夹列表中选择其他的路径。在WIN9X下，一般不再采用原来的先在驱动器列表框中选择驱动器再在相应的驱动器中选择相应文件夹的界面...

2008-04-09 04:42:30

在Visual Basic程序中，可以使用Windows API 函数来重新启动计算机系统 ，文本介绍如何退出Windows 9X并关闭计算机系统。 一、关闭计算机系统 可以使用Windows API的ExitWindowsEx函数来从Visual Basic程序中重新启动计算机 系统。要使用该函数，需要将如下声明语句包...

2008-04-09 04:42:28

源代码如下： Module1 Option Explicit Public Const GWL_WNDPROC = (-4) Public Const WM_LBUTTONDOWN = H201 Public Const WM_NCHITTEST = H84 Public Const WM_NCLBUTTONDOWN = HA1 Public Const HTCLIENT = 1 Public Const HTCAPTION = 2 Public Const LF_FACESIZE...

2008-04-09 04:42:28

在 开 发 应 用 程 序 时， 增 加 一 项 显 示 计 算 机 系 统 信 息 的 功 能， 例 如 已 安 装 的 软 盘、 硬 盘、 光 驱、 网 络 驱 动 器， 硬 盘 的 容 量 和 剩 余 空 间， 显 示 器 分 辨 率、 键 盘 类 型、 鼠 标 的 键 数， 内 存 大 ??PU 类 型，Windows...

2008-04-09 04:42:26

Windows2000 已经出了一年多了,就先介绍一下Windows2000特有的API吧!! AnimateWindow是一个窗口打开和关闭时产生动画效果 的新函数，因为是一个新的函数, 所以在 API Viewer中是找不到的,必需自己定义: Public Declare Function SetLayeredWindowAttributes Lib "user3...

2008-04-09 04:42:24