index1.txt

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

如 何 在 RichTextBox中 实 现 “ 撤 消 (Undo)” 功 能 ？ 
<END>
61,如何改变Treeview的背景色和前景色 
请 问 如 何 改 变 VB6.0中 的 Treeview的 背 景 色 和 前 景 色 ? 
<END>
62,如何在客户区底端实现文字至右向左的跑马灯效果 
本 人 想 编 一 个 基 于 SDI的 ， 并 且 能 在 客 户 区 的 底 端 实 现 文 字 至 右 向 左 的 跑 马 灯 效 果 。 请 各 位 高 手 指 点 。 (文 本 为 一 文 本 文 件 ） 
<END>     
63,向TreeView拖放文件时，如何在鼠标按钮释放之前得到鼠标位置 
从 资 源 管 理 器 向 TreeView拖 放 文 件 时 如 何 在 鼠 标 按 钮 释 放 之 前 ,使 当 前 鼠 标 位 置 对 应 的 Node亮 起 来 ？ 吾 现 在 可 以 在 鼠 标 释 放 后 得 到 文 件 放 下 的 Node,但 如 何 在 鼠 标 未 释 放 的 时 候 就 知 道 鼠 标 目 前 的 位 置 呢 ？ MouseMove不 能 再 拖 动 文 件 进 来 时 接 受 消 息 。 
    hHook = SetWindowsHookEx(WH_MOUSE, AddressOf MouseHookProc, App.hInstance, App.ThreadID)我 也 试 过 ,还 是 没 有 响 应 。 
<END>
64,如何象ultraedit6.0一样编辑和显示16进制文本 
用 VB如 何 实 现 象 ultraedit6.0一 样 的 编 辑 和 显 示 16进 制 文 本 格 式 ， 象 表 格 一 样 ， 每 两 位 数 就 跳 一 位 空 格 ， 又 具 有 richtextbox的 特 点 。 
<END>
65,Richtxtbox能否插入分页符 
我 用 Richtxtbox编 了 一 个 字 处 理 器 但 不 知 如 何 实 现 分 页 及 打 印 （ 为 分 页 状 态 下 的 打 印 )。 请 问 如 何 实 现 ？ 
<END>
66,如何避免RichTextBox在加入文本时产生闪烁 
本 人 在 使 用 richtextbox时 遇 到 了 一 个 麻 烦 , 特 向 高 手 请 教 ! 
    在 每 次 向 richtextbox添 加 新 记 录 时 ,文 本 总 是 闪 烁 跳 动 ,闪 现 开 头 的 部 分 ,跳 动 3~4次 才 停 止 !垂 直 滚 动 条 也 上 下 跳 动 !请 问 如 何 克 服 ? 
<END>
67,如何在RichTextBox中查找替换字符串 
我 用 vb 6.0在 richtextbox中 用 find方 法 连 续 搜 索 替 换 字 符 串 。 如 
    do 
     pos=RichTextBox1.Find("123",pos) 
     RichTextBox1.SelRtf="1234" 
    loop while pos>0 
    则 应 不 断 向 下 搜 索 至 文 尾 。 但 每 次 都 从 头 搜 索 起 。 不 知 为 何 。 
