index1.txt

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

<END>
36,VB中表单对于按钮的方向键应该如何处理的
问 题 ： 在 一 个 表 单 中 ， 放 置 有 两 个 命 令 按 钮 1和 2， 当 前 焦 点 在 1上 ， 我 想 用 键 盘 方 向 键 控 制 按 钮 1在 表 单 中 自 由 移 动 ， 结 果 焦 点 移 到 按 钮 2上 ， 不 知 道 如 何 实 现 我 所 要 的 控 制 效 果 ？ 另 外 ， VB中 表 单 对 于 按 钮 的 方 向 键 是 如 何 处 理 的 ？ 谢 谢 。 
<END>
37,将窗体最大化，可是窗体内的控件不随之成比例放大
问 题 : 我 是 一 个 vb的 初 学 者 ， 现 在 有 一 个 小 问 题 ， 我 设 计 好 的 窗 体 ， 在 运 行 时 ， 我 将 窗 体 最 大 化 ， 可 是 窗 体 内 的 对 象 及 控 件 不 随 之 成 比 例 放 大 ， 还 是 原 来 大 小 ， 不 知 如 何 才 能 设 置 ？ 
<END>    
38,如何实现那种流行的平面按钮
时下流行的那种按钮（平时是平面，鼠标移上去后突起，按下去是凹陷状，移开后又成为平面）在vb6中是如何实现的？ 
<END>
39,让TextBox变成具有URL自动完成功能
Basic 
    问 题 : 请 问 VB专 家 们 ， 我 想 让 一 个 VB中 的 TextBox变 成 具 有 URL自 动 完 成 功 能 ， 与 IE中 的 基 本 一 致 ， 应 该 怎 样 做 ， 我 知 道 这 是 装 有 IE4的 WINDOWS系 统 具 有 的 特 殊 功 能 ， 应 该 属 于 系 统 调 用 ， 必 须 使 用 API来 完 成 。 多 谢 了 ！ 
<END>    
40,如何改变文本框组合框的选择色
问 题 ： 如 何 改 变 文 本 框 的 选 择 色 （ 包 括 组 合 框 ） 。 我 在 编 程 过 程 中 设 置 了 组 合 框 的 底 色 ， 但 在 运 行 后 发 现 下 拉 部 分 有 文 字 的 地 方 是 设 置 的 颜 色 ， 而 空 的 地 方 却 是 白 色 ， 有 点 难 看 ， 但 当 MOUSE移 过 时 就 全 部 变 成 了 设 置 色 。 
<END>
41,如何判断窗体中的控件类型
问 题 : 请 问 专 家 ： 
    如 何 判 断 窗 体 中 的 控 件 类 型 ？ 
     例 ： 
     dim cn as control 
     for each cn in form1 
     select case cn.??? 
     case ??? 
     msgbox "这 是 一 个 按 钮 " 
     case ??? 
     msgbox "这 是 一 个 图 片 框 。 " 
     end select 
     next 
<END>
42,使用公共对话框保存文件，怎样才能提示用户覆盖了以前的文件
问 题 : 您 好 ： 
    在 使 用 公 共 对 话 框 保 存 文 件 时 ， 用 户 如 选 择 了 以 前 文 件 名 为 保 存 文 件 名 ， 依 Windows习 惯 是 应 提 示 是 否 覆 盖 ； 为 何 VB6编 的 程 序 不 提 示 ？ 
    我 曾 用 ： CommonDialog1.ShowSave 
     Open CommonDialog1.FileName For Output As #1 
     if (CommonDialog1.FileName) <> "" Then Msgbox"提 示 覆 盖 " 
    在 新 建 文 件 名 键 入 后 CommonDialog1.FileName并 不 =""， 而 等 于 新 建 文 件 名 ， 也 发 出 ‘ 提 示 覆 盖 ’ 。 
    用 if LOF(1) <> 0 Then ....， 发 现 新 老 文 件 长 度 均 =0， 且 老 文 件 被 清 成 0字 节 。 
    请 问 专 家 怎 样 才 能 提 示 用 户 覆 盖 了 以 前 的 文 件 ？ 
