index1.txt

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

1,如何在下拉组合框中选择的列表有多列的效果 
请问如何在下拉组合框中,选择的列表有多列的效果例如:姓名\性别\年龄同时显示而不是只有一列：望能详细解答!!谢谢!! 
<END>
2,如何在COMBOBOX的控件选取某项后， 其显示值为选项的一部分 
在COMBOBOX的控件中，我想在下拉框中选取某项（如："S1101 厦门"）后， 其COMBOBOX显示值为选项的一部分（如：用LEFT（combo1.text,5)所得的显示值为"S1101"）,结果在COMBOBOX上显示是空白，为何？ 如何实现？请帮忙解答，谢谢！ 
<END>
3,如何实现文本框的自动滚动 
如何实现文本框的自动滚动？ 
<END>
4,如何根据Combo的选择，显示不同的窗体 
三个窗体，logo.from1.form2,logo上有两个控件，combo1,command1,combo1.list中有form1,form2,要从combo1选form1,click command1,the form1 loading and showing.thanks 
<END>    
5,当在组合框中输入某一值时，下拉列表框中若有与它相同的表项将删除 
我用的是Windows2000,VB6.0 
    请问：当用户在组合框中输入某一值时，单击“删除”，下拉列表框中若有与它相同的表项将删除，当单击“清除”，将清除列表框中所有内容。 
<END>
6,如何在VB程序运行时加入和删除控件
如何在程序运行时加入和删除控件？注:该控件在设计阶段并没有加入。
<END>
7,几个checkbox控件，只要一个被选中了，其他就不能被选中
在VB中如果用几个checkbox控件，请问怎么样才能使几个控件中只要一个被选中了，其他就不能被选中呢?
<END>
8,能否控制文本之间的行间距
如何控制Textbox or Richtextbox 中文本之间的“行间距”？如无法实现，请介绍一个能实现此功能的控件。 
<END>
9,如何在在TEXT或LIST中同时显示不同颜色
如果要在TEXT或LIST中同时显示不同颜色，例如：-8（红）+9（绿）应该如何处理？ 
<END>
10,通过代码点击Visual Basic的按钮
如何通过代码点击Visual Basic的按钮?
<END>
11,如何将输入小写字母自动转换成大写
在textbox中输入小写字母，想转换成大写。但用了Ucase()函数时，发现每输入一个小写字母，可以变为大写但光标始终在textbox的第一行，所以当输入abcd后，即显示DCBA. 
    程序如下： 
    Private Sub Text1_Change() 
     Text1.Text = UCase(Text1.Text) 
    End Sub 
    问：是否能够在VB里控制光标的位置或者有其他函数可以达到目的。 
<END>
12,删除时，不能确定是listview还是treeview中的信息被选中
我在用数据库编一个小的名片夹程序的时候，用到了两个控件，listview 和treeview ，实现和资源浏览器一样效果的名片浏览，可是在处理名片删除时，不能确定是listview中名片信息被选中还是treeview中的名片信息被选中， 在尝试用Form的ActiveControl好像也有些问题。问该如何解决? 
<END>    
13,快速地连续点击时 Click 事件的响应好象并不连续
我想用 PictureBox 做一个 ActiveX 控件，是一个按钮，可是按钮总要涉及到鼠标点击事件吧，结果快速地连续点击时 Click 事件的响应好象并不连续。我用下面这段程序示范了这个过程： 
    新建一个 Form，放一个 PictureBox 控件，然后在 Form 中粘贴如下代码： 
    Option Explicit 
     
    Private Sub Form_Load() 
     Picture1.BackColor = QBColor(0) 
    End Sub 
     
    ' 用 Mouse_Down、Mouse_Up 事件我也试过，效果都一样。 
    Private Sub Picture1_Click() 
     Static N As Long 
     
     N = -(N = 0) 
     Picture1.BackColor = QBColor(N) 
    End Sub 
    你会发现当连续、快速地点击 PictureBox 时，它的颜色不会同步迅速地改变。但是有一点很奇怪，当你用左右键交替地迅速点击时，PictureBox 的响应就很快。 
<END>
14,动态数组能不能做参数
请 问 动 态 数 组 能 不 能 做 参 数 ,如 果 能 怎 么 做 ? 
    举 个 例 子 ,好 比 一 个 窗 体 上 面 放 了 三 个 文 本 框 ,Index 分 别 是 0.1.2,现 在 要 编 一 段 过 程 
    Private Sub ClsTxt(Txt() As TextBox) 
    For Each TextBox In Txt() 
    TextBox="" 
    Next 
    End Sub 
    到 时 候 Call ClsTxt(Text1()) 
    这 样 肯 定 肯 定 失 败 。 不 知 该 怎 么 办 ?请 专 家 不 吝 赐 教 ,多 谢 。 
