index1.txt

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

1,如何用vb编制半透明窗体
如何用vb编制半透明窗体？ 要用到win32 API 的什么函数？不用bitblt函数能实现吗？ 
<END>    
2,如何让msgbox弹出的窗口在所有程序的最上层
教如何让msgbox弹出的窗口在所有程序的最上层？谢谢 
<END>    
3,如何能控制MDIForm的最大化，最小化
如何能控制MDIForm的最大化，最小化（如使maxbutton无效）? 
<END>
4,窗体的borderstyle属性的toolwindows是不是设定窗体作为工具箱的意思
问题: 窗体的borderstyle属性有两项是: 
    4_fixed toolwindows 
    5_sizable toolwndows 
    这是不是设定窗体作为工具箱的意思。怎么个用法????? 
<END>    
5,如何建立如开始菜单一样的菜单
如何在SDK方式下建立如"开始菜单"一样的菜单?有否源程序? 
<END>
6,系统提示出错：Only one MDIForm allowed
问题：我在MDIForm中放置了一个MSComm串口通讯控件,想在MDIForm的子窗体中对它进行操作,不知如何写好此代码,查各资料未果,特向您请教。 
    在子窗体的CommandButton的Click事件中我写入的是: 
     frmMain.MSComm1.Output = Chr(&H0),系统提示出错:Only one MDIForm allowed 
    该如何在此事件中发送数据呢? 
<END>    
7,如何调用API函数来屏蔽窗体上的还原按钮
如何调用API函数来屏蔽窗体上的还原按钮？ 
<END>
8,如何使窗口透明
如何编一个窗口，使窗口透明，露出墙纸或下面的窗口。（其中的文字图象照显不误） 
<END>
9,在MDI父窗口可以增加背景吗
在 MDI父 窗 口 可 以 增 加 背 景 吗 ？ 如 何 增 加 ？ 
<END>
10,如何动态的生成象ie5的收藏夹的下拉菜单
问 题 ： 1.如 何 动 态 的 生 成 菜 单 栏 ...(有 图 表 的 菜 单 栏 ) 
    2.就 象 ie5的 收 藏 夹 的 下 拉 菜 单 
<END>
11,如何将窗体、控件的名称作为变量来运用
如 何 将 窗 体 .控 件 的 名 称 作 为 变 量 来 运 用 ? 
    例 如 :Form1 Form2 都 包 含 一 名 为 label 的 控 件 ,如 何 以 Form1 Form2 作 为 变 量 来 控 制 label的 显 示 内 容 。 
<END>
12,在FORM之间传递数据只有用全局变量吗
在 vb6.0中 ， 在 FORM之 间 传 递 数 据 只 有 用 全 局 变 量 吗 ？ 有 没 有 一 种 机 制 像 INPUTBOX那 样 传 递 变 量 。 
<END>
13,如何打开多个文档
我 用 vb6编 一 个 文 本 编 辑 器 ， 要 能 打 开 多 个 文 档 ， 如 何 打 开 多 个 文 档 ？ 代 码 如 何 写 ？ 
    我 用 vb6的 应 用 程 序 向 导 已 经 生 成 了 多 文 档 程 序 ， 文 本 控 件 用 TextBox； 多 文 档 控 件 有 
    command、 dialog、 imagelist。 
