index2.txt

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

122,实时错误“62”输入超出文件尾
如 果 我 想 在 DO WHILE NOT EOF（ 1） － － － － LOOP语 句 中 将 一 个 文 本 文 件 以 一 页 一 页 的 方 式 显 示 ， 如 下 ： 
    Private Sub Command1_Click() 
    Open "e:\t01.txt" For Input As #1 
     Texta.FontSize = 15 
     Texta.FontName = "楷 体 _GB2312" 
     Do While Not EOF(1) 
     For i = 0 To 24 
     Line Input #1, aspect$ 
     whole$ = whole$ + "" + aspect$ + Chr$(13) + Chr$(10) 
     Texta.Text = whole$ 
     Next i 
     aspect$ = "" 
     whole$ = "" 
     Loop 
    End Sub 
    却 报 ： 实 时 错 误 “ 62” 输 入 超 出 文 件 尾 。 我 想 除 了 没 有 延 时 器 ， 我 实 在 是 想 不 出 还 有 什 么 问 题 ， 请 指 教 ！ ！ ！ 另 ： 延 时 器 若 用 一 个 空 循 环 是 不 是 有 用 ， 若 没 有 用 那 该 怎 么 做 ？ 
<END>
123,我 在 写 打 印 代 码 时 遇 到 这 样 一 个 问 题 ： 当 选 择 打 印 一 个 报 表 到 文 件 （ 文 本 文 件 ） 时 ， 例 如 是 ptofile.txt,但 是 如 果 已 存 在 这 个 文 件 ， 那 么 打 印 出 的 新 文 件 不 能 覆 盖 原 来 的 文 件 。 我 是 使 用 showsave来 选 择 文 件 名 的 。 是 不 是 这 样 的 操 作 还 需 要 注 意 哪 个 地 方 呢 ？ 还 是 要 加 入 哪 些 代 码 ， 如 何 加 ， 请 多 多 指 教 ！ 
<END>
124,VB每次都在我存储过的文件字符串头尾加上一对引号
我 想 用 vb实 现 对 文 件 的 读 写 功 能 。 我 用 
    open filename for output as #1 
    while #1,strname 
    进 行 对 文 件 的 写 入 功 能 , 但 vb每 次 都 在 我 存 储 过 的 文 件 头 尾 加 上 一 对 引 号 。 why? 
<END>     
125,如何判断某个文件是否已经打开
请 问 如 何 判 断 某 个 Excel文 件 是 否 已 经 打 开 ?特 别 是 在 有 多 个 Excel窗 口 打 开 的 情 况 下 ? 
    我 原 来 通 过 Findwindow()探 测 到 Excel是 否 在 内 存 中 运 行 ,然 后 通 过 Getobject建 立 和 Excel的 联 系 后 ,用 枚 举 workbooks（ i） .name找 到 目 标 文 件 是 否 在 内 存 中 。 可 是 有 一 次 运 行 时 无 意 中 打 开 了 两 个 Excel窗 口 ， 而 且 在 第 二 个 窗 口 中 将 目 标 文 件 打 开 ， 上 述 方 法 就 不 灵 了 ， 上 述 方 法 只 能 查 找 第 一 个 窗 口 的 Excel， 不 能 处 理 第 二 窗 口 打 开 的 文 件 。 不 知 道 怎 么 判 断 多 窗 口 （ 指 多 个 Excel主 程 序 窗 口 ， 不 是 多 个 子 窗 口 ） 条 件 下 目 标 文 件 是 否 打 开 ？ 如 果 用 FindwindowEx， 怎 么 把 某 个 特 定 的 主 窗 口 hwnd传 给 它 ？ 
<END>
126,不出现VB给的出错对话框并且不中止程序
请 问 如 何 令 程 序 在 要 求 打 开 位 图 文 件 的 地 方 打 开 非 位 图 文 件 ， 而 不 出 现 VB给 的 出 错 对 话 框 并 且 不 中 止 程 序 ？ 
<END>
127,请问.vxd文件是什么，如何用它
请 问 .vxd文 件 是 什 么 ？ vb中 如 何 用 它 ？ 
<END>
128,使用FILECOPY，发生“实时错误：70，被拒绝的权限”
我 有 一 个 问 题 想 请 教 ， 就 是 我 在 程 序 中 想 备 份 ACCESS数 据 库 文 件 ， 使 用 FILECOPY， 但 程 序 总 是 显 示 “ 实 时 错 误 ： 70， 被 拒 绝 的 权 限 ” ， 不 知 为 何 ？ 
<END>
129,如何将Word或Wps文件转换为文本文件
我 的 系 统 是 win98, vb6.0.我 有 一 个 问 题 ， 想 在 vb中 将 .doc,.wps文 件 在 textbox或 richtextbox中 打 开 .在 浏 览 了 相 关 问 题 答 案 后 发 现 (对 .doc文 件 直 接 打 开 是 不 可 能 的 了 ， 但 能 否 将 其 改 名 为 .txt或 用 某 个 控 件 转 换 成 .txt， 然 后 用 顺 序 文 件 方 式 将 其 打 开 在 textbox或 richtextbox中 。 ) 
    为 此 我 试 了 一 下 ,但 是 当 将 .doc文 件 改 名 成 .txt时 则 变 成 乱 码 .不 知 用 控 件 转 换 成 .txt会 如 何 ,能 否 实 现 此 目 的 或 有 其 它 的 方 法 实 现 ， 而 wps文 件 是 否 也 一 样 下 手 。 
<END>     
130,VB如何进行文件排序
VB程 序 中 如 何 将 WINDOWS 下 的 目 录 里 的 文 件 排 序 。 （ 例 如 ﹕ 按 时 间 ， 文 件 名 等 ） 
<END>
131,Word的.doc的文件结构是如何的
我 想 用 vb6.0编 一 个 小 编 辑 器 ,其 功 能 能 打 开 Word文 件 。 现 在 想 请 教 .doc的 文 件 结 构 是 如 何 的 , 如 何 读 取 其 中 的 內 容 ? 
<END>
132,制作发行光盘，运行报告“文件或路径无法找到”
我 在 制 作 一 张 发 行 光 盘 ， 主 要 是 图 形 图 象 的 浏 览 和 复 制 。 在 编 译 后 运 行 报 告 “ 文 件 或 路 径 无 法 找 到 ” 。 请 问 如 何 处 理 ？ 请 将 方 法 描 述 的 详 尽 一 些 。 最 好 举 例 说 明 。 
    操 作 系 统 是 windows95、 软 件 的 版 本 vb6.0 
    复 制 文 件 部 分 代 码 如 下 ： 
    Private Sub Command14_Click() 
    For I = 1 To 6 
     Apath = App.Path 
     FilePath = Apath + "\Pic\dwg\98-3\Af\ns\3nsa0" + CStr(I) + "f.dwg" 
     SourceFile = FilePath 
     DestinationFile = Dir1.Path + "\3nsa0" + CStr(I) + "f.dwg" 
     FileCopy SourceFile, DestinationFile 
     Next I 
     
     For I = 0 To 5 
     Apath = App.Path 
     FilePath = Apath + "\Pic\dwg\98-3\T\n\3nt0" + CStr(I) + ".dwg" 
     SourceFile = FilePath 
     DestinationFile = Dir1.Path + "\3nt0" + CStr(I) + ".dwg" 
     FileCopy SourceFile, DestinationFile 
     Next I 
     
    End Sub 
<END>     
133,如何编程实现对.PIF文件的访问控制
如 何 编 程 实 现 对 .PIF文 件 的 访 问 控 制 ？ 
<END>