index1.txt

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

<END>
27,用“SHFileOperation”API函数时，总是弹出一个询问是否替换的对话框
问 题 : 用 “ SHFileOperation” API函 数 copy文 件 时 ， 总 是 弹 出 一 个 询 问 是 否 替 换 的 对 话 框 。 请 问 怎 样 才 能 不 要 这 个 对 话 框 ？ 
<END>    
28,如何检测CDROM中有无光盘
如 果 我 想 在 vb6.0中 编 写 一 个 程 式 检 测 本 地 主 机 的 CDROM中 有 无 光 盘 ， 如 果 没 有 就 给 出 出 错 提 示 ， 请 问 我 该 怎 么 做 ？ 说 说 用 哪 些 函 数 就 成 谢 谢 ！ 
<END>
29,如何实现编辑和预览HTML文件的功能
如 何 实 现 frontpage等 所 具 有 的 编 辑 和 预 览 HTML文 件 的 功 能 ： frontpage等 制 作 网 页 的 工 具 都 能 打 开 一 个 HTML文 件 ， 对 其 进 行 编 辑 ， 如 替 换 文 字 和 图 片 等 操 作 ， 编 辑 后 还 可 以 预 览 ， 请 问 用 VB如 何 实 现 这 个 功 能 呢 ？ 其 中 要 用 到 的 关 键 控 件 是 什 么 ？
<END>
30,磁盘序列号能否作为程序加密的依据
通 过 这 段 程 序 能 得 到 软 盘 ， 硬 盘 的 序 列 号 。 
     Private Declare Function GetVolumeInformation Lib _ 
     "kernel32.dll" Alias "GetVolumeInformationA" (ByVal _ 
     lpRootPathName As String, ByVal lpVolumeNameBuffer As _ 
     String, ByVal nVolumeNameSize As Integer, _ 
     lpVolumeSerialNumber As Long, lpMaximumComponentLength _ 
     As Long, lpFileSystemFlags As Long, ByVal _ 
     lpFileSystemNameBuffer As String, ByVal _ 
     nFileSystemNameSize As Long) As Long 
     Function GetSerialNumber(strDrive As String) As Long 
     
     Dim SerialNum As Long 
     
     Dim Res As Long 
     Dim Temp1 As String 
     Dim Temp2 As String 
     
     Temp1 = String$(255, Chr$(0)) 
     Temp2 = String$(255, Chr$(0)) 
     
     Res = GetVolumeInformation(strDrive, Temp1, _ 
     Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2)) 
     
     GetSerialNumber = SerialNum 
     
     End Function 
    每 个 硬 盘 ， 软 盘 的 序 列 号 都 是 不 一 样 的 。 好 像 是 由 操 作 系 统 在 格 式 化 是 分 配 给 它 的 。 因 为 每 次 格 式 化 同 一 张 磁 盘 ， 得 到 的 数 据 是 不 一 样 的 。 请 问 这 个 信 息 放 在 了 磁 盘 的 什 么 位 置 ？ 可 否 不 通 过 格 式 化 来 写 入 这 个 号 ？ 现 在 是 否 有 软 件 能 做 到 这 点 ？ 如 果 这 个 号 码 不 能 随 便 写 入 ， 那 就 可 以 用 来 作 为 程 序 加 密 的 依 据 。 
<END>
31,在同一行定义两个byte型变量，则向二进制文件输出时就会发生错误
问 题 : 在 同 一 行 定 义 两 个 byte型 变 量 ， 则 向 二 进 制 文 件 输 出 时 就 会 发 生 错 误 ！ 例 如 : 
    Option Explicit 
    Dim by, mytt As Byte 
    Dim fno As Integer 
    Private Sub Command1_Click() 
    fno = FreeFile() 
    Open "c:\temp.dat" For Binary As fno 
    by = 255 
    Put fno, 1, by 
    Close fno 
    Unload Me 
    End Sub 
    则 输 出 结 果 为 02 00 ff 00,此 结 果 不 可 理 解 ， 如 果 把 两 个 byte型 变 量 分 开 定 义 ， 则 结 果 为 ff 00 我 想 此 结 果 是 正 确 的 。 请 问 这 是 为 什 么 ， 是 vb的 一 个 bug吗 ?