<END>
14,如何使ListBox控件中的数据根据需要上下移动互换位置
如 何 使 ListBox控 件 中 的 数 据 根 据 需 要 上 下 移 动 互 换 位 置 ? 
<END>    
15,如何判断弹出式菜单的方向（向上还是向下）
问 题 ： 如 何 判 断 弹 出 式 菜 单 的 方 向 （ 向 上 还 是 向 下 ） ? 
<END>
16,怎样能让窗体碰撞到边界能自由来回反弹
问 题 : 请 问 怎 样 能 让 FORM(窗 体 )在 Windows的 桌 面 上 自 由 移 动 碰 撞 到 边 界 能 自 由 来 回 反 弹 ？ 
<END>
17,是否有改变Form外形(如圆形)的方法
是否有改变Form外形(如圆形)的方法? 
<END>
18,用PrintForm打印FORM中的图形，打印结果无法调大
问 题 : 请 教 ： 我 用 VB的 打 印 命 令 (PrintForm) 打 印 FORM中 的 图 形 ， 打 印 结 果 无 法 调 大 ， 有 一 个 ZOOM的 命 令 不 知 是 否 可 用 ， 怎 么 用 ？ 
<END>
19,如何用VB实现数据库菜单，即菜单存放在数据库中
请 问 如 何 用 VB实 现 数 据 库 菜 单 ， 即 菜 单 存 放 在 数 据 库 中 ， 之 后 程 序 根 据 权 限 打 开 必 要 的 菜 单 ， 其 他 菜 单 完 全 不 可 见 。 请 问 可 以 实 现 吗 ？ 
<END>
20,如何实现窗体在屏幕的中心从无到有从小到大的出现
问 题 ： 本 人 想 做 一 个 动 态 的 form,在 屏 幕 的 中 心 从 无 到 有 从 小 到 大 的 出 现 ， 效 果 就 如 同 网 络 蚂 蚁 的 显 示 下 载 信 息 的 消 息 框 一 样 。 我 通 过 不 断 调 整 form的 top,left,width,height四 个 属 性 ,每 调 整 一 次 就 重 新 显 示 并 隐 藏 一 次 form,但 这 样 生 成 的 form闪 烁 的 非 常 严 重 ,即 使 把 form的 autoredraw属 性 设 为 false也 没 有 用 .而 且 只 要 重 设 这 四 个 属 性 中 的 任 何 一 个 ， 还 没 有 执 行 下 面 的 其 它 属 性 设 定 和 form.refresh(或 form.show)指 令 ， form就 自 动 重 绘 ， 导 致 form 的 闪 烁 和 偏 离 屏 幕 中 心 .不 知 该 如 何 解 决 ， 请 各 位 高 手 不 吝 赐 教 。
<END>
21,用show form命令显示窗体时，自动运行该窗体中的一个过程
问 题 : 我 想 用 show form命 令 显 示 另 一 个 窗 体 时 ， 自 动 运 行 该 窗 体 中 的 一 个 过 程 或 自 定 义 函 数 请 问 如 何 实 现 ？ 
<END>    
22,在mdiform中选择已经打开的但不是正在显示的form触发什么事件
问 题 : 在 mdiform中 ,从 菜 单 上 的 窗 口 栏 选 择 已 经 打 开 的 但 不 是 正 在 显 示 的 form会 触 发 一 个 什 么 事 件 ？ 我 需 要 根 据 不 同 的 form显 示 不 同 的 工 具 栏 。 
<END>
23,如何弹出一个对话框，进行密码效验
点 击 一 按 纽 ， 弹 出 一 个 对 话 框 ， 进 行 密 码 效 验 。 这 个 过 程 用 vb怎 么 实 现 ? 我 先 建 立 一 个 From1窗 体 ， 里 面 画 一 个 CommandButton。 然 后 建 立 一 个 frmLogin窗 体 。 现 在 想 click 一 下 command1 调 出 frmLogin窗 体 ， 不 知 道 这 怎 么 做 ， 在 Private Sub Command1_Click()过 程 里 应 添 加 什 么 代 码 ？ 在 frmLogin里 校 验 password的 具 体 做 法 是 怎 样 ？ 
<END>
24,如何让两个窗口同时移动
问 题 : 请 问 如 何 让 两 个 窗 口 同 时 移 动 ， 即 在 用 鼠 标 点 中 一 个 的 标 题 栏 进 行 拖 动 的 同 时 ， 另 一 个 窗 口 也 一 起 移 动 。 
<END>    
25,将窗体最大化，可是窗体内的控件不随之成比例放大
问 题 : 我 是 一 个 vb的 初 学 者 ， 现 在 有 一 个 小 问 题 ， 我 设 计 好 的 窗 体 ， 在 运 行 时 ， 我 将 窗 体 最 大 化 ， 可 是 窗 体 内 的 对 象 及 控 件 不 随 之 成 比 例 放 大 ， 还 是 原 来 大 小 ， 不 知 如 何 才 能 设 置 ？ 
<END>    
26,在VB中可以限制窗体的最小值吗
请 问 ， 在 VB中 如 何 在 改 变 窗 体 大 小 时 ， 可 以 限 制 窗 体 的 最 小 值 ?（ 比 如 说 ， 窗 体 最 小 只 能 是 2000× 2000， 最 大 不 限 ） 
<END>
27,能否改变字体的大小呢
问 题 : 我 用 菜 单 编 辑 器 生 成 菜 单 时 ， 发 现 无 法 改 变 字 体 的 大 小 ， 请 问 有 什 么 其 它 方 法 能 生 成 菜 单 ， 并 且 可 以 改 变 字 体 的 大 小 呢 ？ 
<END>    
28,如何将打开的所有窗口最小化
如 何 将 打 开 的 所 有 窗 口 最 小 化 ? 
<END>    
29,如何禁止窗口改变大小，同时允许最小化、最大化
问 题 ： 用 VB制 作 Form时 ， 通 过 对 Property的 简 单 设 定 ， 可 得 到 右 上 角 为 隐 藏 窗 口 符 ， 不 可 使 用 状 态 的 全 画 面 表 示 符 ， 及 关 闭 窗 口 的 叉 子 符 号 的 Form， 这 时 如 果 把 鼠 标 放 在 窗 口 的 边 缘 上 可 拉 动 着 调 整 窗 口 的 大 小 ， 但 我 想 要 的 Form是 在 其 右 上 角 有 那 三 个 符 号 （ 或 只 有 第 一 个 及 第 三 个 符 号 ） ， 把 鼠 标 放 在 Form的 边 缘 上 不 会 出 现 可 拉 动 的 状 态 即 就 是 无 法 调 整 Form的 大 小 ， 在 别 的 地 方 看 到 过 人 家 做 出 的 这 种 Form， 很 是 喜 欢 ， 可 是 自 己 怎 么 也 做 不 出 来 ， 想 请 专 家 帮 帮 忙 ， 拜 托 了 ， 谢 谢 ， 等 候 您 的 解 答 ， 再 见 ！ 
<END>    
30,如何实现既有对话框窗体而又能使用其它窗体
问 题 : 当 用 vbModal显 示 对 话 框 窗 体 时 其 它 的 窗 体 就 不 能 使 用 了 ， 如 何 才 能 实 现 既 有 对 话 框 窗 体 而 又 能 使 用 其 它 窗 体 ？ 
<END>    
31,怎样使窗口保持在屏幕的中央
问 题 : 怎 样 使 窗 口 保 持 在 屏 幕 的 中 央 ？ 
<END>    
32,如何调用同一项目组的其他工程
How to call another project(form.show) in the same project group? 
<END>    
33,如何判断某一窗体是否被装载
请 问 高 手 ： 如 何 判 断 某 一 窗 体 是 否 被 装 载 ！ 
<END>    
34,如何在窗体的客户区显示另外的窗体
问 题 : 如 何 在 一 个 窗 体 （ FORM1） 的 客 户 区 显 示 另 外 的 窗 体 ？ 好 似 EXECL中 可 以 打 开 几 个 表 格 。 
<END>    
35,如何在form_load运行完成前显示窗体
如 何 强 行 显 示 一 个 窗 体 ！ 
    用 form.show方 式 显 示 ， 必 须 在 form_load运 行 完 成 后 才 显 示 ， 但 我 的 程 序 必 须 写 在 form_load中 ， 并 且 我 在 form_load中 加 载 了 一 个 进 度 条 ， 因 此 程 序 运 行 时 无 法 看 风 进 度 条 运 行 过 程 ， 如 何 解 决 ！ 
