index1.txt

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

    始 节 点 号 ， 　 末 节 点 号 ， 　 电 阻 ， 　 　 　 电 抗 ， 　 　 对 地 电 纳 （ 或 变 比 ） 

     0,            1,       0.0791,     0.0725,        0      

     1,            2,       0.0741,     0.0230,        0

    ...

    3,            66,       2.1160,     5.9860,        0

    

    三 、 节 点 参 数 ： 

    节 点 号 ， 　 　 给 定 有 功 ， 　 　 给 定 无 功 ， 　 　 对 地 电 导 ， 　 　 对 地 电 纳 

     0,            0,            0,            0,            0, 0

    ...

     5,        -0.00023480,   0.887,           0,            0, 0

    

    现 欲 在 此 不 定 长 记 录 文 本 文 件 中 把 类 型 二 中 的 参 数 3的 某 一 个 记 录 作 修 改 ， 然 后 以 原 格 式 存 盘 。 
    由 于 此 文 本 文 件 为 两 个 程 序 之 间 的 交 换 文 件 ， 所 以 格 式 要 一 点 不 变 化 。 我 用 RANDOM打 开 文 件 ， 再 用 PUT语 句 修 改 。 
    1、 无 法 准 确 定 位 。 
    2、 而 且 由 于 用 “ PUT #1， ？ ？ ？ ， 变 量 1” 的 格 式 ， 所 以 常 把 缓 冲 区 内 的 字 符 也 带 进 来 。 
    3、 若 有 语 句 put #1,,a,其 中 a 是 一 变 量 ， 执 行 后 常 有 乱 码 出 现 。 
    以 上 就 是 全 部 问 题 。 若 我 叙 述 的 不 清 楚 ， 望 来 信 告 知 。 请 指 教 ， 不 胜 感 激 。 
<END>
82,如何列举ini文件中所有的项
请 问 :如 何 列 举 ini文 件 中 所 有 的 项 ？ 
<END>
83,打开记录集显示 ：Timeout expired
本 人 正 在 用 VB 6.0 和 SQL Server 7.0 开 发 一 个 企 业 MIS软 件 。 遇 到 一 些 问 题 向 专 家 请 教 。 本 软 件 为 C/S结 构 ， 其 开 发 环 境 如 下 ： 
    客 户 端 程 序 ： 
     操 作 系 统 ： NT Workstation 4.0 （ 英 文 版 ） +SP4 
     开 发 工 具 ： VB 6.0 （ 英 文 版 ） +SP3 和 Sheridan公 司 的 第 三 方 控 件 (DBGrid, DBCombo) 
    数 据 库 服 务 器 ： 
     操 作 系 统 ： NT Server 4.0 （ 英 文 版 ） +SP4 
     DBMS： SQL Server 7.0 Desktop Edition 
    客 户 端 程 序 通 过 ADO方 式 连 接 SQL Server上 的 数 据 库 。 ADO的 Provider 为 SQLOLEDB。 
    当 我 试 图 用 一 个 ADO Recordset 的 Open 方 法 打 开 一 个 56万 条 记 录 的 表 时 ， 无 法 正 常 返 回 记 录 ， 而 是 显 示 一 个 MessageBox ： Timeout expired。 打 开 20万 条 记 录 的 表 时 还 没 有 这 个 问 题 。 我 怀 疑 是 ADO对 一 次 打 开 的 记 录 数 有 限 制 ， 但 不 知 如 何 解 决 。 
    代 码 ： 
    Dim rsReport AS NEW Recordset 
    rsReport.Open"Bulks",cnnMain,adOpenKeyset, adLockOptimistic 
    其 中 cnnMain为 一 已 建 立 好 的 ADO连 接 。 
    再 有 ， 在 DBGrid中 显 示 这 样 大 的 表 时 ， 即 便 能 正 常 打 开 ， 也 往 往 要 等 几 分 钟 甚 至 更 长 。 能 不 能 象 SQL SERVER的 Enterprise Manager中 那 样 ， 边 打 开 边 显 示 ， 而 不 是 全 打 开 了 才 显 示 。 