<END>
32,用“SHFileOperation”API函数copy文件时，怎样才知道copy成功
我 用 “ SHFileOperation” API函 数 copy文 件 时 ， 我 怎 样 才 知 道 copy成 功 ， 有 没 有 什 么 返 回 值 ？ 
<END>    
33,二进制文件的定位如“A000”是什么意思
问 题 : 本 人 有 一 二 进 制 文 件 ， 想 对 其 内 容 进 行 修 改 。 
    本 人 自 学 编 程 ， 属 半 路 出 家 ， 不 知 二 进 制 文 件 的 定 位 如 “ A000” 是 什 么 意 思 ？ 我 用 一 个 “ winhex.exe"软 件 查 看 该 二 进 制 文 件 的 内 容 ， 该 软 件 第 一 列 为 “ 00010” “ 00020” — — “ 000A0","000B0";第 一 行 为 0— — F,其 他 为 文 件 内 容 ， 本 人 能 用 该 软 件 修 改 该 文 件 的 内 容 ， 但 如 何 用 VB或 ACCESS97中 的 VBA实 现 呢 ？ 
<END>    
34,在写二进制文件中如何实现回车换行
问 题 : 在 写 二 进 制 文 件 中 ,如 何 实 现 回 车 换 行 ?
<END>
35,如何删除.ini文件中某个项目下的所有键值
问 题 : 如 何 删 除 .ini文 件 中 某 个 项 目 下 的 所 有 键 值 ?如 : 
    ..... 
     
    [abc1] 
    a=123 
    b=456 
     
    [abc2] | 
    a=111 |删 除 此 三 行 
    b=222 | 
     
    [abc3] 
    a=888 
    b=999 
    ..... 
    请 不 要 用 VB的 文 件 处 理 方 式 .最 好 用 API解 决 。 
<END>    
36,如何一次性把多行文本读入到一个string变量中
问 题 : 如 何 一 次 性 ,把 多 行 文 本 (有 上 万 行 )， 读 入 到 一 个 string变 量 中 ?(不 用 richtext) 
<END>     
37,使用WritePrivateProfileString为什么不能保存多段文字
问 题 : 我 把 一 个 文 本 框 内 容 保 存 到 WINDOWS的 一 个 记 事 本 中 ， 但 在 文 本 框 输 入 时 ， 只 要 过 段 ， 程 序 并 没 将 过 段 后 的 内 容 保 存 ,如 下 代 码 ， 请 求 专 家 修 改 ， 不 胜 感 谢 。 
    Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long 
    Private entry As String 
    Private r As Long 
    Private iniPath As String 
     
    Private Sub Command1_Click() 
     entry = Text1.Text 
     r = WritePrivateProfileString("用 户 信 息 ", "姓 名 ", entry, iniPath) 
    End Sub 
     
    Private Sub Form_Load() 
    iniPath$ = "c:\Aa.ini" 
    End Sub 
