index2.txt

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

136,如何调整控件位置
使 用 控 件 数 组 动 态 创 建 和 删 除 控 件 时 ,如 果 两 个 控 件 重 叠 ,如 何 调 整 其 位 置 ? 
<END>
137,如何在TextBox控件中垂直居中显示文本
如 何 在 TextBox控 件 中 垂 直 居 中 显 示 文 本 ,采 用 何 种 API？ 
<END>     
138,删除控件导致控件数组Index不连续怎么办
在 vb6中 ， 我 利 用 控 件 数 组 来 动 态 建 立 或 删 除 某 些 控 件 ， 但 是 在 我 用 Unload命 令 删 除 某 控 件 数 组 的 几 个 元 素 之 后 ， 问 题 出 现 了 ： 控 件 数 组 的 Index属 性 不 再 是 连 续 的 ， 那 么 如 何 得 到 控 件 数 组 当 前 的 控 件 个 数 呢 ， 如 何 来 逐 个 设 置 每 个 控 件 的 属 性 呢 ? 
<END>
139,怎么样才能在popupmenu中实现这是什么的功能呢
我 用 VB怎 么 样 才 能 在 popupmenu中 实 现 这 是 什 么 的 功 能 呢 ？ 我 做 了 一 个 VB的 界 面 ， 我 
    在 窗 体 中 加 入 了 一 个 POPUPMENU菜 单 ， 只 有 一 项 （ “ 这 是 什 么 ” ） ， 我 想 在 单 击 了 这 个 菜 单 以 后 ， 跳 出 相 应 的 帮 助 提 示 ！ 这 个 代 码 是 怎 么 写 的 ? 
<END>
140,如何能把当前ole容器控件的内容存为picture
OLE容 器 控 件 不 支 持 hwnd属 性 ,我 就 无 法 得 到 OLE容 器 控 件 的 DC,这 样 我 无 法 用 API（ 比 如 bitblt函 数 ） ,如 果 不 用 bitblt又 如 何 能 把 当 前 ole容 器 控 件 的 内 容 存 为 picture? 
<END>
141,如何建立数据库关联的Combo Box
我 建 了 一 个 数 据 库 用 到 一 个 Combo1控 件 想 达 到 这 样 一 个 目 的 : 
    当 FORM_LOAD时 Combo1读 A.MDB的 字 段 “ 地 点 ” 里 的 多 项 内 容 以 提 供 选 择 ， 当 FORM_UNLOAD时 Combo1.TEXT的 内 容 又 将 写 到 B.MDB里 的 一 个 字 段 里 去 ， 我 用 的 是 vb6.0(SP3) 
    Private Sub Form_Load() 
    Data1.Database "ACCESS" 
    Data1.DatabaseName "c:\a.mdb" 
    Data1.RecordSource "地 址 " 
    Data2.Database "access" 
    Data2.DatabaseName "c:\b.mdb" 
    Data2.RecordSource "地 址 " 
    Combo1.DataSource "data1" 
    Combo1.DataField "地 址 " 
    End Sub 
     
    Private Sub Form_Unload(Cancel As Integer) 
    '这 里 不 知 怎 样 编 
    End Sub 
    而 且 combo1只 有 一 条 内 容 。 
<END>
142,CommanDialog提示没有安装字体
我 在 执 行 CommanDialog.ShowFont时 ， 提 示 ： 没 有 安 装 字 体 ， 请 从 控 制 面 板 中 字 体 文 件 夹 中 安 装 字 体 。 可 是 ， 我 的 控 制 面 板 中 字 体 文 件 夹 是 装 有 很 多 字 体 的 。 这 是 怎 么 回 事 呢 ？ 
<END>     
143,做一个ActiveX控件，这个控件可以包含另外一个控件吗
我 想 做 一 个 ActiveX控 件 ， 这 个 控 件 又 包 含 了 另 外 一 个 控 件 ， 可 以 吗 ？ 如 果 可 以 那 生 成 的 OCX 是 一 个 还 是 两 个 （ 其 中 一 个 是 包 含 的 那 个 ） ？ 
<END>    
144,如何将图标显示在“按钮”上
在  “如何提取可执行文件中包含的图标”中 提 到 能 用 DrawIcon函 数 将 图 标 显 示 在 PictureBox中 ， 但 我 想 知 道 如 何 将 图 标 直 接 显 示 在 “ 按 钮 ” 上 ， 而 不 用 通 过 PictureBox控 件 。 
<END>
145,如何知道一个控件数组中的某个控件元素是否已加载
如 何 知 道 一 个 控 件 数 组 中 的 某 个 控 件 元 素 是 否 已 加 载 ？ 
<END>     
146,如何在VB中实现段落自动重组，即智能分段功能
windows中 的 记 事 本 虽 有 自 动 折 行 功 能 ， 但 折 行 后 段 落 比 较 混 乱 ， 请 问 如 何 在 VB中 实 现 段 落 自 动 重 组 ， 即 智 能 分 段 功 能 ? 
<END>
147,如何按需要使文本换行
如 何 使 显 示 文 本 在 显 示 窗 口 中 按 需 要 自 动 换 行 ， 当 文 本 中 有 换 行 符 (0AH 0DH)时 若 不 需 其 换 行 ， 显 示 文 本 也 不 换 行 。 如 一 段 文 本 ： A B C D 0ah 0dh(回 车 符 ) E F G H 
    显 示 时 文 本 窗 口 显 示 为 ： 
    A B C D 
    E F G H 
    现 需 显 示 为 ： 
    A B C D E F G H 
    但 文 本 内 容 不 变 。 