<END>
84,如何在客户机上建立服务器上的一个共享的文件目录
问 题 : 如 何 在 客 户 机 上 建 立 服 务 器 上 的 一 个 共 享 的 文 件 目 录 ， 而 且 能 建 立 不 止 一 层 目 录 ？ 
<END>
85,如何用程序来把一个目录下面的所有的文件列出来
如 何 用 程 序 来 把 一 个 目 录 下 面 的 所 有 的 文 件 列 出 来 ， 并 加 入 到 一 个 数 组 中 去 ? 
<END>     
86,把用户名、密码写在文本文件中保存好不好
问 题 : 我 想 在 vb6中 连 接 某 远 程 服 务 器 ， 服 务 器 ip、 用 户 名 、 口 令 可 能 会 经 常 改 变 ， 我 目 前 的 做 法 是 将 这 些 信 息 写 在 一 个 文 本 文 件 中 ,每 次 改 变 口 令 、 ip都 修 改 文 件 内 容 ， 不 知 类 似 问 题 的 惯 用 做 法 是 何 ？ 有 没 有 更 安 全 的 方 法 。 
<END>
87,ActiveReports能否添加打印条件
问 题 : ACTIVEREPORT 能 否 向 FOXPRO的 报 表 一 样 ,添 加 打 印 条 件 ,比 如 若 该 字 段 值 为 0则 不 打 印 。 
<END>
88,如何打开和读写二进制文件
请 问 ： 如 何 完 成 下 面 的 操 作 ？ 用 VB打 开 二 进 制 文 件 ， 读 /写 文 件 任 意 字 节 
    比 如 ： 00 FF 02 0A 文 件 前 四 个 字 节 任 意 读 /写 。 读 /写 位 置 可 以 是 文 件 头 ， 文 件 中 间 ， 文 件 尾 。 
<END>
89,文件的所占空间和文件大小之和为什么不同
您 好 ， 我 想 得 到 一 个 目 录 的 所 占 空 间 ， 我 发 现 并 不 是 将 所 有 的 文 件 相 加 ， 请 问 用 什 么 函 数 ？ 
<END>
90,QB中CV?和MK?$两组函数对应的VB函数
如 何 将 数 据 转 换 为 内 存 二 进 制 形 式 字 符 串 （ 不 是 可 视 数 值 串 ） ？ DOS版 的 QB有 CV?和 MK?$两 组 函 数 可 以 进 行 转 换 ， 而 在 VB中 找 不 到 函 数 。 
<END>
91,如何以一个模板为基础生成文件
我 用 html文 件 格 式 建 立 一 个 模 板 ,我 想 以 此 为 基 础 ,给 每 个 人 生 成 一 个 结 果 报 告 。 在 需 要 改 动 的 地 方 我 用 *表 示 ,我 想 问 能 不 能 通 过 读 入 顺 序 文 件 ,然 后 查 找 *,并 替 换 为 别 人 的 姓 名 ,性 别 ,年 龄 等 值 。 
<END>
92,如何获取文件的版本信息
如 何 获 取 文 件 的 版 本 信 息 (即 :文 件 属 性 页 的 版 本 页 上 的 内 容 )?FSO?API? 
<END>
93,如何在文件中准确定位
各 位 好 ， 我 在 替 别 人 编 一 个 计 算 程 序 的 界 面 。 计 算 程 序 为 c++编 译 成 的 exe文 件 ， 其 数 据 以 文 本 方 是 存 储 （ *.txt） 。 我 要 在 界 面 中 读 写 这 些 txt。 比 如 说 将 一 个 变 量 值 写 入 txt中 适 当 位 置 及 将 txt中 适 当 位 置 的 变 量 值 读 出 。 
    现 在 的 问 题 是 ： 如 何 在 txt中 准 确 定 位 ？ 比 如 我 要 将 某 一 个 字 段 的 第 n个 元 素 改 变 ， 如 何 将 变 量 写 入 此 位 置 ？ 我 在 MSDN中 无 法 找 到 相 应 帮 助 。 故 此 求 教 。 