<END>    
38,怎么在程序中删除一个目录
问题: 请问怎么在程序中删除一个目录？
<END>
39,如何保存用户的选择
我 想 做 一 个 提 示 窗 体 ， 其 中 含 有 “ 下 次 不 再 显 示 此 提 示 窗 体 ” 复 选 框 （ 我 用 一 个 checkbox控 件 实 现 ） ， 以 实 现 由 复 选 框 的 选 中 状 态 来 决 定 下 次 程 序 启 动 时 是 否 显 示 此 提 示 窗 体 ， 但 每 当 程 序 关 闭 后 再 重 启 ， checkbox并 不 能 “ 记 忆 ” 上 次 的 状 态 ， 这 可 如 何 是 好 ？
<END>
40,如何控制CD-R进行读写操作
问 题 : 如 何 用 PB控 制 CD-R进 行 读 写 操 作 ?请 问 各 位 大 侠 那 里 有 实 现 该 功 能 的 控 件 ? 
<END>    
41,把文本文件导入到数据表中不成功怎么办
问 题 : 主 题 ： 关 于 把 文 本 文 件 导 入 到 数 据 表 中 
    我 在 WIN98用 VB6和 Access97编 程 ， 我 想 把 一 个 文 本 文 件 导 入 到 一 个 确 定 字 段 大 小 的 数 据 表 中 ， 我 用 以 下 的 方 法 ： 
     Do While Not EOF(1) 
     Line Input #1, s 
     rdData.AddNew 
     rdData!fields01 = Mid(s,1,4) 
     rdData!fields02 = Mid(s,5,8) 
     rdData!fields03 = Mid(s,13,8) 
     ............... 
     rdData.Update 
     loop 
    结 果 数 据 导 入 不 成 功 ， 但 是 我 把 第 一 行 的 文 本 删 除 后 保 存 ， 再 运 行 导 入 却 成 功 了 。 
    我 在 do loop 循 环 前 连 续 写 了 几 句 "Line Input #1,s",结 果 运 行 到 第 二 句 时 说 “ 错 误 '62',输 入 超 出 文 件 尾 ” 。 
    我 有 以 下 问 题 想 请 教 ： 
    *是 不 是 在 文 本 文 件 的 某 些 行 (这 里 是 第 一 行 )有 文 件 结 尾 的 标 记 ， 而 我 们 却 看 不 到 ？ 
    *能 不 能 跳 过 一 行 而 不 读 或 直 接 删 除 一 行 文 本 。 
    *该 文 本 文 件 是 我 从 其 他 数 据 库 用 FTP download下 来 再 改 成 扩 展 名 为 .txt的 文 本 文 件 ， 上 面 产 生 的 问 题 是 否 和 这 个 有 关 ？ 
    *改 动 文 本 文 件 后 保 存 为 "Word6.0文 档 "、 "RTF文 档 " 和 "文 本 文 档 "有 什 么 区 别 ？ 
    *对 于 把 文 本 文 件 导 入 到 一 个 确 定 字 段 大 小 的 数 据 表 中 ， 有 没 有 更 好 的 方 法 ？ 
    *是 不 是 有 一 种 方 法 可 以 从 分 隔 文 本 文 件 将 数 据 读 到 ADO 记 录 集 ， 并 使 用 ADO 的 特 性 来 操 作 数 据 ？ 
<END>    
42,如何将某一文件夹的图标修改为自己的图标
问 题 ： 请 问 如 何 用 vb将 某 一 文 件 夹 的 图 标 修 改 为 自 己 的 图 标 ？ 我 主 要 想 知 道 修 改 哪 里 ， 是 注 册 标 还 是 *， ini ?vc 也 可 以 ， 但 我 不 太 熟 练 ， 最 好 能 有 给 段 代 码 。 衷 心 感 谢 ！ 
<END>    
43,如何在主模块和ActiveX DLL中传递文件句柄
问 题 : 本 人 向 生 成 一 个 类 协 同 操 作 一 个 文 件 由 于 某 些 特 殊 的 原 因 必 须 要 将 其 编 写 成 ActiveX Dll， 但 是 本 人 将 在 主 文 件 中 生 成 的 文 件 编 号 传 递 到 ActiveX DLL中 却 产 生 了 却 不 能 被 识 别 。 其 原 因 似 乎 是 每 个 模 块 单 独 维 护 一 个 文 件 号 序 列 。 
    请 问 如 何 在 其 之 间 同 时 对 一 个 文 件 操 作 ， 即 如 何 把 在 exe中 打 开 的 文 件 句 柄 传 递 到 ActiveX DLL中 。 
