index1.txt

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

    Next 
    Case 2 
    For j = List2.ListCount - 1 To 0 Step -1 
    List1.AddItem List2.List(j) 
    List2.RemoveItem j 
     
    Next 
    End Select 
    End Sub 
     
    Private Sub Command2_Click() 
    save_Click 
    Form1.Show 
    Unload Me 
    End Sub 
     
    Private Sub save_Click() 
     
     CommonDialog1.Filter = "文 本 文 件 （ *.TXT） |*.txt" & "RTF文 件 (*.RTF)|*.RTF" 
     CommonDialog1.FileName = FileName 
     
     '显 示 保 存 对 话 窗 口 
     CommonDialog1.ShowSave 
     '如 果 没 有 文 件 
     If Len(CommonDialog1.FileName) = 0 Then 
     Exit Sub 
     End If 
     
     '判 断 文 件 格 式 
     If CommonDialog1.FilterIndex = 1 Then 
     '文 本 格 式 文 件 
     list.additem.SaveFile CommonDialog1.FileName, rtfText 
     Else 
     'RTF格 式 文 件 
     list.additem.SaveFile CommonDialog1.FileName, rtfRTF 
     End If 
    End Sub 
<END>    
68,如何解决vb6.0下编的软件到VB6.0下不能加载的问题
问 题 : 如 何 解 决 vb6.0下 编 的 软 件 到 VB6.0下 不 能 加 载 的 问 题 ？ 
    错 误 信 息 如 下 ： 
    行 386: 控 件 Grid1 的 类 MSGrid.Grid 不 是 一 个 已 加 载 的 控 件 类 。 
    行 206: 控 件 SpinButton1 的 类 Spin.SpinButton 不 是 一 个 已 加 载 的 控 件 类 。 
    行 298: 控 件 Graph1 的 类 GraphLib.Graph 不 是 一 个 已 加 载 的 控 件 类 。 
<END>    
69,在CommonDialog控件中如何选取多个文件
在 CommonDialog控 件 中 ， 好 象 只 能 选 取 一 个 文 件 。 请 问 如 何 选 取 多 个 文 件 ？ 就 象 xing那 样 ， 在 文 件 框 里 用 鼠 标 选 取 一 串 文 件 。 
<END>
70,有没有可以显示多个列的list控件
问 题 : 有 没 有 类 似 网 络 蚂 蚁 、 jetcar右 栏 的 list控 件 （ 也 就 是 可 以 显 示 多 个 列 的 list控 件 ） ? 
<END>
71,有Text控件可以直接的校验数据格式吗
问 题 : 在 开 发 数 据 库 的 程 序 中 经 常 用 到 : 
    在 新 增 数 据 时 ,对 绑 定 于 textbox框 的 数 据 进 行 校 验 ,然 后 ,存 入 表 中 。 目 前 ,我 设 想 的 方 法 时 是 写 一 个 公 用 的 过 程 ,来 校 验 每 一 个 textbox的 数 据 是 否 正 确 .同 时 ,亦 需 在 每 一 个 textbox的 validate事 件 中 ,写 其 校 验 过 程 。 问 :有 没 有 简 单 的 方 法 ,或 好 的 text控 件 ,可 以 直 接 的 校 验 ,设 置 好 正 确 的 数 据 格 式 。 在 那 里 可 以 找 到 范 例 程 序 ? 
<END>
72,能否在点击按钮退出页面时，跳过有效性检查
您 好 ， 我 使 用 WIN98下 的 VB6 进 行 编 程 ， 我 在 一 个 TEXTBOX控 件 的 LostFocus事 件 中 定 义 了 数 据 有 效 性 检 查 ， 当 输 入 数 据 非 法 时 弹 出 MSGBOX框 进 行 出 错 警 告 ， 但 是 我 希 望 点 击 “ cancel” 按 钮 退 出 页 面 时 可 以 跳 过 这 一 有 效 性 检 查 ， 不 知 道 有 什 么 办 法 ， 有 没 有 设 置 标 志 位 以 外 的 办 法 。
<END>
73,如何向文本框添加内容
: 
    当 我 向 TEXTBOX 控 件 输 入 内 容 时 ， 如 何 能 多 次 写 入 ， 而 不 破 坏 已 输 入 的 内 容 。 
    如 ： 文 本 框 已 显 示 GGGGG 
    先 输 入 TEMP=“ ABC” 
     TEXT1.TEXT=TEMP 
    再 输 入 TEMP=“ DEF” 
     TEXT1.TEXT=TEMP 
    此 时 文 本 框 显 示 GGGGG 
     ABC 
     DEF 
    希 望 收 到 你 的 答 复 ， 谢 谢 。 
