index1.txt

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

1,如何判断用户选择的是TreeView的父节点还是子节点 
问题: 如何判断用户选择的是TreeView的父节点还是子节点？ 
<END>    
2,在RichText中绘制表格 
因工作需要我想在RichText中绘制表格,并想最好能够尽量灵活地进行控制。能给我做个例子吗? 
<END>
3,如何在vb的richtext控件中制作表格 
请问如何在vb的richtext控件中制作表格？用什么控件做容器比较好？
<END>
4,treeview控件动态加入node，其key值不能为变量 
我在VB工程中引用了一个treeview控件，我发现要想动态向里加入node，其key值不能为变量，这对我的程序开发停滞不前，请问这是为什么？该如何解决？ 
<END>
5,如何控制ListView控件每一个ListItem的背景和前景颜色 
本问题涉及的操作系统 win98/win2000 
    本问题涉及的编程工具 VB 
    如何控制ListView控件每一个ListItem的背景和前景颜色（而不是同时控制所有的ListItem），可以做到吗？ 
    有没有什么比较简单的方法显示出整台电脑的树状文件夹结构，就象资源管理器里面的那样？是用TreeView吗？好象太麻烦了吧。 
<END>    
6,当ListView能够多选时，如何得到所选中的总行数 
当ListView能够多选时，如何得到所选中的总行数（selected count)、第一个及最后一个所选行(selected First ListItem(First))？ 
<END>
7,如何解决richtext控件，当进行更改字体、大小，以及删除时的乱码问题 
问题：如何解决richtext控件的中文输入后，当进行更改字体、大小，以及删除时的乱码问题？ 
<END>    
8,使用RICHED20.DLL，结果中文查找失效了 
问题：RICH EDIT的中文查找问题 
    我用RICHTX32.OCX写了个编辑器，也用这个OCX的FIND ACTION写查找功能；一开始我是用的2.0版本的RICHED20.DLL（用RICHTX32.OCX时所必需的），整个程序都很正常，后来我用了3.0版本的RICHED20.DLL，因为它支持的RICH TEXT的格式更丰富，结果我发现中文查找失效了，不能找到正确的中文字，而英文查找及其它功能都仍然是正常的，请问如何解决？是微软的BUG吗？ 
<END>    
9,怎样获知 DTPicker 控件在运行时有没有被打上对钩
问题: 请问,怎样获知 DTPicker 控件 checkbox 属性等于true后,DTPicker控件在运行时有没有被打上"对钩"? 
<END>    
10,删除时，不能确定是listview还是treeview中的信息被选中 
我在用数据库编一个小的名片夹程序的时候，用到了两个控件，listview 和treeview ，实现和资源浏览器一样效果的名片浏览，可是在处理名片删除时，不能确定是listview中名片信息被选中还是treeview中的名片信息被选中， 在尝试用Form的ActiveControl好像也有些问题。问该如何解决? 
<END>    
11,如何知道在TabStrip中哪个tab被点击 
问 题 : 如 何 知 道 在 TabStrip中 那 个 tab被 点 击 ？ 
<END>    
12,如何在输入汉字时，把输入的汉字变成反相显示 
本 问 题 涉 及 的 操 作 系 统 ： WIN95/WIN98/WIN2000 
    本 问 题 涉 及 的 编 程 工 具 ： VB6 
    遇 到 的 问 题 ： 本 人 是 初 学 者 ， 在 编 写 一 个 打 字 程 序 时 ， 想 实 现 一 个 功 能 ： 首 先 我 调 入 了 一 个 文 本 文 件 ， 显 示 在 RICHTEXTBOX控 件 中 。 当 我 输 入 汉 字 时 想 把 我 输 入 的 汉 字 变 成 反 相 显 示 。 （ 例 如 ： 原 来 汉 字 在 控 件 中 默 认 是 白 底 黑 字 ， 输 入 这 个 汉 字 之 后 ， 这 个 汉 字 变 成 兰 底 红 字 ， 注 意 不 是 RICHTEXTBOX控 件 的 背 景 色 。 ） 如 果 RICHTEXTBOX控 件 不 能 实 现 这 个 功 能 ， 那 请 专 家 告 诉 我 要 如 何 实 现 。
