我想每 0.005 秒做某一件工作， 所以撰写了以下程序： Dim tm1 As Single Do tm1 = Timer While Timer - tm1 0.005 ' 等于 0.005 秒 DoEvents Wend ...做某一件工作 Loop 但实际上， 在 While 循环里面， Timer 函数几乎每次都得到相同的时间，只有大约隔了 0.05秒才会...

2008-02-23 06:56:35

如何关闭ScreenSave功能, 改变Timeout时间 此外希望只有本次使用 Windows 时改变(下次开机时还原原状)， 则最後参数改为 SPIF_SENDWININICHANGE (没有SPIF_UPDATEINIFILE) Const SPI_SETSCREENSAVEACTIVE = 17 Const SPI_SETSCREENSAVETIMEOUT = 15 Const SPIF_SENDWIN...

2008-02-23 06:56:33

---- Windows 95 的 桌 面 是 用 户 的 一 个 主 要 工 作 场 所, 如 果 你 能 使 这 个 桌 面 移 动 起 来 或 者 发 生 其 它 变 化, 将 是 一 种 别 具 一 格 屏 幕 特 技 效 果, 而 实 际 上 目 前 具 有 类 似 效 果 的 程 序 并 不 少 见, 比 如Microsoft PLUS!...

2008-02-23 06:56:33

在VB编程调用Windows API函数时,经常会碰到以Null结尾的字符串,下面是一段将Null结尾字符串转换到VB字符串的函数: Public Function LPSTRToVBString$(ByVal s$) Dim nullpos nullpos = InStr(s$, Chr$(0)) If nullpos 0 Then LPSTRToVBString = Left$(s$, nullpos - 1)...

2008-02-23 06:56:32

用VB5可编写直接控制Excel操作的程序,方法是用VB的OLE自动化 技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作 。与用VBA语言编写的Excel控制程序相比,两者主要有如下差异: 1. 实现VB5对Excel的直接控制后,可在用户所编的程序中调用Ex cel,即从控制界面直...

2008-02-23 06:56:31

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Sub Form...

2008-02-23 06:56:30

现 在， 多 数 数 据 库 都 支 持OLE 类 型 的 数 据 库 字 段， 利 用 这 种 字 段， 可 以 存 放Word 文 档 和Excel 表 格 等 任 何 种 类 的 文 件， 而 且， 使 用OLE Automation 方 法， 可 直 接 激 活 文 件 的 原 始 编 辑 器， 也 就 是 它 们 的OLE Server。...

2008-02-23 06:56:29

---- 在 大 量 的 应 用 软 件 中， 软 件 启 动 后 一 幅 画 面 有 几 秒 的 信 息 显 示， 列 出 产 品、 平 台、 版 本 号 和 版 权 信 息， 称 之 为“ 启 动 程 序 时 的 闪 烁 屏 幕”。 在Visual Basic 中 是 如 何 实 现 的 呢 ？ 本 文 讨 论 生 成 启 动 屏...

2008-02-23 06:56:29

---- Visual Basic 是Windows 平 台 中 最 常 用 的 应 用 软 件 开 发 语 言, 窗 口 图 像 缩 放、 滚 动 是 图 像 处 理、 多 媒 体 数 据 库 等 应 用 软 件 开 发 中 的 基 本 功 能。 本 文 将 介 绍 如 何 用VB 5.0 实 现 地 窗 口 图 像 缩 放 和 滚 动 技 巧,...

2008-02-23 06:56:27

'------------------------------------------------------------------- 'Author: Gordon F. MacLeod 'How to extract sounds from the SOUND.DRV library.. ' Here are 4 different sound effects that can called ' via API's to the "SOUND.DRV" library. You can m...

2008-02-23 06:56:26