<END>
15,如何打印多行的文本框
问 题 ： 我 用 了 一 个 允 许 多 行 的 TEXTBOX， 里 面 的 文 字 每 一 行 都 很 长 ， 它 可 以 自 动 换 行 。 但 当 我 用 Printer.print将 它 的 内 容 打 印 出 来 时 ， 却 无 法 自 动 换 行 ， 而 是 一 行 很 长 ， 自 然 ， 超 出 纸 张 宽 度 的 部 分 就 被 “ 吃 掉 ” 了 。 请 问 ， 有 什 么 方 法 将 TEXTBOX中 的 文 字 按 纸 张 宽 度 打 印 出 来 ？ 就 象 是 在 NotePad中 ， 虽 然 一 行 很 长 ， 但 打 印 时 肯 定 是 自 动 分 行 了 。 多 谢 。 
<END>
16,如果两个相连的TXTEDIT都进行数据检查，发生死循环无法退出
我 想 在 每 一 个 TXTEDIT输 入 数 据 后 检 查 其 中 的 内 容 ， 我 现 在 用 的 办 法 很 笨 拙 ， 就 是 在 LOSTFOCUS后 检 查 ， 如 果 有 错 误 就 TXTEDIT1.SETFOCUS。 但 现 在 有 一 个 问 题 就 是 如 果 有 两 个 相 连 的 TXTEDIT都 使 用 这 种 方 法 来 检 查 的 话 如 果 第 一 个 TXTEDIT未 输 入 正 确 的 数 据 就 按 下 TAB使 焦 点 移 到 下 一 个 TXTEDIT时 会 发 生 死 循 环 无 法 退 出 ， 请 问 有 什 么 更 好 的 办 法 呢 ？ 另 外 有 什 么 办 法 可 以 按 ENTER键 就 使 焦 点 跳 到 下 一 个 TXTEDIT而 不 必 使 用 TAB键 呢 ？ 
<END>
17,如何实现combobox中的选项能够被改动，但不用重新编译程序
问 题 : 如 何 实 现 combobox中 的 选 项 能 够 被 改 动 ， 但 不 用 重 新 编 译 程 序 ？ 
<END>    
18,如何在text1中输入数据时才能激活命令按钮
我 在 窗 体 中 添 加 了 一 个 命 令 按 钮 command1和 一 个 文 本 框 控 件 text1， 窗 体 启 动 时 将 command1的 Enabled属 性 设 为 False,请 问 如 何 在 text1中 输 入 数 据 时 才 能 激 活 命 令 按 钮 command1， 即 Len(text1.text)>0时 才 能 使 command1的 Enabled属 性 变 为 TRUE? 
<END>
19,如何避免输入的字串长度超过字段长度而引发错误
如何避免输入的字串长度超过字段长度而引发错误？如何在DBGrid和TextBox中实现输入格式化？ 
<END>     
20,如何使ListBox控件中的数据根据需要上下移动互换位置
如 何 使 ListBox控 件 中 的 数 据 根 据 需 要 上 下 移 动 互 换 位 置 ? 
<END>    
21,如何让这个按钮不再响应点击事件
问 题 : 如 何 解 决 ， 连 续 响 应 事 件 的 问 题 。 
    例 如 ： 有 一 个 按 钮 被 点 击 后 ， 做 一 个 长 时 间 操 作 ， 在 此 期 间 如 何 让 这 个 按 钮 不 再 响 应 点 击 事 件 。 本 人 曾 试 过 用 改 变 光 标 和 捕 获 光 标 和 设 置 使 能 状 态 等 方 法 ， 但 是 ， 它 仍 然 响 应 点 击 事 件 。 
