index1.txt

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

    List2.AddItem List1.List(j) 
    List1.RemoveItem j 
    End If 
     
    Next 
    Case 3 
    For j = List2.ListCount - 1 To 0 Step -1 
    If List2.Selected(j) Then 
    List1.AddItem List2.List(j) 
    List2.RemoveItem j 
    End If 
     
    Next 
    Case 2 
    For j = List2.ListCount - 1 To 0 Step -1 
    List1.AddItem List2.List(j) 
    List2.RemoveItem j 
     
    Next 
    End Select 
    End Sub 
     
    Private Sub Command2_Click() 
    save_Click 
    Form1.Show 
    Unload Me 
    End Sub 
     
    Private Sub save_Click() 
     
     CommonDialog1.Filter = "文 本 文 件 （ *.TXT） |*.txt" & "RTF文 件 (*.RTF)|*.RTF" 
     CommonDialog1.FileName = FileName 
     
     '显 示 保 存 对 话 窗 口 
     CommonDialog1.ShowSave 
     '如 果 没 有 文 件 
     If Len(CommonDialog1.FileName) = 0 Then 
     Exit Sub 
     End If 
     
     '判 断 文 件 格 式 
     If CommonDialog1.FilterIndex = 1 Then 
     '文 本 格 式 文 件 
     list.additem.SaveFile CommonDialog1.FileName, rtfText 
     Else 
     'RTF格 式 文 件 
     list.additem.SaveFile CommonDialog1.FileName, rtfRTF 
     End If 
    End Sub 
<END>    
52,读文件的Open语句应该怎样写
问 题 : 我 想 打 开 一 个 文 本 文 件 的 所 有 信 息 全 都 输 出 到 文 字 框 text1.txt中 。 
     Open "d:\text2.txt" For Append As #1 
     Do While Not EOF(1) 
     Line Input #1, strline$ 
     dd$=strline$+dd$+chr(13)+chr(10) 
     Loop 
     text1.text=dd$ 
     Close #1 
    可 是 不 好 使 。 请 改 正 谢 谢 ！ 
<END>    
53,只能在运行时用App.Path才能确定其启动路径
在 VPF中 可 用 set default to 可 设 置 其 默 认 路 径 ， 而 VB只 能 有 在 运 行 时 用 App.Path才 能 确 定 其 启 动 路 径 ， 在 设 计 时 则 默 认 为 VB的 安 装 路 径 。 对 于 象 data控 件 如 ， 在 设 计 时 用 data1.DatabaseName=.\test.mdb,则 不 能 找 到 数 据 库 ， 但 编 成 应 用 程 序 后 又 可 正 常 运 行 。 （ 只 通 用 双 击 设 计 时 的 工 程 文 件 启 动 VB设 计 时 才 可 正 常 设 计 )， 给 设 计 时 带 来 一 此 不 必 要 的 麻 烦 .... 
    不 知 有 何 妙 计 可 以 解 决 这 个 问 题 ？ 