<END>    
43,如何选择combo1后，让combo2中的内容跟着变
问 题 : 在 两 个 combo控 件 中 ， 如 何 选 择 第 一 个 combo1的 选 项 后 ， 让 combo2控 件 中 的 内 容 跟 着 combo1的 选 项 来 变 ？ 
<END>    
44,按钮的快捷方式能不能用功能键
问 题 : 按 钮 的 快 捷 方 式 能 不 能 用 function 键 ， 如 f1。 
<END>
45,如何做一按钮去控制时间控件的执行
问 题 : 专 家 ： 
    我 是 VB初 学 者 ， 今 遇 一 问 题 ， 即 如 何 做 一 按 钮 去 控 制 时 间 控 件 的 执 行 。 比 如 ， 对 于 time1控 件 ， command1按 下 去 ， 它 才 执 行 。 望 专 家 给 予 解 答 ， 不 胜 感 谢 ！ 
<END>    
46,如何实现不同颜色的文本框
本 人 非 常 喜 爱 VB， 在 编 一 个 打 字 练 习 的 小 程 序 时 遇 到 一 些 问 题 ， 想 求 助 于 您 。 
    当 屏 幕 上 出 现 练 习 的 语 句 时 （ 中 文 ） ， 我 在 文 本 框 中 依 样 打 入 ， 希 望 在 文 本 框 的 下 方 也 出 现 我 所 键 入 的 语 句 ， 并 且 当 出 现 错 误 时 ， 不 正 确 的 语 句 变 为 红 色 （ 正 确 的 为 兰 色 ） ； 其 次 ， 当 发 觉 输 入 错 误 时 ， 按 下 退 格 键 在 文 本 框 中 删 除 时 ， 其 下 方 的 相 应 语 句 也 随 之 同 步 删 除 。 本 人 在 实 现 错 误 变 色 时 ， 使 用 的 是 Print语 句 ， 在 窗 体 上 定 位 于 文 本 框 下 方 打 印 ， 但 感 到 十 分 不 便 ， 使 用 其 他 控 件 又 不 能 控 制 颜 色 相 应 变 化 ； 而 删 除 时 ， 文 本 框 下 方 的 语 句 不 随 之 相 应 删 除 ， 并 且 再 输 入 时 ， 就 不 判 断 正 误 了 。 希 望 您 能 够 给 予 帮 助 ， 本 人 将 万 分 感 激 ！ 
<END>
47,如何改变某些控件的边框颜色
请 问 如 何 改 变 某 些 控 件 如 COMMAND， LABEL等 的 边 框 颜 色 ？ VB似 乎 没 给 出 这 个 属 性 。 
<END>     
48,如何设计同其他Windows的应用程序相同的Open、Save等对话框
问 题 : Windows的 应 用 程 序 中 ， 如 open,save,save as等 对 话 框 大 部 分 都 样 子 差 不 多 ， 请 问 这 是 设 计 成 这 样 的 ， 还 是 调 用 同 一 个 函 数 。 如 果 是 调 用 函 数 ， 如 何 实 现 ？ 谢 谢 ！ 
<END>    
49,如何调用系统的选择颜色的调色板窗口
在 VB6中 ， 如 何 调 用 系 统 的 调 色 板 窗 口 (就 是 ： 显 示 属 性 中 ->外 观 ->颜 色 ->其 它 所 调 用 的 窗 口 )。 谢 谢 ! 
<END>    
50,如何设置控件不可见
问 题 : 我 为 了 让 一 些 控 件 在 一 定 时 候 看 不 见 ， 把 其 属 性 enabled设 置 为 false， 但 是 在 窗 口 中 仍 然 可 见 ， 只 是 不 是 活 动 状 态 。 请 问 该 怎 样 处 理 才 能 达 到 目 的 。
<END>
51,怎样用VB作一个超过规定时间就发生某个事件的程序
问题: 怎样用VB作一个超过规定时间就发生某个事件的程序，我听人说好象要做一个倒记时程序，您只要教我达到超过规定时间就发生某个事件的效果就行，谢谢您！ 
<END>
52,如何能在控件上显示立体的字
请 问 如 何 能 在 控 件 上 显 示 立 体 的 字 或 是 看 出 有 阴 影 的 效 果 ， 而 不 是 用 图 ， 比 如 用 label。 在 窗 体 上 用 了 flash控 件 后 ， label控 件 不 能 在 最 前 端 显 示 ， label控 件 设 成 了 透 明 的 ， 如 何 解 决 ？ 用 flash控 件 作 背 景 ， 如 何 才 能 让 picture控 件 在 flash上 有 立 体 的 感 觉 ？ 
<END>
53,如何能在 maskedbox 内输入及输出格式
问 题 : 如 何 能 在 maskedbox 内 输 入 及 输 出 日 期 去 都 是 "dd/mm/yyyy" format。 例 如 : 输 入 : 01/07/2000 (2000年 7月 1日 )当 在 用 主 户 离 开 栏 位 後 显 示 仍 为 01/07/2000。 
    我 所 使 用 的 方 法 如 下 : 
    在 maskedbox 的 庶 罩 (mask)设 定 为 "##/##/####", 没 有 设 定 格 式 (format)。 在 event lostFocus 内 使 用 function: 
    maskedbox.text = format$(cdate(maskedbox.text),"dd/mm/yyyy") 
    当 输 入 "01/07/2000" (2000年 7月 1日 ) 後 启 动 lostfocus event 後 ， 结 果 显 示 为 "07/01/2000" (2000年 1月 7日 )。 
