怎样在vb程序中生成另一个可执行文件.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 需 要 先 编 写 一 个 程 序 B， 并 将 其 编 译 为 EXE。 如 果 你 希 望 今 后 允 许 程 序 A定 制 程 序 B的 某 个 文 本 框 ， 可 以 先 将 该 文 本 框 的 Caption属 性 设 置 为 “ Change Me!Change Me!” 之 类 首 先 定 义 好 的 字 符 串 。 然 后 程 序 A以 二 进 制 方 式 打 开 程 序 B， 然 后 在 其 中 查 找 “ Change Me!Change Me!” 字 符 串 ， 并 将 其 改 变 为 程 序 A中 设 置 的 文 字 。 但 这 种 方 法 有 几 个 缺 点 ： 
    1、 字 符 串 长 度 有 限 ； 
    2、 对 于 VB来 说 ， 编 译 后 有 的 中 文 字 符 串 编 译 后 格 式 有 些 办 法 ， 不 好 处 理 。 
    也 可 以 采 用 另 一 种 办 法 。 程 序 A将 设 置 信 息 保 存 在 程 序 B文 件 的 尾 部 。 用 程 序 B以 二 进 制 方 式 打 开 其 自 己 的 EXE文 件 ， 利 用 Seek命 令 移 动 到 指 定 位 置 读 出 设 置 信 息 。 如 ： 
     Dim s As String * 100 
     
     On Error GoTo ErrHandler 
     Open App.Path + "\" + App.EXEName + ".EXE" For Binary As #1 
     Seek 1, 20480 ' 这 里 是 EXE文 件 的 长 度 
     Get 1, , s 
     Label1.Caption = s 
     Close #1 
     Exit Sub 
    如 何 确 定 EXE文 件 的 长 度 的 具 体 数 值 呢 ？ 先 编 译 程 序 B， 看 看 程 序 B的 EXE文 件 的 长 度 ， 例 如 17234。 然 后 将 上 面 的 20480改 为 17234， 再 编 译 一 次 程 序 B。 
<END>