<END>
54,用VB创建快捷方式
我想用vb6.0在启动和桌面上创建快捷方式, 不知如何实现。还望各位高手不吝赐教。 
<END>     
55,如何以类似数据库操作的方式打开文本文件
问 题 ： 如 何 以 类 似 数 据 库 操 作 的 方 式 打 开 文 本 文 件 ?我 试 图 用 DAO方 式 打 开 文 本 文 件 ， 就 如 同 VB的 例 子 VisData一 样 的 方 式 ， 发 现 实 际 上 是 打 开 文 本 文 件 所 在 目 录 下 的 所 有 文 本 文 件 ， DAO将 目 录 做 为 数 据 库 ， 其 下 的 文 本 文 件 做 为 表 ,请 问 如 何 单 独 打 开 某 个 文 本 文 件 ?我 发 现 实 际 上 可 以 用 DTSFlatFile提 供 者 打 开 文 本 文 件 ， 因 为 SQL Server 7.0的 Import & ExportWizard就 是 用 这 种 方 法 导 入 导 出 文 本 文 件 的 ， 但 如 何 使 用 DTSFlatFile提 供 者 ? 
<END>
56,如何获得系统文件夹的路径
问 题 : 请 问 如 何 获 取 桌 面 路 径 ?在 Win98里 好 办 ,只 要 用 API获 得 Windows目 录 ,然 后 加 上 \Desktop即 可 ,但 是 2000多 用 户 环 境 下 ,每 个 用 户 都 有 自 己 的 Desktop目 录 ,比 如 Documents and Settings\Administrator\Desktop,请 问 如 何 编 程 获 取 当 前 用 户 的 桌 面 所 在 路 径 。 
<END>
57,使用SHLWAPI库压缩长文件名
如何使用SHLWAPI库压缩长文件名?
<END>
58,如何将文件删除到回收站
用 SHFileOperation删 除 文 件 时 如 何 将 文 件 删 除 到 回 收 站 ？ 
<END>
59,能否进行半个字节的读写
问 题 : 我 现 在 要 对 一 文 件 进 行 操 作 ,但 在 VB中 好 像 只 能 一 个 字 节 一 个 字 节 的 进 行 读 写 ,不 能 对 半 个 字 节 进 行 操 作 。 可 是 ,我 现 在 要 进 行 半 个 字 节 的 操 作 ,也 就 是 说 ,一 次 ,只 能 读 写 半 个 字 节 的 内 容 ,请 问 ,有 什 么 方 法 。 
<END>
60,怎样在VB程序中生成另一个可执行文件
问 题 : 怎 样 在 VB程 序 中 生 成 另 一 个 可 执 行 文 件 (可 完 全 独 立 运 行 )。 比 如 在 程 序 A中 进 行 设 置 (如 输 入 文 字 等 )后 生 成 程 序 B。 程 序 B的 内 容 (如 文 本 框 )显 示 的 是 A所 设 置 的 内 容 。 程 序 B可 完 全 独 立 运 行 。 
<END>
61,删除桌面上的某一快捷键
是 否 可 以 在 VB中 通 过 调 用 API来 删 除 桌 面 上 的 某 一 快 捷 键 ？ 
<END>
62,如何编写一个文件自合并程序
我 编 写 了 一 个 用 以 切 割 文 件 的 程 序 ， 想 为 程 序 添 加 一 个 功 能 ， 让 程 序 切 割 文 件 后 自 动 编 写 一 个 自 合 并 程 序 （ 比 如 批 处 理 文 件 ） ， 以 便 我 在 另 一 台 机 合 并 切 割 了 的 文 件 时 不 用 再 装 一 便 该 切 割 程 序 。 有 办 法 吗 ？ 
<END>
63,如何将数据库中的内容按一定格式存到文本文件中
问 题 : 如 何 将 DBF数 据 库 或 MDB数 据 库 中 的 内 容 按 一 定 格 式 存 到 文 本 文 件 中 ， 急 ！ 
<END>
64,如何用代码改变文件属性（隐藏，系统，只读等）
请 问 如 何 用 代 码 改 变 文 件 属 性 （ 隐 藏 ， 系 统 ， 只 读 等 ） ？ 
<END>
65,怎样在指定的目录中查看是否还有文件夹
怎 样 在 指 定 的 目 录 中 查 看 是 否 还 有 文 件 夹 ， 如 果 有 怎 样 返 回 文 件 夹 的 名 称 。 怎 样 用 属 性 或 API函 数 实 现 。 
<END>
66,如何利用OLEDragDrop事件获得拖拽的文件名
我 编 一 个 程 序 ， 想 通 过 IMAGE1的 OLEDRAGDROP事 件 里 的 Data.Files()获 得 拖 拽 至 此 的 文 件 的 名 称 （ 文 件 数 量 
    不 定 ） ， 但 当 OLEDRAGDROP触 发 时 ， 我 不 能 确 定 Data.Files的 最 大 下 标 （ 我 用 UBOUND（ DATA.FILES） 会 出 错 ） 请 问 我 如 何 才 能 获 得 不 定 数 量 的 多 个 文 件 名 ？ 
<END>
67,用Put进行写操作时发现写入的十六进制代码位置不对
最 近 我 用 "Put"对 二 进 制 文 件 进 行 文 件 写 操 作 时 发 现 所 写 入 的 十 六 进 制 代 码 位 置 不 对 .如 : 
     Dim wp As Integer 
     Open "d:\dd.dat" For Binary As #1 
     Seek #1, &H99 
     wp=&H4D61 
     Put #1, , wp 
     Close #1 
    写 入 的 却 变 成 &H614D,请 问 如 何 解 决 。 
