index1.txt

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

<END>
48,如何能使MOUSE移到菜单上，任务栏上出现提示信息
问 题 ： 如 何 能 使 MOUSE移 到 菜 单 上 ， 任 务 栏 上 出 现 提 示 信 息 ？ 
<END>
49,怎样在运行时去掉动态加载的菜单项
怎 样 在 运 行 时 去 掉 动 态 加 载 的 菜 单 项 ？ 我 在 制 作 象 winamp那 样 的 ， 皮 肤 在 菜 单 中 更 换 。 
<END>
50,如何隐藏MDIFORM窗体的标题栏
我 设 计 了 一 个 MDIFORM， 想 隐 藏 窗 体 的 标 题 栏 ， 尤 其 是 不 希 望 在 按 下 ALT+空 格 时 出 现 那 个 下 拉 菜 单 ， 请 问 有 什 么 办 法 可 以 实 现 。 
<END>
51,如何改变窗体的标题栏颜色及渐变效果
如 何 在 不 改 变 Windows颜 色 的 情 况 下 改 变 窗 体 的 标 题 栏 颜 色 及 渐 变 效 果 ？ 
<END>
52,如何调用子窗体的变量或方法
我 在 VB中 建 立 了 一 个 MDI窗 体 MDIMainForm， 现 在 假 设 有 一 个 子 窗 体 subForm， 在 它 的 声 明 区 中 声 明 了 一 个 变 量 ： 
    Private intNumber as Integer 
    我 如 何 在 主 窗 体 MDIMainForm的 某 一 事 件 中 改 变 或 读 取 在 subForm中 声 明 的 变 量 intNumber的 值 ？ 或 者 subForm中 的 某 一 过 程 (也 是 在 它 的 声 明 区 中 声 明 的 )？ 
<END>
53,如何更改设置TEXTBOX的右键菜单
如 何 更 改 设 置 TEXTBOX的 右 键 菜 单 ? 
<END>
54,始终让一个FORM放在其他FORM的后面
问 题 ： 有 没 有 方 法 始 终 让 一 个 FORM放 在 其 他 FORM的 后 面 ， 即 使 在 用 ALT_TAB切 换 也 不 会 穿 帮 ？ 
    用 途 ： 整 个 PROJECT的 SIZE是 640 X 480， 但 是 客 户 的 显 示 模 式 是 800 X 600 甚 至 更 高 ， 我 想 让 我 的 活 动 FORM始 终 是 640 X 480， 放 在 屏 幕 中 间 ， 而 背 景 全 黑 或 用 其 它 全 屏 图 案 代 替 ， 故 我 　 要 一 个 能 始 终 放 在 最 底 层 的 FORM。
<END>
55,如何禁止用户切换到其他软件
我 想 自 己 设 计 一 个 窗 口 ， 使 得 一 旦 该 窗 口 弹 出 其 他 的 软 件 的 窗 口 就 不 能 响 应 。 比 如 我 的 窗 口 弹 出 后 ， 客 户 连 资 源 管 理 器 ， WORD， EXCEL等 其 他 的 所 有 的 应 用 程 序 都 不 能 运 行 。 应 该 如 何 实 现 呀 ！ 
<END>
56,怎样使用ActiveX DLL 来封装窗体Form为DLL文件
问 题 :怎 样 使 用 ActiveX DLL 来 封 装 窗 体 Form为 DLL文 件 ,并 在 代 码 中 正 确 调 用 ?比 如 MsgBox框 的 实 现 方 式 ， 只 需 输 入 相 关 的 参 数 ， 窗 体 自 动 显 示 并 处 理 ， 返 回 所 需 的 结 果 值 ？ 
<END>
57,程序运行时能缩成图标并进入状态栏的右端
我 想 实 现 当 我 编 的 程 序 运 行 时 能 缩 成 图 标 并 进 入 状 态 栏 的 右 端 ， 象 喇 叭 音 量 调 节 的 图 标 一 样 。 我 希 望 能 得 到 您 的 解 答 。 
<END>
58,如何在A窗口中向B窗口发出KEYDOWN消息
如 何 在 A窗 口 中 向 B窗 口 发 出 一 个 消 息 ,以 便 被 B窗 口 中 FORM_KEYDOWN所 接 收 ？ 不 用 SendKeys实 现 。 
<END>
59,为什么总是不能从窗体退出
问 题 : 
     FORM1为 动 画 
     FORM2为 界 面 
     bas1: 
     sub main 
     load form1 
     load form2 
     end sub 
    先 FORM1后 FORM2。 在 FORM_LOAD中 有 
     While True 
     ... 
     DoEvents 
     Wend 
    在 MOUSE_DOWN中 
     unload me 
    于 是 form1总 是 退 不 出 ？ 