<END>
68,如何获得ListView的当前行 
我 用 ListView存 储 了 许 多 实 时 的 信 息 （ 用 lvwReport方 式 显 示 ） ， 现 在 有 这 样 一 个 问 题 ： 我 在 浏 览 表 格 时 如 何 记 住 当 前 浏 览 的 位 置 ？ （ 包 括 行 和 列 ， 因 为 信 息 在 实 时 刷 新 时 行 列 滚 动 条 自 动 复 位 )。 谢 谢 ！ 
<END>
69,如何保存RichTextBox中编辑的位置 
如 何 保 存 当 前 窗 口 、 文 本 状 态 ？ 从 数 据 库 中 调 出 的 内 容 放 在 RichTextBox中 编 辑 ， 当 我 查 询 其 他 内 容 后 ， 再 回 到 此 项 中 ， 希 望 能 回 到 刚 才 编 辑 的 位 置 ， 我 该 怎 样 做 ？ 
<END>
70,用VB如何实现象IE4收藏夹式的界面 
请 问 ： 用 VB如 何 实 现 象 IE4收 藏 夹 式 的 界 面 ?即 单 击 IE的 “ 收 藏 ” ， 则 收 藏 夹 出 现 ， 再 次 单 击 则 消 失 。 请 给 出 例 子 ， 谢 谢 
<END>
71,如何使用ListView的ListItems.Add 
我 是 一 个 VB初 学 者 ， 现 在 使 用 AdoDB连 接 数 据 库 把 基 本 表 中 的 内 容 读 出 来 显 示 到 ListView中 时 老 出 错 ， 我 是 参 照 msdn里 的 例 子 Datatree 做 的 ， 但 里 面 有 几 句 我 看 不 懂 ， 它 在 往 ListView添 加 一 个 Item时 用 了 语 句 : 
     Set xItem = lvwDB.ListItems.Add(Key:=xRec!ISBN, _ 
     Text:=xRec!TITLE, Icon:="book", SmallIcon:="smlBook") 
    我 不 知 道 Key:=xRec!ISBN 是 怎 么 回 事 ， 好 象 从 来 没 有 见 这 种 东 西 ， help上 也 不 知 道 上 哪 里 去 查 ， 你 能 给 我 讲 讲 吗 ？ 这 里 的 Key值 是 与 数 据 库 有 关 还 是 指 ListView里 的 ? 