<END>
22,如何在一个Label或者TextBox中设置字符间距
如何在一个Label或者TextBox中设置字符间距？ 
<END>    
23,如何使form上的text一直具有焦点
问 题 : 如 何 使 form上 的 text一 直 具 有 焦 点 ？ 我 用 Timer每 隔 一 段 时 间 就 text.setfocus， 但 在 unload Form时 会 出 错 ， 因 form 已 经 unload但 text.setfocus？ 如 何 解 决 ？ 
<END>    
24,如何在一个Listbox控件中显示目录名
如 何 在 一 个 Listbox控 件 A中 只 显 示 本 地 硬 盘 上 的 文 件 目 录 名 (不 显 示 文 件 名 本 身 !!),在 另 一 个 Listbox控 件 B中 只 显 示 A中 的 相 对 应 目 录 下 的 日 志 文 件 (*.log)????小 妹 感 激 不 尽 !! 
<END>
25,如何实现在CLICK事件后，在该窗体关闭后此事件仍继续运行
请 问 如 何 实 现 在 一 窗 体 触 发 CLICK事 件 后 ， 在 该 窗 体 关 闭 后 此 事 件 仍 继 续 运 行 ， 直 到 在 打 开 另 一 窗 体 运 行 另 一 事 件 条 件 触 发 该 事 件 结 束 。 此 致 ！ 
<END>
26,如何才能让不同的Tab页显示不同的按钮
问 题 : 以 前 我 一 直 在 用 VC++,现 在 由 于 工 作 需 要 改 用 VB 6.0, 
    我 想 问 几 个 问 题 ： 
    1、 如 何 创 建 控 件 数 组 ， 我 知 道 其 中 有 一 种 方 法 是 拖 动 一 个 控 件 到 一 个 窗 体 中 ， 然 后 ， 再 用 “ 复 制 ” +“ 拷 贝 ” 的 方 法 ， 自 动 给 你 创 建 控 件 数 组 。 但 是 如 果 我 已 经 创 建 了 5个 OptionButton在 一 个 窗 体 中 ， 如 何 让 它 们 成 为 某 一 个 控 件 数 组 的 5个 成 员 。 
    2、 怎 样 调 节 某 一 窗 体 中 的 各 个 控 件 的 Tab顺 序 ， 在 VC中 直 接 按 Ctrl+D就 可 以 察 看 一 个 对 话 框 中 的 控 件 的 Tab值 ， 然 后 就 可 以 按 住 Ctrl键 直 接 点 击 各 个 控 件 ， 就 可 以 改 变 各 个 控 件 的 Tab值 ， 然 而 在 VB中 我 就 找 不 到 如 何 改 变 控 件 的 Tab值 。 因 为 我 是 有 3个 控 件 放 在 一 个 窗 体 中 的 差 不 多 的 位 置 ， 因 此 要 设 置 它 们 的 Tab顺 序 ， 在 控 件 的 右 键 菜 单 中 只 能 简 单 的 Bring to Front或 者 Set to Back,而 不 能 设 置 许 多 位 置 互 相 重 叠 的 控 件 的 Tab值 。 
    3、 关 于 SSTab控 件 ， 我 不 知 道 如 何 才 能 让 不 同 的 Tab页 显 示 不 同 的 按 钮 ， 因 为 我 将 一 个 控 件 （ 如 ： CommandButton） 放 在 一 个 Tab页 中 ， 则 运 行 时 不 管 我 点 击 那 一 个 Tab页 ， 这 个 按 钮 一 直 都 在 ， 我 想 VB的 制 作 界 面 的 功 能 如 此 强 大 ， 不 会 让 我 在 运 行 的 的 时 候 自 己 去 为 每 一 个 Tab页 创 建 控 件 吧 ! 
    4、 关 于 Frame控 件 ,我 不 知 道 如 何 才 能 让 一 组 OptionButton控 件 与 之 相 关 联 也 就 是 说 ， 我 想 让 这 一 个 Frame控 件 中 的 所 有 OptionButton控 件 互 斥 。 
    5、 关 于 VB的 集 成 开 发 环 境 中 ， 我 确 实 为 它 的 强 大 而 感 到 惊 讶 ， 但 是 最 近 我 碰 到 一 个 非 常 可 笑 的 事 情 ， 就 是 VB中 有 很 多 Dockable 窗 口 ， 例 如 ： Project Explorer、 Properties Window、 Form Layout等 ， 我 不 小 心 把 它 们 给 关 掉 了 ， 现 在 不 知 道 如 何 才 能 重 新 把 它 们 给 打 开 。 
    这 些 问 题 是 我 在 开 发 工 程 中 遇 到 的 几 个 很 棘 手 的 问 题 ， 其 中 既 有 较 为 简 单 的 ， 也 有 比 较 复 杂 的 ， 但 是 每 一 个 问 题 我 都 期 待 着 李 海 同 志 您 能 给 我 一 个 清 楚 、 准 确 的 答 案 ， 在 此 我 表 示 衷 心 的 感 谢 ！ 