<END>
94,如何建立文件关联
请问怎样才能能实现象ACDSEE、WIN ZIP那样，用户双击带有自己定义的后缀名的文件时，自动进入自己的软件并按格式打开该文件？ 
<END>
95,如何调用WinZip7.0进行压缩
用 VB编 写 一 个 程 序 ， 在 VB中 指 点 定 一 个 文 件 ， 然 后 调 用 WinZip7.0进 行 压 缩 （ 自 动 )。 
<END>
96,程序被其他程序调用后不能找到文件
我 用 vb6写 了 一 个 多 媒 体 程 序 , 然 后 在 另 一 个 程 序 中 用 shell函 数 调 用 。 结 果 发 现 所 有 的 声 音 和 动 画 都 不 能 正 常 播 放 , 但 直 接 运 行 此 程 序 是 正 常 的 。 问 题 在 哪 里 ?百 思 不 得 其 解 。 
<END>
97,如何删去文件后的N个字节
用 VB对 二 进 制 的 文 件 进 行 操 作 时 ， 如 何 删 去 文 件 后 的 N个 字 节 ？ 
<END>
98,如何在文件拷贝中使用进度条
如 何 在 文 件 拷 贝 中 使 用 进 度 条 ？ VB的 FileCopy函 数 无 法 知 道 拷 贝 了 多 少 字 节 ， 进 度 条 的 Value无 法 知 道 。 
<END>
99,能否定制CommonDialog
能 否 定 制 CommonDialog， 比 如 增 加 构 件 、 扩 大 对 话 框 、 改 变 原 有 按 钮 的 标 题 等 。 前 期 是 充 分 利 用 已 有 的 CommonDialog， 机 系 统 自 带 的 DLL或 OCX。 
<END>
100,如何在VB中操作磁带机进行数据备份
我 想 知 道 如 何 在 VB中 操 作 磁 带 机 进 行 数 据 备 份 ， WIN98 是 否 有 DLL库 可 以 调 用 ， 如 何 调 用 。 或 者 哪 里 有 这 方 面 的 资 料 ！
<END>
101,如何在生成.lnk和.url文件之前定义它的ICON和快捷键
请 问 用 VB生 成 了 .lnk(.url)的 文 件 ， 如 何 在 生 成 文 件 之 前 定 义 它 的 ICON和 快 捷 键 ？ 在 这 方 面 还 有 什 么 别 的 功 能 可 开 发 没 ？ 
<END>
102,如何知道CDROM更新
本人希望在VB中实现：程序远行是，当我放了一张光盘进CD-ROM，程序会自动的更新光盘中的信息（就如当我放了一张CD盘，它自动地能够播放）！是否可不用Timer控件? 
<END>
103,如何取得文件名的创建时间、修改时间、大小
1、 如 何 取 得 文 件 名 的 创 建 时 间 、 修 改 时 间 ？ 
    2、 怎 样 取 得 文 件 的 大 小 （ 多 少 K） ？ 
<END>     
104,如何读取记录和非记录混合的文件
读 一 个 二 进 制 文 件 ， 此 文 件 既 包 含 记 录 又 有 非 记 录 成 分 。 想 将 这 些 数 据 赋 值 给 一 个 数 据 库 的 字 段 。 文 件 格 式 为 ： 两 个 非 记 录 数 据 （ 4字 节 +6字 节 ） +2000个 记 录 数 据 （ 20个 字 段 ， 每 个 字 段 4字 节 长 1。 记 录 和 非 记 录 数 据 之 间 怎 样 分 离 开 ？ 我 想 生 成 一 个 由 纯 记 录 组 成 的 文 件 便 于 读 取 数 据 给 数 据 库 2。 记 录 是 由 大 量 的 4字 节 数 据 （ 代 表 整 数 ， 也 有 代 表 单 精 度 ） 组 成 ， 怎 样 定 义 记 录 的 字 段 变 量 ？ 
     是 dim a(4) as byte 
     get #1, ,a 
    数 组 名 能 代 表 4字 节 整 数 或 单 精 度 数 据 ？ 