<END>
68,用何命令删除文件
我 编 写 了 一 个 网 友 自 己 可 以 贴 图 的 Asp交 友 程 序 ， 利 用 chinaasp的 上 传 组 件 实 现 贴 图 ， 限 制 jpg文 件 及 大 小 。 我 不 明 白 的 是 ， 如 果 网 友 自 己 想 删 除 资 料 ， 放 在 Access数 据 库 的 文 字 部 分 很 容 易 实 现 ， 但 存 放 在 服 务 器 photo目 录 下 的 jpg文 件 ， 在 VB中 该 用 何 命 令 删 除 ? 
<END>     
69,如何向标准输出写Unicode字符
问 题 ： 如 何 向 标 准 输 出 写 Unicode字 符 ? 
<END>
70,能否提高读写二进制文件的速度
如 果 定 义 BYTE变 量 读 写 二 进 制 文 件 似 乎 速 度 太 慢 ， 请 问 快 一 点 的 算 法 。 
<END>
71,生成EXE文件执行，Data的databasename应如何设置
我 现 在 使 用 Data控 件 在 本 机 上 设 置 databasename为 c:\mydocuments\1.mdb可 以 使 用 ， 我 现 在 生 成 EXE文 件 在 服 务 器 上 执 行 ， Data的 databasename应 如 何 设 置 ？ 
<END>
72,如何替换文件中的内容
磁 盘 上 一 个 文 件 ,用 open,print语 句 可 以 读 写 它 ,用 什 么 语 句 可 以 替 换 其 中 的 字 符 串 (如 "abc"全 部 替 换 为 "abcdefg")?能 否 不 经 过 读 写 文 件 ,在 磁 盘 上 直 接 替 换 ? 
<END>
73,怎样读写文件
怎 样 向 一 个 文 件 (例 如 文 本 文 件 等 )中 写 入 内 容 ,然 后 读 取 所 写 入 的 内 容 (例 如 通 过 文 本 框 显 示 出 来 )? 
<END>
74,如何检测指定目录下的指定文件是否存在
问 题 :如 何 检 测 指 定 目 录 下 的 指 定 文 件 是 否 存 在 ? 
<END>
75,VB与Windows资源管理器互拷文件
VB与Windows资源管理器如何互拷文件?
<END>
76,如何获得文件的相对路径
问 题 ： 我 在 编 写 一 个 HTML编 辑 器 ， 但 不 知 如 何 分 析 HTML语 法 中 的 文 件 的 相 对 路 径 ， 例 如 ： 
    当 前 目 录 : c:\site\subs\sub1\ 
    目 标 文 件 : c:\site\subs\images\logo.gif 
    那 么 在 html中 应 该 写 成 : <img src="../images/logo.gif> 
    请 问 如 何 编 写 分 析 此 类 相 对 路 径 的 语 句 ？
<END>
77,如何建立新文件、改文件名、改目录名
请 问 用 VB如 何 建 立 新 文 件 ， 改 文 件 名 ， 改 目 录 名 ？ 
<END>
78,怎样使用vb6.0读写MSDOS.SYS文件
问 题 : 怎 样 使 用 vb6.0读 写 MSDOS.SYS文 件 ？ 怎 样 修 改 该 文 件 (添 加 或 删 除 内 容 )? 
<END>
79,如何修改exe文件中的变量或代码并能保存
如 何 修 改 exe文 件 中 的 变 量 或 代 码 并 能 保 存 ? 
    我 在 编 一 个 点 歌 软 件 ,菜 单 链 接 歌 曲 文 件 路 径 .用 另 一 个 软 件 编 辑 点 歌 软 件 的 菜 单 ,并 可 改 变 链 接 的 文 件 路 径 ,这 就 要 改 变 点 歌 软 件 程 序 代 码 和 变 量 ,用 变 量 保 存 文 件 路 径 ,关 闭 程 序 ,如 何 保 存 代 码 和 变 量 的 内 容 ?变 量 内 容 能 存 盘 吗 ?编 译 成 exe文 件 后 ,能 改 变 它 的 代 码 吗 ? 
    在 command2_click中 可 以 call command1_click,令 变 量 abc="command1_click",call abc 为 什 么 不 行 ?怎 样 能 实 现 ? 
<END>
80,知道那个驱动器不是网络虚拟驱动器
问 题 : 我 在 使 用 VB6的 标 准 控 件 驱 动 器 下 拉 框 得 时 候 ， 想 知 道 那 个 驱 动 器 不 是 网 络 虚 拟 驱 动 器 ? 
<END>     
81,用RANDOM打开文件，无法准确定位和修改
小 弟 有 一 关 于 txt文 件 读 写 问 题 一 直 未 能 搞 清 ， 去 MSDN也 未 闻 其 详 。 曾 经 问 过 一 些 高 手 ， 也 未 能 茅 塞 顿 开 。 望 指 点 迷 津 。 
    OS:Pwin98 
    Tool:VB6 Chinese version 
    Question: 
    我 有 一 文 本 文 件 如 下 ： 
    

　 　 　 　 　 　 　 　 　 配 电 网 潮 流 计 算 原 始 数 据 

    一 、 基 准 参 数 ： 

    节 点 数 ， 　 根 节 点 电 压 (*)， 　 基 准 电 压 (kv)， 　 基 准 功 率 (MvA)

     67,        1.020000,       10.0,             100

     

    二 、 支 路 参 数 ：