<END>
60,如何等待用户完成操作并关闭窗口之后，程序才可继续其它工作
问 题 : 我 在 做 一 个 程 序 ,其 中 有 多 个 窗 口 ,运 行 期 间 有 类 似 于 "打 印 设 置 "这 样 的 窗 口 ， 需 要 一 直 等 待 用 户 设 置 完 成 并 关 闭 窗 口 之 后 ,程 序 才 可 继 续 其 它 工 作 ,不 知 如 何 可 以 做 到 这 点 。 
<END>
61,使用向导建立的数据窗体鼠标一直呈漏斗状
mdb 输 入 后 进 程 "findfast" 无 法 退 出 
    我 用 Visdata 建 了 一 个 Access7.0 的 mdb 和 窗 体 frmTest 与 之 对 应 。 但 当 我 在 调 试 时 调 用 frmTest 输 入 数 据 完 毕 时 ， 按 “ 关 闭 ” 键 后 ， 鼠 标 一 直 呈 漏 斗 状 ， 但 主 窗 体 依 然 能 正 常 退 出 ， 且 退 出 后 鼠 标 才 恢 复 正 常 。 在 鼠 标 一 直 呈 漏 斗 状 期 间 若 按 Ctrl+Alt+Del 会 看 到 一 个 叫 "findfast"的 进 程 。 请 问 这 是 为 何 ？
<END>
62,如何调用另一个窗体中的事件代码
问 题 : 如 何 在 form1中 ,通 过 按 command1_click按 钮 ,调 用 form2 中 的 command2_click。 我 在 private sub command1_click()用 call form2.command2_click后 ， 提 示 ： ” 编 译 错 误 ： 方 法 或 数 据 成 员 未 找 到 。 ” 是 怎 么 回 事 ？ 
<END>
63,如何实现窗口总在最前面(Always on top)
我做了一个显示时钟的form,想让他always on top,但找了好长时间,也没有找到在何处设置。 
<END>
64,从网页上拖URL到程序中是怎么实现的
问 题 : 你 好 ！ ！ 在 网 络 吸 血 鬼 中 ， 从 网 页 上 拖 入 URL到 图 片 上 是 怎 么 实 现 的 ？ 
<END>
65,如何让inputbox函数的输入值以星号显示
请 问 两 个 问 题 ： 
    1、 如 何 让 inputbox函 数 的 输 入 值 以 *号 显 示 ， 而 不 让 人 知 道 其 真 实 内 容 ？ 
    2、 能 象 下 面 这 么 操 作 移 动 一 文 件 到 新 的 目 录 吗 ？ 
    Dim oFile As String '待 读 取 数 据 的 文 件 
    MkDir "d:\backup" '建 立 存 放 备 份 文 件 的 目 录 
    Name "d:\oFile" As "d:\backup\oFile" '移 动 文 件 到 新 的 目 录 
    Kill oFile 
<END>
66,如何用VB6实现全屏显示
如 何 用 VB6实 现 全 屏 显 示 ？ 
<END>
67,编译时系统提示数据窗口未定义
请 问 各 位 pb高 手 ,我 在 编 写 pb程 序 时 在 窗 体 上 画 了 一 个 标 签 控 件 ,在 标 签 上 画 了 一 个 Datawindow,名 称 是 dw_1,窗 体 的 名 称 是 gongcheng。 在 应 用 对 象 open事 件 代 码 如 下 : 
     sqlca.dbms="odbc" 
     sqlca.autocommit=false 
     sqlca.dbparm="connectstring='dsn=fac'" 
     connect; 
     open(gongcheng) 
     我 连 接 的 是 SQL Server数 据 库 
     在 窗 体 open事 件 中 编 写 代 码 如 下 : 
     long Ii_rows 
     dw_1.settransobject(sqlca) 
     Ii_rows=dw_1.retrieve() 
    在 编 译 时 系 统 提 示 dw_1未 定 义 。 谢 谢 ! 
<END>
68,如何调整控件的大小以铺满form的表面
我 在 form上 放 了 一 toolbar和 一 listview,我 想 在 form_resize时 调 整 listview的 大 小 使 其 恰 好 铺 满 form的 表 面 ， 但 以 下 代 码 不 能 成 功 ： 
    Private Sub Form_Resize() 
     lvwLogged.Height = Me.Height - lvwLogged.Top 
     lvwLogged.Left = Me.Left 
     lvwLogged.Width = Me.Width 
    End Sub 
    需 要 将 listview的 大 小 再 稍 减 小 才 可 ， 为 什 么 ？ 