<END>
72,如何在RICHTEXTBOX中显示BMP文件和EXE文件 
请 问 如 何 像 写 字 板 那 样 读 出 像 BMP文 件 ， EXE文 件 的 数 据 并 在 RICHTEXTBOX中 显 示 出 来 ？ 
<END>
73,如何为RICHTEXTBOX控件添加超过64K的文本 
请 问 如 何 像 写 字 板 那 样 为 RICHTEXTBOX控 件 添 加 超 过 64K的 文 本 ？ 
<END>
74,ListView加入项目时越界以及列宽调整 
1． 我 在 使 用 Listview时 ， 先 在 设 计 阶 段 定 义 了 四 个 段 首 ， 然 后 在 运 行 阶 段 录 入 数 据 ， 但 当 我 删 除 一 项 数 据 后 再 加 入 数 据 时 就 会 出 错 ， 原 因 是 Listview的 Add()出 错 (Object.ListItems.Add([Index],[Key],[Text],...,...)),即 它 的 “ Key” 值 超 出 范 围 。 原 代 码 为 ： 
    Private Sub Command_Click() 
     Static numa As Integer 
     numa=numa+1 
     Call view(numa,date1,date2,date3) 
     
    End Sub 
     
    Sub view(n1 As Integer,n2 As String,n3 As String,n4 As String) 
     Dim itmx As ListItem 
     a="zq"+str(n1) 
     set itmx=listview.listitems.add(n1,a,n2) 
     imx.SubItems(Listview.ColumnHeaders("je").SubItemIndex=n3 
     imx.SubItems(Listview.ColumnHeaders("xm").SubItemIndex=n4 
     'a为 关 键 字 ， 也 是 出 错 的 地 方 ， 因 为 删 除 一 个 数 据 后 numa的 值 仍 加 了 一 个 1， 所 以 a的 值 就 会 超 出 Listview中 最 后 一 个 数 据 的 关 键 字 的 键 值 ， 于 是 报 错 。 
     '“ je” 、 “ xm” 为 列 首 关 键 字 。 
     
    End Sub 
    不 知 您 有 什 么 好 的 办 法 解 决 这 个 问 题 。 
    2.第 二 个 问 题 也 是 有 关 于 上 一 个 程 序 的 ， 我 的 date2中 是 日 期 值 ， 如 “ 1999.1.23” ， 以 文 本 框 接 受 该 值 ， 但 值 由 n2登 到 Listview后 却 只 有 8位 ， 以 后 的 均 显 示 为 “ ...” ， 如 果 是 文 本 字 符 ， 8位 以 后 也 均 是 “ ...” 。 我 在 传 值 前 定 义 date2的 类 型 为 dade2 As string*10,也 无 效 。 
<END>
75,是否能把依系统格式显示的时间变为4位年份表示 
是 否 能 把 依 系 统 格 式 显 示 的 时 间 变 为 4位 年 份 表 示 ？ 如 ： StatusBar 控 件 的 sbrDate。 
<END>     
76,是否能够把richtext的内容完全转变为picture 
是 否 能 够 把 richtext的 内 容 完 全 转 变 为 picture? 
<END>     
77,如何能在MDIForm的Statusbar上制作进度条 
如何能在MDIForm的Statusbar上制作进度条， 在普通Form 的Statusbar 上很简单。 
<END>
78,如何保存和恢复工具条设置 
如 何 使 用 ： 
    Toolbar1.SaveToolbar 
    Toolbar1.RestoreToolbar 
<END>
79,LISTVIEW和TREEVIEW两个控件中，如何控制单击列表项后可编辑其名称这一功能  
在 使 用 LISTVIEW和 TREEVIEW两 个 控 件 中 ， 如 何 才 能 去 除 单 击 列 表 项 后 可 编 辑 其 名 称 这 一 功 能 ？ 另 如 其 中 一 个 改 名 后 ， 如 何 使 另 一 个 列 表 中 同 步 更 改 呢 ？ 
<END>     
80,如何限制Tab键只在选定的TabStrip中的控件中循环移动 
我 用 TabStrip控 件 制 做 了 一 组 卡 片 ,并 用 一 组 图 片 框 来 显 示 每 个 Tabs中 的 内 容 ,每 个 图 片 框 中 又 包 含 若 干 TextBox,程 序 运 行 时 ,用 键 盘 上 的 Tab键 在 控 件 间 移 动 时 ,总 是 从 TabStrip开 始 到 最 后 一 个 TextBox, 如 何 才 能 只 在 选 定 的 Tabs中 的 控 件 中 循 环 移 动 ,而 不 会 移 动 到 未 选 中 的 Tabs中 ？ 
<END>
81,能否在后台向TreeViewListView控件中装载数据
在 TreeView,ListView控 件 中 ,在 装 载 数 据 时 ,如 数 据 量 很 大 ,则 装 载 很 慢 ,能 否 使 装 载 一 部 分 数 据 时 就 可 显 示 出 来 , 剩 余 的 在 后 台 装 载 , 就 象 打 印 程 序 一 样 的 功 能 。 
<END>     
82,如何禁止用户在ListView 控件lvwIcon 视图下拖动图标？ 
ListView 控 件 在 lvwIcon 视 图 下 的 图 标 可 以 自 由 拖 动 ， 如 何 才 能 禁 止 用 户 拖 动 图 标 ？ 
<END>
83,如何在vb6的工具箱中添加ListView控件 
如 何 在 vb6的 工 具 箱 中 添 加 ListView控 件 ? 
<END>
84,ListView控件的大图标列表方式中是否可以改变列表中每个图标面积大小 
在 ListView控 件 的 大 图 标 列 表 方 式 中 , 是 否 可 以 改 变 列 表 中 每 个 图 标 所 占 的 面 积 大 小 , 控 件 本 身 好 象 没 有 有 关 的 方 法 和 属 性 ,不 知 有 否 API可 以 办 到 ? 
<END>
85,如何将LISTVIEW的内容清除干静 
如 何 将 LISTVIEW的 内 容 清 除 干 静 呢 ? 包 括 COLUMNHEAD。 我 翻 阅 vb6.0的 ACTIVE X参 考 ,并 无 CLEAR、 REMOVE等 方 法 。 是 否 用 API,WHICH? HOW? 
<END>