<END>
105,如何获得文件在DOS状态下的短文件名
恳 请 赐 教 ： 如 何 通 过 编 程 获 得 文 件 目 录 在 dos状 态 下 的 目 录 ?例 如 ： 目 录 "program files"在 dos状 态 下 变 为 "progra~1"。 因 为 有 些 程 序 的 命 令 行 不 能 识 别 目 录 中 的 空 格 ， 只 能 识 别 dos状 态 的 目 录 。 
<END>
106,如何增加“发送到”目标
如 何 设 计 程 序 接 口 ， 具 体 为 ： 多 数 程 序 （ 如 Word） 在 选 中 Word文 件 后 选 “ 发 送 到 ” Word后 不 但 Word自 动 启 动 ， 还 自 动 读 入 该 文 件 ， 如 何 在 我 自 己 编 制 的 程 序 中 实 现 这 一 点 ？ 
<END>
107,如何删除文件中的一些文本
我 要 用 VB的 随 机 访 问 模 式 ， 读 取 一 格 式 化 的 文 本 文 件 。 但 事 先 需 要 删 除 一 些 非 格 式 化 的 文 本 ， 怎 样 作 ？ 
<END>
108,如何在浏览目录时指定初始目录
我 在 VB中 调 用 一 个 API函 数 ： SHBROWSEFORFOLDER， 用 来 指 定 目 录 ， 但 希 望 在 下 次 调 用 时 该 函 数 打 开 的 窗 口 能 自 动 跳 到 原 先 选 择 的 目 录 ， 我 不 希 望 使 用 其 结 构 BROWSEINFO中 的 pidlRoot,因 为 它 不 能 再 调 用 其 上 级 目 录 ， 我 知 道 在 C中 是 使 用 BEFCALLBACK来 实 现 的 ， 但 不 知 在 VB中 如 何 实 现 。 最 好 能 有 实 例 。 
<END>
109,如何知道CDROM的盘符
如 果 在 别 的 机 器 ， 我 不 知 道 CDROM的 盘 符 ， 又 该 怎 么 办 呢 ? 
<END>
110,采用文本方式还是采用二进制方式
我 是 VB的 一 个 初 学 者 ， 提 出 的 问 题 也 比 较 初 级 。 说 来 也 惭 愧 大 家 都 已 经 VB6了 ， 我 手 头 只 有 vb6， 并 没 有 任 何 学 习 材 料 。 因 我 现 在 落 后 的 非 洲 大 陆 的 西 部 — — 几 内 亚 ， 希 望 解 答 的 尽 量 详 细 。 
    现 需 要 完 成 这 样 一 个 工 作 ， 完 整 地 读 一 个 磁 盘 文 件 （ 任 何 格 式 、 任 何 长 度 ） ， 处 理 后 再 换 名 存 入 磁 盘 ， 应 采 用 什 么 读 写 方 式 。 
    在 试 验 中 发 现 ： 读 的 过 程 ， 若 用 for input打 开 ， 用 input读 时 ， 遇 到 &h1a（ EOF） 时 就 不 读 了 ， 似 不 能 处 理 任 意 格 式 的 文 件 ； 如 果 用 for binary打 开 ， 要 事 先 定 义 字 符 串 长 度 ， 不 知 如 何 处 理 任 意 长 度 的 文 件 。 
    写 的 过 程 ， 若 用 for output打 开 ， 然 后 用 print #写 时 ,每 写 入 一 段 ， 在 其 之 后 多 了 两 个 字 符 ， 回 车 和 换 行 符 (&h0d,&h0a)， 这 点 不 符 合 我 的 要 求 ， 我 希 望 一 字 不 添 一 字 不 减 ； 如 果 用 for binary打 开 ， 然 后 用 put函 数 写 ， 在 生 成 的 文 件 中 ， 最 前 头 多 了 4个 字 节 ， 前 两 个 字 节 不 知 是 什 么 内 容 ， 后 两 个 好 象 是 文 件 长 度 。 这 也 不 符 合 我 的 要 求 。 另 外 用 这 种 方 法 写 的 文 件 ， 如 果 磁 盘 上 有 同 名 文 件 ， 写 入 的 文 件 长 度 小 于 原 磁 盘 中 文 件 时 ， 保 留 原 文 件 长 度 ， 而 不 是 我 写 的 新 文 件 的 实 际 长 度 。 
    我 应 采 用 什 么 语 句 、 函 数 进 行 编 程 才 能 达 到 本 文 开 始 提 出 的 要 求 。 在 VB中 有 没 有 类 似 DOS中 的 系 统 调 用 ah=3fh int 21h（ 读 文 件 ） 和 ah=40h int 21h（ 写 文 件 ） 的 功 能 。 望 在 百 忙 之 中 给 以 赐 教 ， 不 胜 感 谢 。 