<END>    
54,怎样在TextBox中填入键盘上没有的特殊字符
问 题 : 怎 样 在 "TextBox"中 填 入 键 盘 上 没 有 的 特 殊 字 符 ， 如 千 分 号 "‰ "。 或 怎 样 调 用 "Word"中 的 插 入 特 殊 字 符 功 能 。 
<END>    
55,选中控件时怎样画出控件四周的爪
问 题 ： 我 想 自 己 做 一 个 类 似 于 vb6.0编 辑 器 的 东 西 ， 现 在 可 以 在 窗 口 中 画 出 控 件 ， 但 是 选 中 控 件 时 不 知 道 怎 样 画 出 控 件 四 周 的 爪 ， 请 问 怎 样 将 爪 画 出 来 ？ 我 现 在 采 用 的 是 通 过 控 件 数 组 来 管 理 不 同 的 控 件 ， 要 想 把 爪 画 出 来 ， 是 在 本 来 的 控 件 的 四 周 画 出 来 ， 还 是 重 新 自 己 生 成 控 件 ， 通 过 自 定 义 控 件 的 方 法 来 完 成 ？ 
<END>
56,怎样在按下按纽的同时，发出声音
怎 样 实 现 象 oicq那 样 ， 在 按 下 按 纽 的 同 时 ， 发 出 声 音 。 恳 请 给 予 指 导 ， 谢 谢 ！ 
<END>
57,如何实现输入时间、日期
问 题 : 我 用 三 个 文 本 框 来 分 别 输 入 代 表 时 间 的 时 、 分 、 秒 ， 并 用 一 个 垂 直 滚 动 条 来 实 现 数 值 的 增 减 ， 向 下 表 示 减 少 ， 向 上 表 示 增 加 。 希 望 在 选 中 代 表 小 时 的 文 本 框 中 的 文 本 时 （ 蓝 底 白 字 ） ， 点 击 滚 动 条 ， 则 只 对 小 时 的 值 进 行 增 减 （ 0-24） ， 而 选 中 代 表 分 钟 的 文 本 时 就 对 分 钟 进 行 增 减 （ 0-60） ， 秒 钟 相 同 。 如 果 停 止 点 击 滚 动 条 时 就 使 光 标 自 动 
    定 位 到 正 在 进 行 增 减 的 文 本 框 中 。 其 运 行 过 程 如 同 windows控 制 面 板 中 日 期 /时 间 设 置 的 小 时 分 钟 秒 钟 设 置 ， 请 问 要 如 何 实 现 ？ 