<END>
69,如何把窗体最小化
请 问 有 什 么 能 在 程 序 中 更 改 窗 体 的 Min属 性 ？ 例 如 ： 有 一 个 图 形 控 件 （ picture1） ， 当 用 鼠 标 单 击 这 个 图 形 控 件 时 ， 把 窗 体 （ From1） 最 小 化 。 
<END>
70,如何知道工程中有多少个窗体
如 何 知 道 工 程 中 有 多 少 个 窗 体 或 其 他 对 象 ？ 
<END>     
71,如何在VB实现窗体模板功能
请 问 如 何 在 vb实 现 VF中 的 窗 体 模 板 功 能 ?即 :可 以 定 义 一 个 父 窗 体 作 为 基 类 ,新 建 窗 体 时 可 从 该 窗 体 派 生 ,该 子 窗 体 继 承 父 窗 体 的 所 有 属 性 和 方 法 并 可 修 改 其 继 承 方 法 ?
<END>
72,如何实现RichWin或两岸通的浮动的工具栏
如 何 实 现 RichWin或 两 岸 通 的 浮 动 的 工 具 栏 ? 
<END>
73,如何在无标题窗体上使用菜单
如 何 实 现 中 文 之 星 那 样 的 链 形 菜 单 管 理 器 ？ 我 看 了 “ QA000091 “如何实现RichWin或两岸通的浮动的工具栏?”” 的 解 答 ， 觉 得 很 好 ， 但 我 怎 样 加 一 个 菜 单 到 这 个 无 头 窗 体 上 呢 ？ 好 象 我 一 加 ， 窗 体 的 头 就 出 来 了 ！ 谢 谢 ！ ！ 
<END>
74,如何做一个启动窗口
如 何 做 一 个 启 动 窗 口 ?VB应 用 启 动 较 慢 ,想 做 一 个 启 动 画 面 来 分 散 用 户 的 注 意 力 ,该 如 何 做 呢 ?不 会 速 度 更 慢 吧 ? 
<END>
75,当最小化一个窗体时，其他的窗体也随着最小化
1、 我 的 程 序 中 有 几 个 独 立 的 窗 体 ， 我 希 望 当 我 最 小 化 其 中 的 一 个 窗 体 时 ， 其 他 的 窗 体 也 随 着 最 小 化 。 我 该 如 何 做 ？ 
    2、 我 的 程 序 在 WINDOWS的 托 盘 中 有 图 标 ， 但 最 小 化 窗 体 后 ， 在 任 务 栏 中 有 任 务 条 。 我 希 望 当 最 小 化 窗 体 时 ， 任 务 栏 中 没 有 任 务 条 ， 仅 有 托 盘 中 的 图 标 ， 用 户 可 以 通 过 点 击 托 盘 中 的 图 标 显 示 程 序 窗 体 。 我 该 如 何 做 。 
<END>
76,如何用VB在资源管理器的快捷菜单上添加自己的选项
象WINZIP那样，在某个文件上单击鼠标右键，在弹出的系统菜单中会根据当前的文件出现ADD ZIP等菜单项，如何用VB来实现这项功能？
<END>
77,如何实现记录你最近打开文件的子菜单
请 问 在 VB6中 如 何 实 现 记 录 你 前 四 次 打 开 个 文 件 的 子 菜 单 ， 如 VC中 的 最 近 文 件 一 样 ， 有 没 有 原 程 序 ? 
<END>
78,如何将几个连续播放的窗体做成象幻灯片的多种切换方式
如 何 将 几 个 连 续 播 放 的 窗 体 做 成 象 powerpoint幻 灯 片 的 多 种 切 换 方 式 ？ 有 现 成 的 控 件 吗 ？ 
<END>
79,如何在客户区底端实现文字至右向左的跑马灯效果
本 人 想 编 一 个 基 于 SDI的 ， 并 且 能 在 客 户 区 的 底 端 实 现 文 字 至 右 向 左 的 跑 马 灯 效 果 。 请 各 位 高 手 指 点 。 (文 本 为 一 文 本 文 件 ） 
<END>     
80,如何在一个菜单里面有小的位图
在 vb编 程 中 ， 如 何 在 一 个 菜 单 里 面 有 小 的 位 图 ? 
<END>
81,如何使窗体检测到焦点是否切换
如 何 创 建 一 个 窗 体 , 当 鼠 标 点 到 其 他 任 何 一 个 地 方 都 能 卸 载 掉 ， 就 象 是 菜 单 一 样 。 (用 Hook好 像 只 对 当 前 程 序 有 用 , 点 到 其 他 程 序 窗 体 就 不 返 回 消 息 ) 
<END>
82,如何禁止或修改窗口的系统菜单
如 何 禁 止 Form左 上 角 的 下 拉 菜 单 ?或 者 如 何 象 Winamp那 样 改 变 这 个 菜 单 ? 
<END>     
83,怎样使窗体移动时，窗体都以显示内容的方式来显示
怎 样 使 窗 体 在 移 动 时 ， 不 管 系 统 设 置 是 “ 移 动 时 显 示 内 容 ” 还 是 “ 移 动 时 不 显 示 内 容 ” 我 的 窗 体 都 以 显 示 内 容 的 方 式 来 显 示 ? 
<END>
84,如何让窗体还原效果都等同于窗体最大化
如 何 让 窗 体 最 大 化 和 还 原 效 果 都 等 同 于 窗 体 最 大 化 。 
<END>
85,如何把ActiveX Dll中的Form显示为子窗体
我 在 ActiveX Dll中 存 在 一 个 Form,但 我 想 在 调 用 它 时 ， 将 它 显 示 为 子 窗 体 。 请 告 诉 我 具 体 做 法 。 谢 谢