index1.txt

VB技巧问答10000例,是一个教程

<END>
99,如何捕捉当按下Tab键，相应事件被触发
如 何 捕 捉 当 按 下 Tab键 ， 相 应 事 件 被 触 发 ? 
    例 如 ， From1上 有 3个 按 键 ， 其 属 性 为 ： 
     Cmd1.Tabindex=1 
     Cmd2.Tabindex=2 
     Cmd3.Tabindex=3 
    我 希 望 当 按 下 Tab键 后 ， 转 移 方 向 为 ： Cmd1->Cmd2->Cmd3->Cmd1的 循 环 顺 序 。 
<END>
100,如何让多个下拉控件同步
如 何 实 现 两 个 下 拉 框 (ComboBox)中 的 内 容 同 步 显 示 .比 如 :Combo1中 的 内 容 依 次 为 1,2,3.Combo2中 的 内 容 依 次 为 a,b,c.当 我 选 中 Combo1中 的 "1"的 同 时 Combo2应 显 示 "a",同 样 当 我 选 中 Combo2中 的 "b"时 ,在 Combo1中 应 显 示 "2".(这 两 个 ComboBox的 Style属 性 为 2,并 且 ComboBox中 的 内 容 应 在 运 行 的 时 候 装 入 )我 是 这 样 作 的 :(我 用 到 了 三 个 ComboBox) 
     在 Combo1的 Click事 件 中 写 了 如 下 的 代 码 : 
     combo2.Text = combo2.List(combo1.ListIndex) 
     combo3.text = combo3.list(combo1.listIndex) 
     在 combo2的 Click事 件 中 写 了 如 下 的 代 码 : 
     combo1.Text = combo1.list(combo2.listIndex) 
     Combo3.Text = Combo3.list(Combo2.listIndex) 
     在 combo3的 Click事 件 中 写 了 如 下 的 代 码 : 
     Combo1.Text=Combo1.list(Combo3.listIndex) 
     combo2.text = Combo2.list(Combo3.listIndex) 
    但 是 在 用 循 环 语 句 向 两 个 ComboBox装 入 Item时 系 统 提 示 :"Out of stack space"((该 循 环 绝 对 不 是 死 循 环 ,如 果 Style属 性 为 "0"就 没 有 这 个 问 题 )如 果 在 该 循 环 中 写 入 "On error resume next",就 没 有 问 题 ,但 是 在 同 步 显 示 三 个 ComboBox中 的 内 容 的 时 候 ,问 题 依 旧 。 
<END>
101,如何在输入完控件的内容后，光标自动移动到下一个控件
vb6.0能 不 能 实 现 向 foxpro那 样 竖 着 添 加 数 据 的 功 能 ， 我 的 意 思 是 像 Visual Foxpro那 样 添 加 数 据 ,数 据 库 的 字 段 是 从 上 到 下 排 列 ,输 入 完 一 个 后 就 接 着 下 一 个 记 录 。 同 时 ,如 果 设 定 了 字 段 的 长 度 ,输 入 指 定 长 度 的 字 符 后 ,就 自 动 跳 到 下 一 个 字 段 。 
    如 :我 的 数 据 库 包 含 4个 字 段 :姓 名 ,年 龄 ,性 别 ,职 业 输 入 方 式 为 : 
    姓 名 
    年 龄 
    性 别 
    职 业 
    姓 名 
    ---- 
    ---- 
    从 上 到 下 的 进 行 
    不 知 道 我 说 清 楚 了 没 有 ,谢 谢 你 的 回 答 。 
<END>
102,文本框如何实现自动换行功能
如 何 才 能 实 现 笔 记 本 的 自 动 换 行 功 能 ？ 
<END>     
103,如何在程序中获得滚动条的宽度
如 何 在 程 序 中 获 得 滚 动 条 的 宽 度 ？ 
<END>
104,有没有API函数可以去掉Command按钮的选中线
有没有API函数可以去掉Command按钮的选中线? 也就是周围这一框黑线，实在是不好看。 :-) 
<END>
105,文本框为什么不能换行
我 是 一 名 vb初 学 者 , 是 贵 站 的 忠 实 读 者 。 最 近 编 写 一 个 文 本 编 辑 工 具 时 遇 到 了 难 题 ， 问 题 如 下 ： 
    如 何 将 一 个 文 本 文 件 的 内 容 读 出 到 textBox控 件 中 ， 要 求 按 格 式 （ 即 已 经 换 行 ,像 用 DOS下 的 edit.com编 辑 时 那 样 )， 我 用 "input、 line input、 语 句 试 过 ， 但 该 文 件 中 的 内 容 显 示 总 是 串 成 一 行 。 textBox遇 到 换 行 符 却 不 换 行 ， 这 是 怎 么 回 事 。 