<END>
148,如何禁止滚动条控件闪动
我 在 自 己 编 写 的 控 件 中 使 用 了 vb自 带 滚 动 条 控 件 ， 当 指 针 在 滚 动 条 上 的 时 候 ， 滚 动 条 会 自 动 闪 动 ， 我 想 知 道 如 何 禁 止 它 闪 动 ? 
<END>
149,CommonDialog打开打印机对话框时，页码选择项为灰色
我 在 使 用 VB的 Common Dialog打 开 打 印 机 对 话 框 时 ， 其 上 边 的 页 码 选 择 项 为 灰 色 ， 不 知 到 为 什 么 ? 
<END>     
150,不能编辑显示内容的文本框是否可以复制内容
某 VB程 序 显 示 一 段 文 章 （ 该 文 章 原 文 件 已 加 密 ） ， 但 不 能 编 辑 显 示 内 容 ， 请 问 如 何 通 过 WINDOWS API或 其 它 方 法 将 显 示 文 章 复 制 下 来 ？ 
<END>
151,如何改变文本框字体却不移动位置
我 在 编 程 过 程 中 ,遇 到 这 样 的 问 题 : 文 本 框 中 的 一 篇 文 本 ,当 我 往 下 翻 了 几 页 后 ,又 想 改 变 其 字 体 颜 色 ,大 小 ， 当 我 实 现 这 样 的 操 作 后 ,文 件 又 滚 回 文 件 开 始 部 分 ,请 问 兄 台 有 无 妙 方 ,可 一 箭 双 雕 ?即 既 改 变 了 字 体 属 性 ,又 能 使 当 前 页 是 我 刚 才 看 到 的 部 分 。 
<END>     
152,如何消除一个TextBox在GotFocus时的闪烁光标
请 问 如 何 消 除 一 个 TextBox在 GotFocus时 的 闪 烁 光 标 ， 有 没 有 什 么 API可 以 做 到 这 点 ？ 
<END>
153,通过API函数修改任意控件对象的颜色
我 想 通 过 API函 数 修 改 任 意 控 件 对 象 的 颜 色 ， 比 如 我 想 改 变 我 写 的 程 序 菜 单 的 背 景 颜 色 、 TREEVIEW的 背 景 颜 色 和 边 框 颜 色 等 。 类 似 WINDOWS显 示 属 性 的 “ 外 观 ” 。 但 是 我 只 想 改 变 我 写 的 程 序 ， 并 不 想 改 变 整 个 WINDOWS的 外 观 。 你 能 告 诉 我 要 用 到 的 API函 数 和 它 们 的 用 法 。 
<END>
154,如何实现被选中记录周围出现的虚线框
前 些 日 为 完 成 公 司 项 目 ， 特 意 选 用 listview 控 件 作 为 显 示 核 心 控 件 ， 主 要 是 因 为 它 的 显 示 方 式 极 适 合 用 于 实 时 监 控 且 也 可 用 来 做 数 据 列 表 显 示 。 待 项 目 近 已 完 成 ， 才 发 现 该 控 件 刷 新 速 度 极 慢 ， 几 乎 不 可 能 实 用 。 一 怒 之 下 ， 自 己 写 了 一 个 几 乎 一 样 的 控 件 , 有 一 个 地 方 不 知 如 何 实 现 ， 就 是 被 选 中 记 录 周 围 出 现 的 虚 线 框 ， VB 画 出 的 虚 线 远 没 有 原 先 的 效 果 。 
<END>
155,怎样捕捉控件的Mouse in和Mouse leave事件
怎 样 捕 捉 LABEL等 控 件 的 Mouse in和 Mouse leave事 件 ? 
<END>     
156,如何用代码控制TextBox换行
如 何 用 代 码 控 制 TextBox换 行 （ 不 是 用 SendKey等 控 制 ） ？ 
<END>
157,在InputBox函数里能设置样屏蔽格式吗
在 INPUTBOX函 数 里 怎 设 置 样 屏 蔽 格 式 ?（ 例 如 我 想 在 INPUTBOX函 数 里 输 入 日 期 变 量 
    ， 而 我 又 不 想 输 入 “ /” 分 隔 符 ， 让 它 能 象 Masked Edit控 件 一 样 设 置 一 个 “ / / ” 格 式 的 屏 蔽 码 。 ） 