<END>    
27,如何根据用户输入的控件名，可以使此控件得到焦点
问 题 : 因 为 我 在 设 计 ActiveX控 件 中 设 了 一 个 属 性 --llFocus， 此 属 性 用 要 用 户 输 入 一 个 控 件 名 （ Name） 如 Text。 此 时 ， 我 的 代 码 中 就 可 以 使 此 输 入 的 控 件 得 到 焦 点 ， 代 码 如 下 ： 
    cFocus=Me.llFocus 
    cFocus.SetFocus 
    但 是 VB将 会 报 错 ， 我 怎 样 使 此 功 能 得 以 实 现 ？ 
<END>    
28,在文本框里输入文本时，能否转换到改写状态
问 题 : 在 文 本 框 里 输 入 文 本 时 ， vb系 统 默 认 为 插 入 状 态 ， 我 想 能 转 换 到 改 写 状 态 ， 并 且 闪 烁 的 光 标 形 状 也 由 条 状 变 为 块 状 ， 就 象 VB自 带 的 代 码 编 辑 器 所 具 有 的 功 能 ， 通 过 INSERT键 来 切 换 输 入 状 态 为 插 入 还 是 改 写 ， 并 且 以 不 同 的 光 标 形 状 来 标 示 出 不 同 的 输 入 状 态 。 
<END>    
29,怎样区分是ENTER键还是鼠标左键激发了Click()事件
怎 样 区 分 是 ENTER键 还 是 鼠 标 左 键 激 发 了 Command_click()事 件 ？ 谢 谢 ！ 
<END>    
30,如何使文本框的字数限制对中英文都适用
问 题 ： 在 文 本 框 中 限 制 输 入 的 最 大 长 度 为 20,那 么 最 多 可 以 输 入 20个 英 文 字 母 或 20个 汉 字 ,但 是 我 需 要 的 是 输 入 的 是 20个 字 符 即 20个 英 文 字 母 或 10个 汉 字 ,有 没 有 什 么 简 便 的 办 法 ? 
<END>
31,怎样才能改变 ListIndex而不发生 Click 事件
怎 样 才 能 当 list的 style=1时 ， 改 变 ListIndex而 不 发 生 Click 事 件 ? 
<END>    
32,如何设置CommonDialog颜色的初始值
Private Sub Command1_Click() 
    CommonDialog1.ShowColor 
    Text1.ForeColor = CommonDialog1.Color 
    End Sub 
    我 执 行 了 以 上 程 序 后 ， 进 入 选 颜 色 时 ， 初 始 值 总 是 为 黑 色 ， 我 的 问 题 就 是 ： 1、 怎 样 设 置 它 的 初 始 值 ？ 2、 当 按 取 消 后 text1的 前 景 色 就 变 黑 了 怎 样 解 决 ？ 万 分 感 激 ！ 
<END>    
33,如何把listbox中的全部选中
问 题 : 这 是 两 个 有 关 List控 件 的 问 题 ： 
    1、 能 否 动 态 地 改 变 list控 件 的 style属 性 ， 我 试 过 ， 但 是 有 错 误 （ 不 能 设 置 只 读 属 性 ） ,怎 样 解 决 。 
    2、 list控 件 的 style属 性 为 0 ， multiselect=2 
    我 想 在 list中 点 右 键 ， 选 择 “ 全 选 ” ， list中 的 全 部 选 中 过 程 怎 么 编 。 
<END>
34,如何计算文本框中输入的数
建 文 本 框 3个 文 本 框 ， 在 文 本 框 3中 能 自 动 输 出 
    文 本 框 1+文 本 框 2中 的 数 值 =文 本 框 3 
    文 本 框 1-文 本 框 2=文 本 框 3 
<END>    
35,如何弹出一个对话框，进行密码效验
点 击 一 按 纽 ， 弹 出 一 个 对 话 框 ， 进 行 密 码 效 验 。 这 个 过 程 用 vb怎 么 实 现 ? 我 先 建 立 一 个 From1窗 体 ， 里 面 画 一 个 CommandButton。 然 后 建 立 一 个 frmLogin窗 体 。 现 在 想 click 一 下 command1 调 出 frmLogin窗 体 ， 不 知 道 这 怎 么 做 ， 在 Private Sub Command1_Click()过 程 里 应 添 加 什 么 代 码 ？ 在 frmLogin里 校 验 password的 具 体 做 法 是 怎 样 ？