<END>
106,判断控件属于SSTab的哪一页
我 在 一 个 Form 中 放 置 了 一 SSTab控 件 ,它 含 有 多 个 页 (tab),每 页 中 含 有 多 个 textbox、 combobox之 类 的 控 件 。 我 想 实 现 一 自 动 功 能 ,需 要 用 用 程 序 判 断 textbox属 于 sstab的 哪 一 页 (tab)。 请 问 应 如 何 处 理 ? 我 曾 经 尝 试 过 查 找 textbox的 属 性 ,但 其 container和 parent属 性 都 无 法 判 断 。 
<END>
107,如何实现自动选择的列表框
Chiman是 VB60初 学 者 ， 在 学 习 过 程 中 遇 到 如 下 问 题 ， 敬 请 解 答 。 
    一 、 我 设 计 了 一 个 适 合 本 单 位 技 术 计 算 的 软 件 ， 产 品 牌 号 列 于 一 个 列 表 框 中 ， 可 双 击 选 择 ， 亦 可 在 一 个 文 本 框 中 输 入 牌 号 进 行 计 算 。 我 想 设 计 成 在 文 本 框 中 输 入 牌 号 的 第 一 个 字 母 时 ， 列 表 框 自 动 选 择 第 一 个 首 字 母 与 文 本 框 中 字 母 相 同 的 牌 号 ， 输 入 第 二 个 字 母 时 ， 选 择 第 一 个 首 、 次 字 母 相 同 者 ， 依 此 类 推 （ 类 似 帮 助 索 引 中 选 关 键 词 ） ， 请 问 如 何 实 现 ？ 
    二 、 我 设 计 的 技 术 计 算 软 件 由 于 较 简 单 ， 我 将 帮 助 文 件 置 于 记 事 本 中 ， 如 何 实 现 点 按 “ 帮 助 ->帮 助 信 息 ...” 后 出 现 此 记 事 本 窗 口 ？ 
<END>
108,VB6.0不能正确显示对话框中文件类型的中文文件名
我 刚 开 始 学 VB， 安 装 的 是 中 文 VB6.0企 业 版 (win98中 文 )， 最 近 碰 到 问 题 ： 
    VB6.0不 能 正 确 显 示 对 话 框 中 文 件 类 型 的 中 文 文 件 名 。 (用 东 方 快 车 2000的 自 带 汉 字 可 正 确 显 示 ,但 转 换 到 系 统 汉 字 就 不 行 )。 请 各 位 高 手 帮 帮 忙 ! 