<END>
111,基于HTML文件的查询显示功能
我 想 请 教 一 下 ， 我 想 用 Webbrowse控 件 做 一 个 类 似 浏 览 器 一 样 功 能 的 程 序 。 想 在 其 中 做 一 个 基 于 HTML格 式 文 本 的 查 询 功 能 ， 具 体 效 果 和 IE浏 览 器 中 的 Find...功 能 一 样 ， 但 日 常 我 所 见 的 查 询 操 作 都 是 基 于 文 本 文 件 的 查 询 ， 不 知 道 基 于 HTML文 件 的 查 询 显 示 功 能 该 如 何 下 手 去 编 ， 再 此 ， 我 诚 恳 的 请 求 各 位 专 家 大 哥 们 能 够 帮 帮 小 弟 一 把 。 
<END>
112,转换HTML到TXT格式
如 何 找 到 一 个 转 换 HTML到 TXT格 式 的 控 件 或 程 序 段 ？ 
<END>
113,如果VB打开正在使用的文件时出错怎么处理
在 VB中 打 开 一 个 文 件 时 ， 如 果 这 个 文 件 正 在 被 使 用 ， 就 会 出 错 ， 怎 样 解 决 当 打 开 失 败 时 ， 程 序 等 待 直 到 打 开 成 功 ? 
<END>     
114,VB中如何读取INI文件
VB中 有 没 有 读 取 INI文 件 的 函 数 ， 同 样 功 能 的 API函 数 是 什 么 ？ 
115,如何调用GetVolumeInformation获得磁盘序列号
有 没 有 WinAPI GetVolumeInformation 函 数 的 vb6例 程 ？ 
<END>
116,如何在文本文件中另起一行
怎 样 在 一 个 .log文 件 中 写 入 一 段 文 本 (未 满 1024字 节 )， 并 另 起 一 行 再 写 入 一 段 文 本 。 谢 谢 。 
<END>     
117,怎么能用VB命令实现多个文件的拷贝工作
怎么能用VB命令实现多个文件的拷贝工作？ 
<END>
118,如何忽略ARJ的换盘提示
在 VB中 使 用 Shell命 令 执 行 一 个 ARJ的 压 缩 指 令 ， 
    例 ： Shell "arj a -v1440 c:\test\test.arj c:\test\test.mdb" 
    当 文 件 大 小 超 过 1.44M时 ， 在 DOS中 会 有 要 求 换 盘 的 信 息 ， 但 在 VB中 如 何 截 取 ？ 最 好 给 我 一 段 实 例 ， 谢 谢 。 
<END>
119,如何实现对不同文件的打印功能
如 何 Ｖ Ｂ 的 CommonDialog .TexBox控 件 及 各 种 打 印 方 法 ， 以 实 现 对 不 同 文 件 的 打 印 功 能 ？ 
<END>
120,如何处理二进制
我 想 ， WinZip加 密 时 是 先 要 打 开 该 被 加 密 文 件 存 放 到 一 个 变 量 或 控 件 中 去 ， 然 后 再 对 其 加 密 保 存 的 。 既 然 WINZIP能 以 某 种 格 式 准 确 无 误 地 打 开 文 件 ， 为 什 么 我 却 不 能 把 二 进 制 文 件 (如 EXE， BMP)文 件 准 确 地 打 开 在 RICHTEXTBOX中 ？ 我 在 用 LOADFILE以 TEXT格 式 打 开 并 保 存 一 个 真 彩 位 图 文 件 时 ， 该 文 件 虽 能 被 打 开 显 示 ， 但 颜 色 信 息 丢 失 得 厉 害 。 打 开 并 保 存 一 个 可 执 行 文 件 时 连 文 件 的 图 标 信 息 也 没 了 ， 一 双 击 就 说 内 存 不 够 。 
    记 得 WORD97也 是 能 做 到 准 确 地 打 开 /保 存 一 个 二 进 制 文 件 的 ， 请 问 我 怎 样 才 能 实 现 像 他 们 那 样 ？ 
    我 想 准 确 地 打 开 文 件 ， 是 因 为 近 来 想 编 一 个 加 密 程 序 ， 需 要 把 文 件 写 在 RICHTEXTBOX上 对 其 字 符 逐 一 加 密 再 保 存 。 如 果 你 有 什 么 好 建 议 ， 恳 请 赐 教 ！ 
<END>
121,程序能找到它被安装的路径所在
我 想 让 我 写 的 程 序 能 找 到 它 被 安 装 的 路 径 所 在 ， 我 的 方 法 是 想 通 过 取 得 注 册 表 中 的 键 值 来 得 到 ， 比 如 “ ...\app paths\photoshp.exe” ， 它 有 一 个 名 称 为 “ 默 认 ” ， 数 据 为 “ d:\adobe\photoshp\photoshp.exe” ， 我 的 目 的 就 是 想 得 到 这 个 数 据 “ d:\adobe\photoshp\photoshp.exe” 在 此 先 多 谢 了 ！ 
<END>