<END>    
36,有何方法可以知道焦点在窗体的哪个控件上
在 VB中 有 何 方 法 可 以 知 道 焦 点 在 窗 体 的 哪 个 控 件 上 ? 
<END>
37,如何才能将菜单隐藏进来
我 在 编 写 一 个 程 序 ， 其 中 需 要 有 一 个 选 项 ， 就 是 将 菜 单 隐 藏 掉 ， 我 曾 使 用 （ 本 人 对 Api一 些 调 用 并 不 熟 悉 ） Getmenu和 Showwindow等 一 些 函 数 对 菜 单 进 行 操 作 ， 但 无 论 如 何 也 没 成 功 将 菜 单 隐 藏 。 请 教 各 位 ， 如 何 才 能 将 菜 单 隐 藏 进 来 ？
<END>
38,如何在鼠标右键的CLICK事件中显示已定义的菜单
问 题 : 如 何 对 说 鼠 标 右 键 的 CLICK事 件 ， 显 示 已 定 义 的 菜 单 ， 即 单 击 右 键 弹 出 菜 单 ？ 
<END>        
39,有什么办法在窗体显示之前更新DBGrid 的数据吗
问 题 : 我 在 程 序 中 使 用 了 DATA和 DBGrid控 件 ， 现 在 我 改 变 DATA控 件 的 DatabaseName、 RecordSet属 性 以 达 到 改 变 DBGrid中 的 内 容 ， 但 在 Form_load 事 件 中 不 能 实 现 ， 有 什 么 办 法 在 窗 体 显 示 之 前 更 新 DBGrid 的 数 据 吗 ？ 
<END>     
40,为什么看不到在Form_Load事件中画的图
问 题 : 如 何 画 出 一 个 渐 渐 变 大 的 圆 ?我 的 做 法 : 
    1)在 Form的 load方 法 下 : 
     Dim i As Integer 
     For i = 1 To 400 
     Circle (400, 400), i, RGB(129, 0, 0) 
     Next i 
    2)在 form 的 click方 法 下 ,画 静 止 的 圆 可 以 ,但 加 入 变 量 i后 ,圆 就 不 见 了 ,程 序 与 1)中 基 本 同 。 