<END>
158,如何以亮条方式选中文本框的内容
当 某 个 有 内 容 的 文 本 框 获 得 焦 点 时 ， 怎 样 使 得 它 以 亮 条 方 式 显 示 ， （ 例 如 在 一 个 登 陆 密 码 输 入 框 中 第 一 次 输 入 的 密 码 不 对 ， 当 系 统 要 求 再 次 输 入 时 ， 这 时 文 本 框 中 的 第 一 次 密 码 就 以 亮 条 方 式 显 示 ， 再 次 输 入 密 码 时 就 不 用 用 BACKSPACE键 先 删 除 第 一 次 的 密 码 ， 而 直 接 输 入 新 密 码 就 可 以 ， 先 前 的 文 本 框 中 的 内 容 只 要 键 盘 有 响 应 就 立 刻 消 失 。 ） 
<END>
159,怎么将文本框中的文字粘贴到word中
程 序 只 有 一 个 form， 其 上 有 一 个 text。 我 想 实 现 的 功 能 如 下 ： 
    首 先 调 用 miscrosoft word或 其 他 文 字 处 理 软 件 , 新 建 一 个 文 档 ， 然 后 运 行 程 序 ， 在 文 本 框 中 输 入 文 本 。 如 果 我 这 时 候 点 击 word的 话 （ 激 活 ） ， 怎 么 将 文 本 框 中 输 入 的 文 字 粘 贴 到 word中 。 直 接 粘 贴 ， 不 用 ctrl-v。 
<END>
160,按Return键光标如何自动跳到下一个控件
当 在 一 个 Form中 有 多 个 输 入 文 本 框 TextBox时 ， 如 何 才 能 在 第 一 个 TextBox输 完 后 ， 按 Return键 ， 光 标 就 会 自 动 跳 到 第 二 个 TextBox输 入 框 ,直 至 最 后 一 个 TextBox,如 果 可 以 ， 那 么 光 标 在 多 个 TextBox中 跳 的 顺 序 可 否 随 意 定 义 ？ 
<END>
161,如何使下拉列表框只接受从下拉列表中选择的项
我 想 询 问 如 何 使 下 拉 列 表 框 ComboBox不 接 受 键 盘 输 入 ， 只 接 受 从 下 拉 列 表 中 选 择 的 项 ？ 
<END>
162,为什么在代码窗里的对象中找不到对话框控件
当 我 新 建 一 个 FORM， 加 入 对 话 框 控 件 （ 微 软 的 COMMMON DIALOG CONTROL） ， 但 我 查 看 代 码 时 ， 在 代 码 窗 里 的 对 象 中 找 不 到 对 话 框 控 件 的 命 名 ， 我 很 奇 怪 ， 还 望 多 多 帮 忙 。 
<END>     
163,如何按Enter键后移动输入焦点
如 果 窗 体 中 有 几 个 textbox控 件 ， 怎 样 可 以 使 在 textbox中 输 入 信 息 后 按 Enter键 就 切 换 下 一 个 textbox中 。 
<END>     
164,如何使文本框的内容居右
如 何 使 文 本 框 的 内 容 居 右 ？ 
<END>     
165,如何突破vb6中文本框32k的限制
请 问 一 下 如 何 突 破 vb6中 文 本 框 32k的 限 制 ？ 
<END>
166,VB里头怎样设置MASK-EDIT的对齐
VB里 头 怎 样 设 置 MASK-EDIT的 对 齐 ？ 
<END>
167,如何添加内容到ListBox中
小弟有关于vb6的两个问题向广大网友求助： 
    1、当ListBox的Columns属性为>2时，如何用AddItem方法将内容增加到ListBox的后面几列当中。 
    2、如何用AddItem方法将内容添加到另外一个窗体的列表框中。 
<END>
168,OutLine控件的使用方法
我 想 知 道 vb6.0中 OutLine控 件 的 使 用 方 法 ! 
<END>
169,在文本框中输入数字后自动调整格式
怎 么 能 在 TextBox控 件 实 现 类 似 于 dbase数 值 型 中 的 小 数 点 ， 即 想 达 到 “ 在 文 本 框 中 输 入 一 个 [200]回 车 后 自 动 变 成 [200.00]的 效 果 ” 。 
<END>     
170,如何使vb6的ToolTip属性产生折行的效果
如 何 使 vb6的 各 种 控 件 的 ToolTip属 性 产 生 折 行 的 效 果 ? 即 多 行 显 示 
     aaaa 
     bbbb 
     cccc 
<END>