<END>
74,怎样得到combobox中的文本
怎 样 得 到 combobox中 的 文 本 ? 
<END>
75,如何得到对话框控件中的确定和取消按钮被按下的信息
问 题 : 如 何 得 到 对 话 框 控 件 (common dialog)中 的 "确 定 " 和 "取 消 "按 钮 被 按 下 的 信 息 并 做 出 选 择 判 断 ? 
<END>
76,Label这样没有 hwnd 属性的控件能否得到窗口句柄
对 于 像 Lable 这 样 没 有 hwnd 属 性 的 控 件 如 何 得 到 它 的 hwnd 值 （ Windows中 的 对 象 都 应 该 有 句 柄 的 吧 ） ？ 
<END>
77,如何使Timer控件在运行x次后自动停止运行
问 题 : 请 问 : 
     1:如 何 使 Timer控 件 在 运 行 x秒 后 (或 x次 后 )自 动 停 止 运 行 ! 
     2:比 如 我 在 窗 体 上 有 两 个 check控 件 ,而 且 都 打 上 了 对 号 。 怎 么 样 使 程 序 退 出 时 记 住 ， 在 下 一 次 运 行 时 ,直 接 就 是 我 的 上 一 次 操 作 ,两 个 都 打 上 了 对 号 !谢 谢 指 点 ! 
<END>
78,如何避免在文本框中敲入回车键时，系统发出“滴”的烦人的响声
问 题 : 当 在 文 本 框 中 的 内 容 输 入 完 毕 ， 敲 入 回 车 键 移 开 焦 点 时 ， 为 何 系 统 会 发 出 “ 滴 ” 的 烦 人 的 响 声 ， 如 何 消 除 该 声 音 ， 而 且 不 影 响 焦 点 的 转 移 ？ 
<END>
79,如何使用程序移动滚动条
问 题 : 如 何 使 用 程 序 移 动 滚 动 条 ？ 
<END>
80,如何使Label控件出现垂直滚动条
在 VB6中 ， 如 何 使 Label控 件 出 现 垂 直 滚 动 条 ？ 
<END>
81,如何控制Combo控件下拉框的宽度
如 何 控 制 Combo控 件 下 拉 框 的 宽 度 ？ 
<END>
82,遍历窗体中的控件时如何知道当前的控件是什么类型
我 想 问 一 个 关 於 怎 样 知 道 在 遍 历 窗 体 中 的 控 件 时 ,当 前 的 控 件 是 什 类 型 的 问 题 。 
    当 我 用 For Each遍 历 窗 体 时 : 
     dim Obj As Control 
     For Each Obj In Form(指 定 的 窗 体 名 ) 
    我 怎 样 知 道 当 前 遍 历 的 Obj是 Line, Frame,ComboBox,ListBox,TextBox,ListView,CommandButton还 是 其 它 的 控 件 ? Next， 我 用 Obj.Name可 以 该 控 件 的 名 字 ,我 想 不 通 过 Tag属 性 去 存 储 它 的 控 件 对 象 名 ,能 否 通 过 其 它 的 方 法 得 知 ? 
<END>
83,如何在文本框中输入格式为年(月)(日)的日期数据
如 何 在 文 本 框 中 输 入 格 式 为 年 /月 /日 的 日 期 数 据 。 要 求 能 实 现 输 入 年 份 后 ， 光 标 自 动 跳 到 月 份 所 在 位 置 ， 而 输 入 月 份 后 ， 光 标 又 自 动 跳 到 日 期 位 置 上 。 
<END>
84,如何实现像各种向导的“下一步”，“上一步”的界面
你 好 ， 请 问 如 何 实 现 像 各 种 向 导 的 “ 下 一 步 ” ， “ 上 一 步 ” 的 界 面 ？ 是 否 需 要 把 下 一 个 出 现 的 画 面 的 所 有 控 件 的 VISIBLE设 为 FALSE， 用 户 按 “ 下 一 步 ” 时 再 将 它 们 设 为 TRUE？ 
<END>
85,如何更改设置TEXTBOX的右键菜单
如 何 更 改 设 置 TEXTBOX的 右 键 菜 单 ? 
<END>
86,在程序运行中通过鼠标移动标签
能 不 能 调 用 API函 数 ， 在 程 序 运 行 中 通 过 鼠 标 移 动 label？ 我 知 道 label没 有 hwnd,不 知 有 无 别 的 方 法 。 
    因 为 我 觉 得 用 drag方 法 移 动 效 果 不 是 很 好 ， 比 如 鼠 标 没 有 移 出 控 件 本 身 ， 就 不 能 移 动 。 谢 谢 ！ ！ 