<END>    
44,如何获取系统（Windows)的安装路径
问 题 : 请 问 如 何 在 vb6中 获 取 系 统 （ windows)的 安 装 路 径 ？ 
<END>
45,如何向文本文件中添加文本
我 想 问 一 个 关 于 vb6 文 件 写 操 作 的 问 题 。 我 现 有 一 文 本 文 件 ， 而 我 只 想 向 此 文 件 添 加 文 本 ， 形 式 是 每 次 添 加 的 内 容 都 另 起 一 行 ， 原 内 容 不 变 。 不 知 该 如 何 做 到 ？ 
<END>
46,如果数据库文件没有后缀名，怎样通过编程方式判别类型
问 题 : 如 果 一 个 桌 面 数 据 库 文 件 （ 如 FoxPro、 Access等 文 件 ） 没 有 后 缀 名 ， 怎 样 通 过 编 程 方 式 判 别 这 个 数 据 库 文 件 的 数 据 库 类 型 ？ 
<END>    
47,如何才能保留在控件中添加上的内容
问 题 : 我 想 编 一 个 小 程 序 就 是 ， 点 击 按 钮 后 将 文 本 框 中 的 内 容 自 动 添 加 到 LIST列 表 中 ， 然 后 点 击 列 表 的 相 应 项 目 后 又 会 出 现 在 文 本 框 中 。 [现 在 都 可 以 了 只 是 程 序 一 旦 关 闭 后 ， 所 有 的 东 西 就 都 没 有 了 ， 请 问 如 何 才 能 保 留 添 加 上 的 内 容 ] 
<END>    
48,如何实现类似DOS的cd\copy\c:之类的命令
问 题 : 我 想 问 一 下 ， 在 VB中 如 何 不 用 任 何 控 件 ， 如 何 实 现 类 似 DOS的 cd\copy\c:之 类 的 命 令 ？ 
<END>     
49,怎么找不到FileSystemObject
问 题 : 我 想 用 VB6.0中 的 FileSystemObject这 个 控 件 ， 但 怎 么 也 找 不 到 它 ， 可 以 找 到 FileSystem这 个 控 件 ， 但 FileSystem控 件 与 FileSystemObject控 件 好 象 是 不 一 样 的 ， 我 想 要 的 是 FileSystemObject控 件 ， 麻 烦 您 给 帮 忙 解 决 一 下 好 吗 ?
<END>
50,调用shell语句时如何处理带有空格的路径
请 问 vb6.0中 shell语 句 如 何 调 用 "写 字 板 程 序 "编 辑 指 定 文 档 .设 有 一 文 档 a.doc 其 位 置 在 C:\My Documents\a.doc 参 考 解 法 : 
    dim i as double 
    i=shell("C:\Program Files\Accessories\WORDPAD.EXE"+ " " +_ 
    "C:\My Documents\a.doc ",1) 
    但 此 法 运 行 时 提 示 ： “ d:\My 找 不 到 此 文 件 。 请 确 认 路 径 和 文 件 名 是 否 正 确 ” 。 据 我 观 察 VB似 乎 未 能 识 别 诸 如 My Documents这 样 带 有 空 格 的 路 径 ， 请 问 如 何 解 决 。
<END>
51,怎样把list 中的内容保存成为 *.txt文件
我 是 一 名 vb 爱 好 者 ， 现 在 我 遇 到 一 个 问 题 ： 从 数 据 库 中 把 数 据 调 入 listbox 中 显 示 ,list1中 显 示 调 入 的 数 据 ， list2中 是 按 我 的 要 求 选 择 的 ， 怎 样 把 list 中 的 内 容 保 存 成 为 *.txt文 件 ？ 
    我 有 一 段 代 码 ， 请 高 手 帮 我 修 改 一 下 ， 我 将 非 常 感 谢 您 的 ！ 
    Private Sub Command_Click(Index As Integer) 
    Dim j As Integer 
    Select Case Index 
    Case 0 
    For j = List1.ListCount - 1 To 0 Step -1 
    List2.AddItem List1.List(j) 
    List1.RemoveItem j 
     
    Next 
    Case 1 
    For j = List1.ListCount - 1 To 0 Step -1 
    If List1.Selected(j) Then