<END>
41,如何用编程的方式显示出窗口的系统菜单
问 题 : 如 何 用 编 程 的 方 式 显 示 出 窗 口 的 系 统 菜 单 ？ 
<END>     
42,如何实现窗体最大化、最小化、恢复时触发事件
请 问 在 VB6中 如 何 实 现 窗 体 最 大 化 、 最 小 化 、 恢 复 时 触 发 事 件 ？ 
<END>
43,如何编制带“应用”的选项对话框
问 题 : 如 何 编 制 带 “ 应 用 ” 的 选 项 对 话 框 ？ 我 不 知 如 何 在 form2中 编 代 码 完 成 改 变 form1中 变 量 值 ， 设 定 form1中 控 件 属 性 。 
<END>
44,如何在vb6中实现一个不规则外形的的窗口
请 问 如 何 在 vb6中 实 现 一 个 扇 形 的 窗 口 ?我 只 找 到 设 置 多 边 形 、 圆 形 等 区 域 的 函 数 ， 没 有 找 到 设 置 扇 形 区 域 的 函 数 ， 另 外 如 果 想 实 现 一 个 不 规 则 的 外 形 的 窗 体 （ 类 似 于 手 画 的 奇 异 形 状 ） ， 如 何 设 置 区 域 ？ 
<END>     
45,如何得到其他应用程序运行中窗口的状态
问 题 : 请 问 ： 我 如 何 可 以 得 到 其 他 应 用 程 序 运 行 中 窗 口 的 状 态 （ 最 大 ， 最 小 ， NOMAL） ？ 
<END>
46,在ＶＢ中怎样才在窗体之间传递数据
请 问 在 Ｖ Ｂ 中 怎 样 才 在 窗 体 之 间 传 递 数 据 ， 比 如 说 我 想 把 在 这 个 窗 口 里 得 到 的 数 据 结 果 传 到 下 一 个 窗 体 里 进 行 处 理 ？ 
<END>
47,运行 MSGBOX 时弹出的窗口跑到当前窗口的后面
我 已 经 将 某 个 窗 体 设 置 为 总 是 在 最 前 面 ， 当 运 行 MSGBOX 时 弹 出 的 窗 口 跑 到 当 前 窗 口 的 后 面 了 ， 如 何 解 决 这 一 问 题 ， 谢 谢 ！