<END>
87,如何当焦点改变了，文本框中的选定文本仍然能看见
问 题 : 如 何 能 在 VB程 序 中 做 到 这 点 : 
    像 在 Word中 一 样 ， 当 你 打 开 “ 查 找 ” 窗 口 时 ， 你 原 来 窗 口 文 本 框 中 的 选 定 文 本 仍 然 能 看 见 是 处 于 反 黑 状 态 的 ， 而 当 我 在 编 程 时 ， 当 我 用 Form.show 命 令 显 示 窗 体 时 ， 原 来 窗 体 的 文 本 框 中 的 反 黑 文 本 的 反 黑 状 态 就 看 不 见 了 ， 如 何 解 决 ？ 
<END>
88,怎样才能触发当前控件的Validate事件
问 题 ： 我 用 Screen.ActiveControl知 道 了 当 前 控 件 ， 但 怎 样 才 能 触 发 当 前 控 件 的 Validate事 件 ? 
<END>
89,List控件设置为Checkbox类型，如何得到选中的列表项内容
List控 件 设 置 为 Checkbox类 型 ， 如 何 得 到 选 中 的 列 表 项 内 容 ?List1_ItemCheck好 像 不 管 选 中 与 否 。 
<END>
90,如何向列表框内增加和删除内容并保存内容
请 问 如 何 能 实 现 "超 级 的 兔 子 安 全 视 窗 软 件 "中 的 "设 置 "那 样 ,通 过 按 钮 向 列 表 框 内 增 加 和 删 除 内 容 (鼠 标 指 定 内 容 )并 且 将 所 增 加 或 删 除 的 内 容 按 顺 序 编 号 写 入 到 文 件 或 注 册 表 中 。 (例 如 ,增 加 "C:\aaa.exe",同 时 建 立 一 个 名 为 "1"值 为 "C:\aaa.exe"的 字 符 串 值 ,以 此 类 推 ,类 似 "超 级 的 兔 子 安 全 视 窗 软 件 "的 原 理 )。 
<END>
91,如何用代码打开Combo控件的列表
如 何 用 代 码 打 开 Combo 控 件 的 列 表 ? 
<END>
92,如何给VB的标准控件增加属性
问 题 : 如 何 给 VB的 标 准 控 件 增 加 属 性 ? 
<END>
93,能否在文本框中显示大于64K的数据
我 需 要 在 窗 体 上 显 示 一 组 数 据 ， 它 可 能 会 比 较 庞 大 ， 比 如 达 到 80K， 我 现 在 用 的 是 TEXTBOX控 件 ， 不 但 调 用 时 间 长 ， 而 且 数 据 多 时 ， 是 否 会 超 界 ， 望 指 教 ， 谢 谢 。 
<END>     
94,如何使光标在某个文本框中出现
我 有 一 个 问 题 请 教 ： 一 文 本 框 ， 在 程 序 处 于 活 动 时 有 输 入 焦 点 ， 光 标 在 该 框 中 ； 当 请 程 序 最 小 化 后 再 还 原 时 ， 光 标 消 失 ， 只 有 用 鼠 标 在 文 本 框 单 击 ， 光 标 才 重 新 可 见 ， 也 才 可 输 入 信 息 。 如 何 令 才 能 做 到 ： 程 序 还 原 时 ， 该 框 中 即 可 输 入 ？ 
<END>     
95,能否在VB中调用Word 文件并将其显示在文本框内
问 题 ： 如 何 在 VB中 调 用 Word 文 件 并 将 其 显 示 在 文 本 框 内 ?我 曾 经 试 着 用 VBA后 台 运 行 WINWORD, 然 后 打 开 一 个 Word 文 件 ,并 准 备 用 DDE方 式 链 接 到 文 本 框 ， 但 是 应 该 设 什 么 样 的 Linkitem? 或 者 有 更 好 的 解 决 方 式 ， 请 指 教 ！ 
<END>
96,如何改变文本插入点的形状
如何改变文本插入点的形状?另 外 我 还 有 个 问 题 ： CreateCaret()函 数 的 用 法 。 
<END>
97,如何知道用户在Common Dialog中点击的是确认还是取消
问 题 : 我 如 何 知 道 用 户 在 Common Dialog中 点 击 的 是 "确 认 "还 是 "取 消 "？ 
<END>
98,如何指定文本框中的插入符的位置
问 题 : 如 何 指 定 文 本 框 中 的 插 入 符 的 位 置 ?