index1.txt

VB技巧问答10000例 VB技巧问答10000例

<END>
58,如何让对注册表修改的结果立即生效 
请 问 95中 的 ‘ 应 用 ’ 是 如 何 实 现 的 ， 比 如 我 控 制 面 板 的 某 项 设 置 并 单 击 ‘ 应 用 ’ 后 ， 修 改 的 结 果 立 即 生 效 ； 我 在 编 程 过 程 中 修 改 了 注 册 表 ， 可 只 有 从 新 启 动 后 才 生 效 ， 请 问 怎 样 在 程 序 中 实 现 ？ 
<END>
59,定义API函数发生错误：Declare语句不允许作为类或对象模块的公共成员 
我 vb6编 程 时 调 用 winapi， 发 生 了 错 误 ， 语 句 如 下 ： 
    Declare Function GetPrivateProfileString Lib "kernel32" Alias 
    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal 
    lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 
    Declare Function WritePrivateProfileString Lib "kernel32" Alias 
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long当 运 行 时 发 生 以 下 错 误 ： 编 译 错 误 ， 常 数 、 固 定 长 度 字 符 串 、 数 组 以 及 Declare语 句 不 允 许 作 为 类 或 对 象 模 块 的 公 共 成 员 。 请 问 这 是 为 什 么 ？ 我 的 winapi语 句 是 用 API文 本 查 看 器 查 找 到 后 复 制 到 程 序 中 的 ， 难 道 这 也 会 有 错 吗 ？ 
<END>
60,调用DLL时能否用相对路径 
用 vc++5.0生 成 dll,并 用 vb调 用 ， 当 vb中 用 Declare Sub do_exit Lib "c:\sieis\select.dll" ()语 句 调 用 时 select.dll能 否 用 相 对 路 径 (此 处 用 的 是 绝 对 路 径 c:\sieis\select.dll)？ 
<END>     
61,如何得到系统中的所有文件类型 
如 何 得 到 系 统 中 的 所 有 文 件 类 型 ？ 
<END>     
62,SendMessage() API 函数如何使用 
请 教 SendMessage() API 函 数 如 何 使 用 ? 
<END>     
63,如何获取注册表中某一主键下的若干主键名 
我 想 请 教 关 于 VB API函 数 的 用 法 。 请 问 如 果 想 获 取 注 册 表 中 某 一 主 键 下 的 若 干 主 键 名 ， 是 否 用 RegEnumkeyEx就 行 ？ 我 写 出 以 下 代 码 ， 老 是 出 错 ？ 不 知 为 何 ？ 
    Public Type FILETIME 
     dwLowDateTime As Long 
     dwHighDateTime As Long 
    End Type 
    Public strFTPDbs(20) As String 
    Public iDBCount As Integer 
    Public Const REGKEYConnect = "SOFTWARE\MainKey" 
    Sub Main() 
     
     On Error GoTo ErrHandler 
     Dim lRetCode As Long ' 返 回 代 码 
     Dim hKey As Long ' 打 开 的 注 册 表 键 句 柄 
     Dim lKeyValSize As Long ' 注 册 表 键 变 量 大 小 
     Dim lpReserved As Long 
     Dim lpClass As String 
     Dim lpcbClass As Long 
     Dim lpftLastWriteTime As FILETIME 
     
     
    ' 在 键 根 {HKEY_LOCAL_MACHINE...}之 下 打 开 注 册 键 
     lRetCode = RegOpenKeyEx(HKEY_LOCAL_MACHINE, REGKEYConnect, 0, KEY_ALL_ACCESS, hKey) ' 打 开 注 册 表 键 
     If (lRetCode <> ERROR_SUCCESS) Then GoTo GetKeyError ' 错 误 处 理 ... 
     
     lKeyValSize = 1024 ' 标 记 变 量 大 小 
     lpClass = vbNullString 
     iDBCount = 0 
     
     lRetCode = RegEnumKeyEx(hKey, iDBCount, strFTPDbs(iDBCount), lKeyValSize, 0, lpClass, lpcbClass, lpftLastWriteTime) ' 获 得 /创 建 键 值 
    ''''''''''此 处 lRetCode返 回 值 87 
     If (lRetCode <> ERROR_SUCCESS) Then GoTo GetKeyError ' 错 误 处 理 
     
     lRetCode = RegCloseKey(hKey) ' 关 闭 注 册 表 键 
     Exit Sub ' 退 出 
     
    GetKeyError: ' Cleanup After An Error Has Occured... 
     lRetCode = RegCloseKey(hKey) ' 关 闭 注 册 表 键 
     
     Exit Sub 
     
    ErrHandler: 
     MsgBox "err!" 
    End Sub 
<END>
64,如何让程序在NT登录前运行 
如 何 将 一 个 用 VB开 发 的 EXE程 序 在 NT启 动 时 自 动 运 行 。 我 放 在 启 动 组 里 及 写 在 注 册 表 
    HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]， 但 只 是 在 登 录 以 后 才 运 行 ， 如 何 设 置 可 以 在 NT只 要 一 启 动 ， 不 管 有 没 有 登 录 都 可 以 运 行 。
<END>
65,如何进入休眠状态 
如 何 进 入 休 眠 状 态 ? 
<END>
66,如何分辨字体的语言 
如 何 分 辨 字 体 --中 文 ？ 英 文 ？ 繁 ？ 简 ？ 
<END>
67,调用网络上其他计算机注册表提示“1114”号错误 
近 日 发 现 一 个 可 以 调 用 网 络 上 其 他 计 算 机 注 册 表 的 API函 数 RegConnectRegistry可 无 论 如 何 调 试 均 提 示 “ 1114” 号 错 误 ， 得 出 是 动 态 连 接 库 初 始 化 失 败 ， 请 指 教 。 谢 谢 。 
    附 ： 
    x=RegConnectRegistry("\\TV", HKEY_LOCAL_MACHINE, lKey) 
<END>
68,应该采取何种方式监听并获得浏览器“复制快捷方式”内容 
应 该 采 取 何 种 方 式 监 听 并 获 得 IE等 浏 览 器 中 的 “ 复 制 快 捷 方 式 ” 内 容 的 操 作 比 较 好 （ 类 似 NetAnt那 样 ） 是 用 Timer或 者 是 监 听 MouseMove还 是 监 听 Clipboard,或 者 有 更 好 的 办 法 。 
<END>
69,如何接受从其它程序中拖来的文字 
我 想 程 序 实 现 这 样 一 个 功 能 ， 即 在 另 一 个 程 序 （ 如 记 事 本 ， 写 字 板 ， IE等 ） 中 加 亮 一 些 文 本 ， 然 后 用 鼠 标 拖 到 我 自 己 的 程 序 中 以 便 进 一 步 处 理 ， 我 怎 样 才 能 实 现 呢 ？ 好 象 只 能 通 过 API， 但 我 不 知 如 何 做 ， 能 帮 帮 我 吗 ？ 
<END>
70,如何实现类似“记事本”的“页面设置” 
你 注 意 过 Windows 98中 的 “ 记 事 本 ” 的 “ 页 面 设 置 ” 吗 ？ 请 问 如 何 在 VB中 实 现 （ 要 求 形 似 ， 神 似 ） ？ 
<END>
71,如何输出注册表内容到.reg文件 
怎 样 用 VB备 份 注 册 表 。 不 是 整 个 备 份 ， 而 是 备 份 注 册 表 下 面 的 分 支 ， 想 生 成 一 个 .reg文 件 ， 好 象 有 个 现 在 的 API可 用 ， 但 生 成 的 是 二 进 制 文 件 。 
<END>
72,如何用VB在资源管理器的快捷菜单上添加自己的选项 
象WINZIP那样，在某个文件上单击鼠标右键，在弹出的系统菜单中会根据当前的文件出现ADD ZIP等菜单项，如何用VB来实现这项功能？
<END>
73,能否在程序中直接调用资源管理器的一些功能 
我 能 否 在 程 序 中 用 比 较 直 接 的 方 法 调 用 资 源 管 理 器 的 一 些 功 能 ， 如 打 开 文 件 等 ? 
<END>
74,LVM_GETHEADER的值为多少 
请 问 LVM_GETHEADER的 值 为 多 少 ? 
<END>
75,如何在VB中调用getpath()函数 
请 问 如 何 在 VB中 调 用 getpath()函 数 ? 
<END>
76,如何不让Textout函数在桌面上写的字（图形）消失 
我 用 Textout函 数 在 桌 面 上 写 的 字 被 窗 口 覆 盖 后 再 移 开 窗 口 字 消 失 有 什 么 办 法 不 让 字 （ 图 形 ） 消 失 。 
<END>
77,如何调整线程的优先级 
在 一 个 程 序 里 ， 我 用 Timer 控 件 每 间 隔 10ms 查 询 一 次 数 据 ， 可 如 果 运 行 其 他 程 序 或 在 电 脑 上 做 别 的 一 些 占 用 较 多 CPU 时 间 的 事 ， 就 会 使 查 询 的 实 时 性 大 打 折 扣 ， 我 不 愿 意 看 到 这 样 。 请 问 是 否 能 通 过 设 置 Timer 线 程 的 线 程 优 先 级 为 最 高 来 解 决 这 个 问 题 ？ 怎 么 做 ？ 
<END>
78,请问hwnd和hdc有何分别 
请 问 hwnd和 hdc有 何 分 别 ？ 如 何 用 findwindowex()获 得 commandbutton的 hdc?
<END>
79,如何用GetWindow函数来列举桌面上的窗口 
如 何 用 GetWindow函 数 来 列 举 桌 面 上 的 窗 口 ？ 
<END>
80,API定义中的&H是什么含义 
现 在 我 看 到 一 些 用 API函 数 做 的 例 程 ， 其 中 有 一 个 语 名 PUBLIC CONST LVM_FIRST=&H1000 ， 该 语 句 中 &H1000代 表 的 是 什 么 含 义 ， 从 那 里 可 以 找 到 介 绍 该 词 典 的 书 ? 
<END>
81,如何在桌面上显示字或图片 
我 想 写 一 个 在 桌 面 上 显 示 字 或 图 片 的 程 序 ， 但 不 知 道 用 哪 个 api函 数 ? 
<END>
82,如何用VB或VC对Win 95及NT的注册文件进行读写 
如 何 用 VB或 VC对 中 文 Win 95及 NT的 注 册 文 件 进 行 读 写 ？ 需 调 用 哪 些 API接 口 ？ 
<END>     
83,怎样使用钩子函数 
设 定 消 息 钩 子 的 API函 数 SetWindowsHookEx是 怎 样 使 用 的 及 钩 子 函 数 应 有 什 么 样 的 界 面 ？ 
<END>
84,如何拦截系统外的消息 
我 想 用 VB写 一 个 子 类 处 理 程 序 ， 就 是 对 外 部 程 序 的 消 息 做 出 处 理 。 例 如 ， 在 桌 面 上 双 击 
    鼠 标 左 键 ， 程 序 拦 截 WM_LBUTTONDBLCLK消 息 并 做 出 相 应 处 理 。 现 在 我 用 了 API函 数 或 者 各 种 子 类 处 理 控 件 (包 括 MsgHook， SpyWorks,OLETools等 等 专 门 的 subclass控 件 ） ， 都 只 能 做 到 对 本 程 序 内 的 消 息 做 出 反 应 ， 而 不 能 对 程 序 外 的 消 息 做 出 反 应 。 详 细 地 说 ， 如 果 在 本 程 序 内 有 form1,现 在 可 以 成 功 拦 截 form1的 消 息 ， 但 是 对 form1以 外 的 消 息 没 有 反 应 。 请 问 有 什 么 办 法 或 者 有 什 么 控 件 能 够 满 足 我 的 要 求 吗 ？ 
<END>
85, 哪里能够找到WIN95 API的资 
请问哪里能够找到WIN95 API的资料(最好中文)？详细点，说明每个参数的类型和返回值等。 
<END>
86,如何提取可执行文件中包含的图标 
在 Visual Basic 5.0中 ， 怎 么 样 才 能 把 可 执 行 文 件 （ 如 .EXE文 件 、 .DLL文 件 等 ） 中 包 含 的 图 标 显 示 在 Picture Box中 ？ 要 是 该 文 件 包 含 有 多 个 图 标 ， 怎 样 显 示 指 定 的 一 个 ？ 能 举 一 个 程 序 例 子 说 明 吗 ？ 
<END>
87,如何让屏幕保护立即运行 
有 没 有 让 屏 幕 保 护 马 上 发 作 的 API函 数 ? 
<END>
88,如何关闭自己调用的.EXE文件 
最 后 请 问 如 何 控 制 自 己 打 开 的 .EXE文 件 ， 并 在 程 序 中 使 自 己 想 关 闭 就 关 闭 呢 ？ ？ ？ 
<END>     
89,怎样知道用户名，以及计算机名、工作组等网络的信息 
怎 样 知 道 Windows启 动 时 登 陆 的 用 户 名 ， 以 及 计 算 机 名 、 工 作 组 等 网 络 的 信 息 ？ 
<END>     
90,在msgblst中如何处理指向结构变量的地址 
在 vb中 限 制 一 个 窗 体 有 最 小 尺 寸 ， 您 的 回 答 ( “在VB中可以限制窗体的最小值吗”)是 在 resize事 件 中 限 制 ， 效 果 很 难 看 。 现 在 我 下 载 了 msgblst控 件 ， 想 在 wm_windowposchanging消 息 发 生 时 来 控 制 ， 可 这 个 消 息 的 lparam参 数 是 指 向 windowpos结 构 的 地 址 ， 我 把 一 个 定 义 为 这 个 结 构 的 变 量 传 递 给 lparam， vb说 类 型 错 误 ， 我 把 变 量 用 括 号 括 起 来 传 递 ， 还 是 出 错 。 我 想 知 道 ， 如 何 给 long型 的 lparam传 递 一 个 结 构 ？ 或 者 说 ， 我 如 何 把 一 个 结 构 的 地 址 放 到 一 个 long型 的 变 量 里 ？
<END>
91,调用EnumJobs函数 
我 使 用 EnumJobs函 数 进 行 打 印 机 设 计 ,想 返 回 当 前 打 印 作 业 的 情 况 。 该 函 数 说 明 如 下 ： 
    Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As 
    Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long 
    其 中 我 感 兴 趣 的 是 pJob这 个 参 数 。 按 照 说 明 ,该 参 数 是 Byte类 型 ,返 回 JOB_INFO_1结 构 数 组 的 首 址 ,而 JOB_INFO_1结 构 类 型 的 变 量 中 是 我 需 要 的 参 数 。 我 应 该 如 何 将 返 回 的 pJob转 换 成 JOB_INFO_1结 构 的 变 量 呢 ?? 
<END>
92,GetMetaFile总返回0 
Private Sub Command3_Click() 
    hdcRef = GetDC(Picture2.hwnd) 
    HdcMeta = GetMetaFile("e:\fanrui\car.wmf") 
    If HdcMeta = 0 Then Stop 
    RetVal = PlayMetaFile(hdcRef, HdcMeta) 
    RetVal = ReleaseDC(Picture2.hwnd, hdcRef) 
    RetVal = DeleteMetaFile(HdcMeta) 'RetVal = unlink("C:\Program Files\DevStudio\VB\Graphics\Metafile\BusinessC:\Program Files\DevStudio\VB\Graphics\Metafile\Business\Satelit2.wmf") 
    End Sub 
    效 果 ： hdcMeta总 返 回 0。 why? 
<END>
93,如何确定窗口是能显示不能显示 
用 FINDWINDOW(&0,&0)函 数 找 到 很 多 窗 口 名 ， 然 而 有 些 名 在 桌 面 上 却 没 有 (如 ： “ DDE Server Window” ） 如 何 确 定 这 些 窗 名 是 能 显 示 不 能 显 示 ？ 
<END>
94,有API能修改没有font属性的控件的字体吗 
如 果 相 应 的 控 件 没 有 font属 性 ， 如 何 改 变 它 的 字 体 的 大 小 。 有 对 应 的 API函 数 吗 ？ 如 对 webbrowser控 件 字 体 的 改 变 ? 
<END>     
95,如何能够禁止WINDOWS的任务栏出现 
如 何 能 够 禁 止 WINDOWS的 任 务 栏 出 现 ? 
<END>
96,通过API函数修改任意控件对象的颜色 
我 想 通 过 API函 数 修 改 任 意 控 件 对 象 的 颜 色 ， 比 如 我 想 改 变 我 写 的 程 序 菜 单 的 背 景 颜 色 、 TREEVIEW的 背 景 颜 色 和 边 框 颜 色 等 。 类 似 WINDOWS显 示 属 性 的 “ 外 观 ” 。 但 是 我 只 想 改 变 我 写 的 程 序 ， 并 不 想 改 变 整 个 WINDOWS的 外 观 。 你 能 告 诉 我 要 用 到 的 API函 数 和 它 们 的 用 法 。 
<END>
97,使用WINAPI调用GetActiveWindow函数 
使 用 WINAPI调 用 GetActiveWindow函 数 ,结 果 只 有 在 活 动 窗 口 是 VB窗 口 或 自 己 程 序 本 身 的 窗 口 时 才 能 得 到 值 ， 其 它 窗 口 为 活 动 窗 口 时 返 回 的 值 是 0， 不 知 是 何 原 因 ， 请 赐 教 。 
<END>     
98,如何滚动RichTextBox和得到被选中文本的行数 
我 在 运 用 SendMessage时 遇 到 问 题 : 
    当 我 用 
     X = SendMessage(RichTextBox1.hwnd, WM_VSCROLL, SB_LINEDOWN, ByVal 0&) 
     MsgBox (X) 
    时 出 现 问 题 。 当 滚 动 条 滚 到 底 端 时 ， RichTextBox仍 然 不 停 滚 动 , 而 x的 值 始 终 保 持 为 零 。 同 样 将 richtextbox1.hwnd换 成 text1.hwnd时 ， x有 值 ,当 text滚 动 条 滚 到 底 端 时 则 停 止 滚 动 ,x为 零 。 请 问 如 何 检 测 RichTextBox滚 动 到 底 部 ? 
    另 外 能 否 得 到 RichTextBox中 被 选 中 文 本 的 行 数 。 
<END>
99,怎么将文本框中的文字粘贴到word中 
程 序 只 有 一 个 form， 其 上 有 一 个 text。 我 想 实 现 的 功 能 如 下 ： 
    首 先 调 用 miscrosoft word或 其 他 文 字 处 理 软 件 , 新 建 一 个 文 档 ， 然 后 运 行 程 序 ， 在 文 本 框 中 输 入 文 本 。 如 果 我 这 时 候 点 击 word的 话 （ 激 活 ） ， 怎 么 将 文 本 框 中 输 入 的 文 字 粘 贴 到 word中 。 直 接 粘 贴 ， 不 用 ctrl-v。 
<END>
100,如何得到桌面上窗口的标题 
我 想 问 你 一 个 问 题 ， 希 望 能 得 到 你 的 指 点 ， 我 想 写 一 个 程 序 ， 把 所 有 的 桌 面 上 的 窗 口 关 掉 ， 我 知 道 用 SENDKEY 把 ALT+F4送 给 这 个 窗 口 应 该 是 可 以 的 ， 但 得 用 AppActivate来 激 活 这 个 窗 口 ， 这 我 就 不 知 道 该 如 何 办 到 了 。 能 否 指 点 一 二 ， 不 胜 感 激 。 
<END>     
101,如何传递NULL给API函数 
我 想 在 VB6中 使 用 WaitCommEvent函 数 。 声 明 如 下 ： 
    Declare funtion WaitCommEvent(Byval hFile as long, lpEvtMask as long,lpOverlapped as OVERLAPPED) as long 
    当 我 在 我 的 通 信 程 序 中 使 用 这 个 函 数 ， 我 想 把 第 三 个 函 数 象 C语 言 一 样 定 义 为 NULL。 但 是 我 怎 么 才 能 表 示 NULL呢 ？ 如 果 我 使 用 vbNullString或 vbNull， 会 产 生 编 译 错 误 ： "Compile error: ByRef argument type mismatch."。 
<END>
102,如何设置VB FORM 上CONTROL BOX 中的关闭按钮 
如 何 设 置 VB FORM 上 CONTROL BOX 中 的 关 闭 按 纽 ， 在 运 行 中 设 置 其 可 用 或 不 可 用 ? 
<END>     
103,在VB中如何直接调用Windows的查找对话框 
在 VB中 如 何 直 接 调 用 Windows的 查 找 对 话 框 ? 
<END>
104,如何使用Formula One 5.0的PrintDevMode属性 
如 何 使 用 Formula One 5.0的 PrintDevMode属 性 读 写 Windows API的 DEVMODE的 打 印 结 构 ? 
<END>