<END>    
58,如何改变COMMAND按纽上文字的颜色
如 何 改 变 COMMAND按 纽 上 文 字 的 颜 色 ？ 按 钮 没 有 forecolor属 性 。 
<END>
59,如何才能保留在控件中添加上的内容
问 题 : 我 想 编 一 个 小 程 序 就 是 ， 点 击 按 钮 后 将 文 本 框 中 的 内 容 自 动 添 加 到 LIST列 表 中 ， 然 后 点 击 列 表 的 相 应 项 目 后 又 会 出 现 在 文 本 框 中 。 [现 在 都 可 以 了 只 是 程 序 一 旦 关 闭 后 ， 所 有 的 东 西 就 都 没 有 了 ， 请 问 如 何 才 能 保 留 添 加 上 的 内 容 ] 
<END>    
60,怎样实现横向拖动一个控件
问 题 ： 怎 样 实 现 横 向 拖 动 一 个 控 件 ， 就 像 winamp中 拖 动 那 个 进 度 块 一 样 ？ 谢 谢 ！ 
<END>
61,怎样在一个控件中显示各种不同的字体类型
问 题 : 怎 样 在 一 个 控 件 中 显 示 各 种 不 同 的 字 体 类 型 ， 如 ， 在 label中 的 “ 中 国 ” 用 行 楷 ， 而 后 边 跟 的 字 如 “ 人 民 ” 用 “ 宋 体 ” ， 英 语 单 词 用 times new roman 
<END>    
62,如何检验窗体中的所有TextBox都已被填写
我 想 问 一 下 ,如 何 检 验 窗 体 中 的 所 有 TextBox都 已 被 填 写 ? 
<END>    
63,有何方法可以知道焦点在窗体的哪个控件上
在 VB中 有 何 方 法 可 以 知 道 焦 点 在 窗 体 的 哪 个 控 件 上 ? 
<END>
64,如何在文本框中光标的位置插入字符串
问 题 : 如 何 在 文 本 框 中 光 标 的 位 置 插 入 字 符 串 ? 
<END>   
65,如何将EXE中的图标显示在按钮上
我 编 了 这 样 的 一 个 小 程 序 ， 希 望 程 序 启 动 后 能 获 得 某 个 .exe执 行 文 件 的 图 标 ， 并 将 此 图 标 显 示 在 某 一 个 按 钮 上 。 程 序 如 下 ： 
     Private Sub Form_load() 
     hicon = ExtractIcon(App.hInstance, "c:\game\df\df.exe", 0) 
     commandhdc = GetDC(Command1.hwnd) 
     DrawIcon commandhdc, 0, 0, hicon 
    End Sub 
    但 运 行 时 发 现 窗 体 载 入 后 ， drawicon commandhdc,0,0,hicon这 一 句 似 乎 并 未 执 行 ， 但 我 将 此 句 加 在 按 钮 command1的 click事 件 中 ， 单 击 按 钮 却 能 够 执 行 ， 显 示 出 了 图 标 。 请 问 这 是 为 什 么 ？ 能 不 能 在 窗 体 一 载 入 ， 不 执 行 任 何 操 作 便 能 完 成 上 述 功 能 ， 将 图 标 显 示 在 按 钮 上 。 （ 注 ： 程 序 中 使 用 的 api函 数 都 已 说 明 ） 谢 谢 ！ 
<END>
66,如何能使Timer控件定时超过一分钟
问 题 : VB6的 Timer控 件 只 能 定 时 到 一 分 多 钟 ， 希 望 能 推 荐 一 种 能 定 时 到 半 天 或 者 时 间 越 长 越 好 的 方 案 ！ （ 使 用 多 个 Timer推 叠 可 不 是 好 办 法 ） 
<END>
67,怎样把list中的内容保存成为txt文件
我 是 一 名 vb 爱 好 者 ， 现 在 我 遇 到 一 个 问 题 ： 从 数 据 库 中 把 数 据 调 入 listbox 中 显 示 ,list1中 显 示 调 入 的 数 据 ， list2中 是 按 我 的 要 求 选 择 的 ， 怎 样 把 list 中 的 内 容 保 存 成 为 *.txt文 件 ？ 
    我 有 一 段 代 码 ， 请 高 手 帮 我 修 改 一 下 ， 我 将 非 常 感 谢 您 的 ！ 
    Private Sub Command_Click(Index As Integer) 
    Dim j As Integer 
    Select Case Index 
    Case 0 
    For j = List1.ListCount - 1 To 0 Step -1 
    List2.AddItem List1.List(j) 
    List1.RemoveItem j 
     
    Next 
    Case 1 
    For j = List1.ListCount - 1 To 0 Step -1 
    If List1.Selected(j) Then 
    List2.AddItem List1.List(j) 
    List1.RemoveItem j 
    End If 
     
    Next 
    Case 3 
    For j = List2.ListCount - 1 To 0 Step -1 
    If List2.Selected(j) Then 
    List1.AddItem List2.List(j) 
    List2.RemoveItem j 
    End If