<END>
13,HitTest得到的结果为什么不准确 
问 题 : 本 人 用 贵 网 提 供 的 ListView的 双 击 事 件 如 何 判 断 点 击 的 位 置 的 方 法 得 到 的 listitem项 不 准 确 。 listview的 dblclick中 代 码 如 下 ： 
     Dim Mousepos As POINTAPI 
     Dim Mousep As Long 
     Dim likey As String 
     Me.ScaleMode = 3 
     Mousep = GetCursorPos(Mousepos) 
     Mousep = ScreenToClient(Me.hwnd, Mousepos） 
     likey = lvListView.HitTest(Mousepos.x, Mousepos.y).Key 
     Me.ScaleMode = 1 
<END>
14,如何在toolbar控件的按钮之间加一个分割符 
问 题 : 请 问 如 何 在 toolbar控 件 的 按 钮 之 间 加 一 个 分 割 符 ？ 
<END>
15,ListView如何按数字大小排序     
listview控 件 中 ITEMS名 为 数 字 型 ， 如 1， 2， 3， 4.....45...,如 何 使 其 按 数 值 大 小 排 序 ? 
<END>     
16,如何才能让不同的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>    
17,如何实现类似于显示属性的分页效果 
问 题 : 我 想 利 用 VB实 现 类 似 于 WIN98中 显 示 属 性 的 分 页 效 果 ， 不 知 该 用 何 控 件 实 现 ！ 
<END>    
18,coolbar控件如何不被另一级快捷菜单栏完全覆盖 
问 题 ： 1、 当 用 coolbar控 件 时 ， 不 能 象 IE一 样 实 现 快 捷 菜 单 栏 不 被 另 一 级 快 捷 菜 单 栏 完 全 覆 盖 。 例 如 ： 无 论 “ 链 接 ” 这 一 级 怎 么 移 动 也 无 法 将 “ 地 址 ” 二 字 覆 盖 。 
    2、 怎 么 实 现 浮 动 菜 单 栏 ？ 
<END>    
19,如何实现不同颜色的文本框 
本 人 非 常 喜 爱 VB， 在 编 一 个 打 字 练 习 的 小 程 序 时 遇 到 一 些 问 题 ， 想 求 助 于 您 。 
    当 屏 幕 上 出 现 练 习 的 语 句 时 （ 中 文 ） ， 我 在 文 本 框 中 依 样 打 入 ， 希 望 在 文 本 框 的 下 方 也 出 现 我 所 键 入 的 语 句 ， 并 且 当 出 现 错 误 时 ， 不 正 确 的 语 句 变 为 红 色 （ 正 确 的 为 兰 色 ） ； 其 次 ， 当 发 觉 输 入 错 误 时 ， 按 下 退 格 键 在 文 本 框 中 删 除 时 ， 其 下 方 的 相 应 语 句 也 随 之 同 步 删 除 。 本 人 在 实 现 错 误 变 色 时 ， 使 用 的 是 Print语 句 ， 在 窗 体 上 定 位 于 文 本 框 下 方 打 印 ， 但 感 到 十 分 不 便 ， 使 用 其 他 控 件 又 不 能 控 制 颜 色 相 应 变 化 ； 而 删 除 时 ， 文 本 框 下 方 的 语 句 不 随 之 相 应 删 除 ， 并 且 再 输 入 时 ， 就 不 判 断 正 误 了 。 希 望 您 能 够 给 予 帮 助 ， 本 人 将 万 分 感 激 ！ 
<END>
20,如何在StatusBar控件中增加一个变量 
问 题 : 请 问 如 何 在 StatusBar控 件 中 增 加 一 个 变 量 ， 比 如 ： zt=“ 当 前 账 套 ： 公 司 总 账 “ ， 怎 样 才 能 让 zt这 个 变 量 的 值 显 示 在 状 态 栏 里 ？ 
<END>    
21,向程序发送 SendKeys
用 Slider控 件 时 ， 控 左 键 或 右 键 时 ， 控 件 的 滑 块 会 左 右 移 动 ， 现 在 用 SendKeys方 法 向 程 序 发 送 键 盘 符 （ SendKeys "{RIGHT}" ),滑 块 却 不 会 移 动 ， 为 什 么 ？ 
<END>
22,怎样在ListView控件中显示每个文件自带的图标 
问 题 : 请 问 怎 样 在 ListView控 件 中 显 示 每 个 文 件 自 带 的 图 标 ？ 就 像 Windows资 源 管 理 器 一 样 。 
<END>
23,Maskedbox 能否限制输入的为数值 
问 题 : maskedbox 能 否 限 制 输 入 的 为 数 值 ,如 :-12.45 0.1542 154548.55 等 , 
    如 有 ,如 何 设 置 属 性 ?如 无 ,有 何 好 方 法 ? 
<END>
24,如何去掉TreeView的提示条 
问 题 ： 我 在 使 用 TREEVIEW控 件 编 程 时 发 现 ， 当 NODETEXT的 宽 度 超 过 TREEVIEW的 宽 度 时 ， 总 有 一 条 提 示 条 ， 据 说 这 是 控 件 本 身 自 带 的 功 能 ， 我 想 既 然 能 加 上 就 能 去 掉 ， 为 了 使 我 的 界 面 更 优 化 ， 我 想 去 掉 它 ， 但 查 阅 了 不 少 资 料 没 有 找 到 答 案 。 
<END>
25,如何绘制显示进度百分比的进度条 
我 做 了 一 个 用 （ WinApi） 画 矩 形 ， 在 矩 形 中 间 显 示 进 度 百 分 比 的 函 数 ， 就 象 InstallShied制 作 的 安 装 程 序 中 的 “ Setup” 对 话 框 中 的 进 度 条 。 但 我 不 知 道 如 何 随 进 度 底 色 的 移 动 ， 动 态 的 改 变 百 分 比 字 体 的 颜 色 （ 甚 至 是 半 个 字 ） ？ 
<END>
26,在treeview中添加节点，报错为“无效的关键字” 
问 题 : 在 treeview中 ， vNodes.add的 key为 数 字 ， 如 
    i=Cstr(data1.recordset.field("id")) 
    Set nodX=TreeView1.Nodes.Add(,,i,"c1")来 写 ， 报 错 为 “ 无 效 的 关 键 字 ” ， 但 用 
    Set nodX=TreeView1.Nodes.Add(,,"f","c1")能 通 过 ， 因 为 我 用 的 字 段 为 数 值 型 ， 如 何 解 决 ？ 
<END>    
27,怎样可以捕获工具栏中按钮的状态 
问 题 : 我 将 工 具 栏 中 某 个 按 钮 的 样 式 设 为 ： 1-tbrCheck， 请 问 怎 样 可 以 捕 获 该 按 钮 的 状 态 ？ 
<END>    
28,如何在使用RichTextBox的Find方法时不回显