<END>    
109,如何响应控件数组的事件
我 创 建 了 一 个 FORM又 创 建 了 两 个 数 组 Command1(0)和 Command1(1)。 我 想 要 Command1(0)点 击 之 后 Form2.Show， Command1(1)点 击 之 后 Form3.Show怎 样 编 ? 
<END>
110,如何让文字适应Text的大小
如 果 在 Text里 显 示 同 一 内 容 ， 但 字 体 不 同 ， 所 以 有 的 字 体 会 使 文 字 超 出 了 Text。 我 们 知 道 Text有 AutoSize。 但 ， 只 是 Text适 应 文 字 大 小 ， 可 否 让 文 字 适 应 Text的 大 小 ？ （ 字 体 是 任 意 字 体 ， 事 前 不 知 道 字 体 的 实 际 大 小 ） 
<END>
111,如何在COMBO的CLICK事件COMBO显示的内容为其内容的一部分
如 何 实 现 在 COMBO的 CLICK 事 件 发 生 时 , COMBO显 示 的 内 容 为 其 内 容 的 一 部 分 ？ 
    即 :cbo.text=mid(cbo.list(2),3) 
    cbo代 表 一 个 COMBO 控 件 。 我 这 样 做 的 问 题 是 : 当 执 行 完 :cbo.text=mid(cbo.list(2),3)后 ,系 统 还 要 执 行 cbo.text当 执 行 完 :cbo.text=mid(cbo.list(2),3)后 =cbo.list(2) (这 项 操 作 应 该 是 由 系 统 完 成 的 ,因 为 我 单 步 执 行 ,当 执 行 完 :cbo.text=mid(cbo.list(2),3)后 ,此 时 cbo的 内 容 是 正 确 的 ,但 当 执 行 完 下 一 步 "END SUB "后 ,cbo 的 内 容 就 变 为 了 cbo.list(2)。 Thank you very much! 
<END>
112,下拉列表框同时可列出符合条件的两个字段
有 没 有 一 种 下 拉 列 表 框 同 时 可 列 出 符 合 条 件 的 两 个 字 段 ? 
<END>
113,如何显示工具提示
我 看 到 一 些 程 序 里 ， 当 鼠 标 移 到 COMMAND上 时 可 以 看 到 关 于 COMMAND的 注 解 ， 想 请 问 除 了 TOOLTIPTEXT中 写 注 解 以 外 ， 还 有 什 么 地 方 要 改 ？ 
<END>     
114,如何使用鼠标右键选择列表框中的项目
在 列 表 框 中 ， 单 击 表 示 选 择 选 项 。 怎 么 在 程 序 中 调 用 这 一 方 法 。 比 如 说 ： 我 想 在 程 序 中 实 现 在 列 表 框 中 右 击 弹 出 菜 单 ， 同 进 又 必 须 选 择 选 项 。 该 怎 样 做 呢 ？ （ 象 WINDOWS中 的 资 源 管 理 器 中 的 右 击 一 样 ， 弹 出 菜 单 的 同 时 选 择 了 项 目 ?） 
<END>
115,如何实现VB中的CheckBox控件的Lock功能
如 何 实 现 VB中 的 CheckBox控 件 的 "Lock"功 能 ？ (不 用 Enabled属 性 ， 就 象 ComboBox那 样 ， 不 可 输 入 ， 但 文 字 也 不 转 为 灰 色 )。 
<END>
116,如何使输入满几位数后自动跳到这个控件
比 如 说 你 安 装 win98的 时 候 ， 不 是 要 输 入 序 列 号 吗 ？ 当 你 在 一 个 空 白 中 输 满 几 位 数 ， 然 后 光 标 就 自 动 跳 到 下 一 个 空 白 以 待 继 续 输 入 ， 就 是 那 种 功 能 。 怎 么 做 ? 
<END>
117,SETFOCUS语句出现“无效的过程或调用函数”错误
有 一 个 程 序 ， 在 执 行 到 COMMAND(INDEX).SETFOCUS语 句 处 有 时 会 出 现 “ 无 效 的 过 程 或 调 用 函 数 “ ， 但 有 时 就 不 会 出 现 此 错 误 ， 请 问 是 为 什 么 呢 ? 
<END>
118,能否使用Add语句动态增加控件数组
vb6增 加 了 add语 句 ,可 以 在 窗 体 上 动 态 增 加 控 件 。 但 是 ,能 不 能 用 这 种 方 法 使 增 加 的 控 件 成 为 一 个 控 件 数 组 ,甚 至 是 添 加 一 个 控 件 到 已 经 存 在 的 控 件 数 组 中 ? 
<END>
119,如何判断文本框中字符的宽度
如 何 判 断 文 本 框 （ textbox） 中 字 符 的 宽 度 （ 用 像 素 表 示 ） ， 因 为 有 时 需 要 根 据 字 符 的 宽 度 来 适 当 调 整 文 本 框 的 宽 度 。 
<END>
120,能否给ListBox加横向滚动条
遇 到 的 问 题 : 我 用 vb的 listbox记 录 搜 索 出 的 文 件 名 ,包 括 全 路 径 。 由 于 路 径 太 长 ,无 法 全 部 显 示 .有 没 有 办 法 使 他 产 生 一 个 水 平 的 滚 动 条 ?我 察 看 了 msdn,没 有 找 到 答 案 .我 的 listbox控 件 不 可 能 太 大 。 
<END>    
121,如何在运行时通过控件名改变控件的一些属性
我 编 制 一 个 局 域 网 上 下 陆 战 棋 的 程 序 ,旗 子 用 command按 钮 控 件 表 示 ,比 如 我 选 择 了 sl(司 令 )按 钮 ,想 把 sl.name赋 值 个 一 个 变 量 ,我 怎 样 才 能 在 别 的 子 程 序 中 通 过 这 个 变 量 来 改 变 sl中 的 一 些 属 性 ? 
<END>
122,如何保存用户在组合框中直接输入的文本
如 何 保 存 在 下 投 式 组 合 框 中 用 户 直 接 输 入 的 文 本 ， 类 似 于 win98开 始 中 的 运 行 ? 
<END>
123,如何创建控件数组
我 刚 开 始 学 VB请 问 ： 如 何 创 建 控 件 数 组 ? 
<END>     
124,如何在程序中动态加入控件数组
<END>
125,如何在RichTextBox中实现“撤消(Undo)”功能
如 何 在 RichTextBox中 实 现 “ 撤 消 (Undo)” 功 能 ？ 
<END>    
126,如何定义控件变量
在 vb6.0中 使 用 如 下 : 
    public na 
    ---- 
    na=command1.name 
    --- 
    以 后 我 要 用 na 代 替 command1使 用 。 
    原 来 如 : 
    command1.backcolour=qbcolor(n) 
    后 
    na.backcolour=... 
    出 错 !!不 知 该 如 何 使 用 定 义 名 来 使 用 控 件 !请 各 位 帮 忙 ? 
<END>
127,如何使多个控件具有相同的事件过程
我 使 用 PWIN98， PVB6.0， 有 如 下 问 题 请 教 ： 
    能 否 用 较 少 的 语 句 实 现 ： 对 窗 体 内 的 TEXTBOX控 件 在 得 到 焦 点 时 字 体 为 红 色 ， 失 去 焦 点 时 字 体 为 黑 色 （ 假 设 窗 体 内 的 TEXTBOX很 多 ， 逐 个 向 其 事 件 中 写 代 码 较 麻 烦 ） 多 谢 ！ 
<END>
128,Ms Forms 2.0 Object Library所提供的控件与工具箱中的控件有何不同
请 问 :vb6部 件 "Ms Forms 2.0 Object Library"(FM20.DLL)所 提 供 的 控 件 与 工 具 箱 中 的 控 件 功 能 上 有 何 不 同 ?比 如 说 ComboBox? 
<END>
129,如何获得编辑器的插入符
请 问 如 何 能 够 在 vb程 序 里 捕 获 比 如 ‘ 记 事 本 ’ 之 类 带 有 插 入 符 的 编 辑 器 的 插 入 符 在 其 窗 口 的 位 置 。 我 用 GetCaretPos API好 象 不 行 。 
<END>
130,如何控制控件信息的滚动
在 编 程 中 往 某 控 件 中 加 入 一 条 信 息 或 文 本 （ from\list\text\label） 所 有 信 息 都 向 下 滚 动 。 如 何 才 能 让 所 有 信 息 都 向 上 滚 动 ？ 且 最 新 或 最 后 的 那 条 信 息 始 终 能 让 用 户 看 见 。 如 同 Outlook中 向 上 的 接 收 时 间 排 序 。 
<END>
131,如何得到TEXTBOX中第N行字符
如 何 得 到 TEXTBOX中 第 N行 字 符 ？ 
<END>     
132,能否不用其他控件实现3D效果
请 问 能 否 不 用 其 他 控 件 (3dbuuton等 ） 在 诸 如 Commandbutton、 form等 的 caption处 再 打 一 行 不 同 颜 色 的 字 以 实 现 3d效 果 。 
<END>
133,如何产生类似VB启动时出现的“新文档”的图标
我 想 做 出 一 个 窗 体 。 它 的 功 能 和 vb启 动 后 出 现 的 “ new project"窗 体 功 能 一 样 。 用 户 可 以 选 择 “ 打 开 ” 、 “ 新 建 ” 、 “ 最 新 ” 三 个 选 项 卡 以 打 开 文 档 。 我 的 问 题 是 ， 如 何 产 生 诸 如 “ 新 文 档 ” 的 图 标 ， 并 且 双 击 它 即 可 开 启 相 关 编 辑 工 具 建 立 新 文 档 。 谢 谢 您 对 我 以 前 提 的 问 题 的 热 情 答 复 。 
<END>
134,如何在程序运行的时候，设置控件的“置前”和“置后”
能 告 诉 我 如 何 在 程 序 运 行 的 时 候 ， 设 置 控 件 的 放 置 层 ， 就 是 “ 置 前 ” 和 “ 置 后 ” ？ 
<END>
135,如何在Excel中使用DriveListBox等控件
我 在 使 用 VBA时 发 现 "控 件 工 具 箱 "中 的 控 件 太 少 ， 连 DriveListBox、 DirListBox、 FileListBox这 样 的 控 件 都 没 有 ， 使 用 "附 加 控 件 "也 没 有 找 到 这 些 控 件 ， 应 怎 样 添 加 这 些 控 件 ？ 
<END>