index1.txt

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

<END>
86,Form和表太多好不好
， 小 弟 是 一 名 学 生 ， 因 才 蔬 学 浅 在 编 写 一 个 管 理 系 统 时 (用 vb6） ， 常 有 惊 人 之 举 ， 又 不 知 是 否 错 误 ， 我 现 在 的 程 序 有 60多 个 FORM， 而 库 中 ， 有 600多 个 表 ， 这 个 小 程 序 竟 有 15MB以 上 ， 而 且 会 内 存 溢 出 。 哇 ！ 谁 可 以 救 救 我 
    1.最 重 要 的 是 我 并 不 十 分 清 楚 ， 这 么 多 的 FORM是 否 有 害 ， 我 们 已 尽 量 把 FORM压 缩 的 最 小 ， 但 还 是 这 么 多 ， 因 为 每 个 界 面 都 要 有 一 个 FORM（ 我 们 已 压 缩 到 几 个 界 面 一 个 FORM， 但 要 做 的 实 在 多 ， 一 个 查 询 要 6， 7个 FORM， 请 问 是 否 有 方 法 ， 可 解 决 这 问 题 。 
    2.还 有 ， 表 太 多 好 不 好 。 
    3.我 们 的 代 码 并 不 十 分 多 ， 为 可 有 15MB这 么 大 ， 用 VB生 成 的 安 装 程 序 比 原 来 的 大 的 多 ， 请 问 是 否 有 其 它 方 法 解 决 。 
    4.请 问 为 什 么 会 内 存 溢 出 （ 和 FORM多 有 关 吗 ？ ） 
<END>
87,如何实现程序的窗口可最小化，但不能最大化
我 想 请 教 一 个 问 题 。 请 问 VB中 如 何 实 现 程 序 的 窗 口 可 最 小 化 (有 最 小 化 按 钮 )， 但 不 能 最 大 化 (最 大 化 按 钮 Disabled)， 并 且 不 能 改 变 窗 口 尺 寸 。 如 何 能 让 VB的 窗 口 象 VFP那 样 可 以 规 定 最 小 或 最 大 的 尺 寸 (不 是 用 Resize事 件 实 现 )。 
<END>
88,在不同的计算机上显示的最大窗体尺寸不同
请 问 为 什 么 VB6.0在 不 同 的 计 算 机 上 显 示 的 最 大 窗 体 尺 寸 不 同 ?如 12000X9000(PIII450 INTEL740显 示 卡 ,800X600分 辨 率 )， 9600X72000(PII233 9750显 示 卡 ,800X600分 辨 率 )。 
<END>
89,如何用GetWindow函数来列举桌面上的窗口
如 何 用 GetWindow函 数 来 列 举 桌 面 上 的 窗 口 ？ 
<END>
90,如何产生类似VB启动时出现的“新文档”的图标
我 想 做 出 一 个 窗 体 。 它 的 功 能 和 vb启 动 后 出 现 的 “ new project"窗 体 功 能 一 样 。 用 户 可 以 选 择 “ 打 开 ” 、 “ 新 建 ” 、 “ 最 新 ” 三 个 选 项 卡 以 打 开 文 档 。 我 的 问 题 是 ， 如 何 产 生 诸 如 “ 新 文 档 ” 的 图 标 ， 并 且 双 击 它 即 可 开 启 相 关 编 辑 工 具 建 立 新 文 档 。 谢 谢 您 对 我 以 前 提 的 问 题 的 热 情 答 复 。 
<END>
91,能否不用其他控件实现3D效果
请 问 能 否 不 用 其 他 控 件 (3dbuuton等 ） 在 诸 如 Commandbutton、 form等 的 caption处 再 打 一 行 不 同 颜 色 的 字 以 实 现 3d效 果 。 
<END>
92,运行时的窗体大小与设计时不同
在 设 计 状 态 下 窗 体 的 大 小 正 合 适 ,但 在 做 完 安 装 程 序 之 后 发 现 运 行 时 窗 体 比 原 来 小 了 ,(有 一 些 控 件 被 遮 住 了 ),谁 能 告 诉 我 这 是 怎 么 会 事 呀 ?活 儿 就 快 完 了 ,真 着 急 !快 来 帮 帮 我 。 能 告 诉 我 哪 几 个 控 件 属 性 会 引 起 这 个 现 象 就 行 !先 谢 过 了 ! 
<END>
93,请问有无办法改变Msgbox显示的字体
请 问 有 无 办 法 改 变 Msgbox显 示 的 字 体 ？ 
<END>     
94,在vb6中如何给程序改变图标
请 问 ， 在 vb6中 如 何 给 程 序 改 变 图 标 ?（ 不 使 用 原 图 标 ） 
<END>
95,如何控制在MDIFORM窗体中每次只允许显示一个子窗体
如 何 控 制 在 MDIFORM窗 体 中 每 次 只 允 许 显 示 一 个 子 窗 体 ？ ？ （ 不 是 用 VBMODAL实 现 ） 
<END>
96,VB中如何平铺显示图片
VB中 Form的 Picture属 性 不 能 将 图 象 自 动 平 铺 到 整 个 表 单 中 ,只 是 以 原 大 小 显 示 (而 VFP中 好 象 可 以 ） ， 请 问 如 何 实 现 ? 
<END>
97,如何建立多个MDI子窗体
我 在 用 VB编 写 类 似 记 事 本 的 MDI窗 体 时 ， 用 MDI显 示 菜 单 与 工 具 栏 ， 用 FORM1的 子 窗 体 ， 在 通 用 事 件 中 定 义 DIM NEWFORM AS NEW FORM1， 然 后 在 MDI文 件 菜 单 新 建 项 代 码 为 ： NEWFORM.SHOW,但 总 是 只 显 示 一 个 窗 体 ， 并 不 能 显 示 多 个 子 窗 体 ， 这 是 WHY？ 请 您 指 教 。 
<END>
98,怎么样才能在popupmenu中实现这是什么的功能呢
我 用 VB怎 么 样 才 能 在 popupmenu中 实 现 这 是 什 么 的 功 能 呢 ？ 我 做 了 一 个 VB的 界 面 ， 我 
    在 窗 体 中 加 入 了 一 个 POPUPMENU菜 单 ， 只 有 一 项 （ “ 这 是 什 么 ” ） ， 我 想 在 单 击 了 这 个 菜 单 以 后 ， 跳 出 相 应 的 帮 助 提 示 ！ 这 个 代 码 是 怎 么 写 的 ? 
<END>
99,怎么样去实现由用户来生成查询条件的过程
我 想 问 的 是 ， 就 是 怎 么 样 去 实 现 由 用 户 来 生 成 查 询 条 件 的 过 程 。 我 知 道 可 以 用 一 个 combox 存 放 字 段 名 ， 另 一 个 combox存 放 操 作 符 ， 一 个 textbox用 于 用 户 输 入 ， 再 一 个 combox存 放 and 和 or。 然 后 自 己 编 写 代 码 生 成 查 询 语 句 ， 但 是 这 样 做 好 象 有 点 复 杂 ， 因 为 根 据 不 同 的 字 段 ， 还 要 判 断 不 同 的 数 据 类 型 ， 所 以 不 知 道 有 否 简 洁 的 方 法 或 控 件 ， 指 定 数 据 库 名 ， 自 动 生 成 可 以 产 生 SQL语 句 的 窗 体 ？ 
<END>
100,当窗体隐藏时如何知到某个键盘按键被按下
当 窗 体 隐 藏 时 如 何 知 到 某 个 键 盘 按 键 被 按 下 ? 
<END>
101,想把设计的菜单的某一项单独放在菜单的最右边
在 VB6 编 程 中 想 把 设 计 的 菜 单 的 某 一 项 （ 如 HELP） 单 独 放 在 菜 单 的 最 右 边 ， 可 以 吗 ？ 
<END>     
102,在msgblst中如何处理指向结构变量的地址
在 vb中 限 制 一 个 窗 体 有 最 小 尺 寸 ， 您 的 回 答 (QA000410 “在VB中可以限制窗体的最小值”)是 在 resize事 件 中 限 制 ， 效 果 很 难 看 。 现 在 我 下 载 了 msgblst控 件 ， 想 在 wm_windowposchanging消 息 发 生 时 来 控 制 ， 可 这 个 消 息 的 lparam参 数 是 指 向 windowpos结 构 的 地 址 ， 我 把 一 个 定 义 为 这 个 结 构 的 变 量 传 递 给 lparam， vb说 类 型 错 误 ， 我 把 变 量 用 括 号 括 起 来 传 递 ， 还 是 出 错 。 我 想 知 道 ， 如 何 给 long型 的 lparam传 递 一 个 结 构 ？ 或 者 说 ， 我 如 何 把 一 个 结 构 的 地 址 放 到 一 个 long型 的 变 量 里 ？ 
<END>
103,如何在透明窗体上使用Label等控件
我 用 调 用 使 窗 体 透 明 的 API函 数 ， 窗 体 是 透 明 了 ， 原 本 在 窗 体 上 透 明 的 控 件 不 能 在 桌 面 上 透 明 （ 如 LABEL， 设 了 透 明 属 性 ） 不 知 如 何 是 好 ， 请 指 教 。 
<END>
104,如何让焦点不能被切换到程序中的其他窗体
如 何 像 PowerBuilder和 MSGBOX或 INPUTBOX那 样 ， 建 立 一 个 子 窗 体 ， 当 它 出 现 时 ， 焦 点 不 能 被 切 换 到 程 序 中 的 其 他 窗 体 ？ 还 有 如 何 捕 捉 窗 体 的 Show/Hide事 件 ? 
<END>
105,用VB如何实现象IE4收藏夹式的界面
请 问 ： 用 VB如 何 实 现 象 IE4收 藏 夹 式 的 界 面 ?即 单 击 IE的 “ 收 藏 ” ， 则 收 藏 夹 出 现 ， 再 次 单 击 则 消 失 。 请 给 出 例 子 ， 谢 谢 ！ 
<END>
106,如何把计算器加入到菜单中
如 何 把 "计 算 器 "加 入 到 menu中 去 ? 
<END>
107,在按下右上角的关闭键后怎样避免当前窗口被关闭
在按下右上角的关闭键后怎样避免当前窗口被关闭? 
<END>
108,如何确定窗口是能显示不能显示
用 FINDWINDOW(&0,&0)函 数 找 到 很 多 窗 口 名 ， 然 而 有 些 名 在 桌 面 上 却 没 有 (如 ： “ DDE Server Window” ） 如 何 确 定 这 些 窗 名 是 能 显 示 不 能 显 示 ？ 
<END>
109,在VB中如何动态产生菜单
在 VB中 如 何 动 态 产 生 菜 单 ? 
<END>
110,显示动态曲线并且实时，连续输出到打印机上
我的工作是计算机接受实时数据，显示动态曲线并且实时，连续输出到打印机上。工作平台是在WINNT4/WIN98下用VB/VC编程。由于WINDOWS不能实现实时连续打印，我用VB编写一个程序直接控制打印机。这程序可以接受位图并且把位图连续输出。但是我不知道如何实现屏幕的滑动，如何把滑动出显示平面的信息转换成位图输出给打印机，由于打印机只能接受连续数据，不能重画。不知道你有这方面的经验吗？
<END>
111,如何能在MDIForm的Statusbar上制作进度条
如何能在MDIForm的Statusbar上制作进度条， 在普通Form 的Statusbar 上很简单。 
<END>
112,如何运行时修改ShowInTaskbar属性
如 何 能 在 运 行 时 ， 让 程 序 的 图 标 不 出 现 在 Tskbar上 ， Form的 ShowInTaskbar属 性 在 设 计 时 可 用 ， 但 程 序 运 行 时 就 不 可 以 了 ， 有 没 有 其 它 方 法 。 
<END>
113,能否得到FORM对象在VB环境下或在运行态的图象
如 何 用 代 码 实 现 这 个 功 能 ： 通 过 FORM对 象 的 ASCII文 件 的 路 径 ， 得 到 FORM对 象 在 VB环 境 下 或 在 运 行 态 的 图 象 ， 并 且 把 该 图 象 存 储 为 BMP格 式 的 文 件 。 如 能 赐 教 ， 万 分 感 激 ！ 注 ： 根 据 ASCII文 件 画 出 FORM图 象 是 不 现 实 的 。 
    在 第 一 次 回 答 后 ， tianyu又 提 出 如 下 问 题 ： 已 知 窗 体 对 象 的 ASCII的 路 径 ， 我 想 用 VB将 该 文 件 打 开 ， 以 使 该 窗 体 的 图 象 显 示 在 屏 幕 上 ， 我 打 算 用 SHELL函 数 来 实 现 这 个 功 能 ， 但 是 ， 我 遇 到 了 这 么 一 个 问 题 ， 执 行 SHELL函 数 后 ， VB环 境 打 开 了 ， 然 而 ， 窗 体 图 象 却 没 能 出 现 在 屏 幕 上 ， 需 要 在 工 程 窗 口 中 双 击 该 对 象 才 ， 该 对 象 的 图 象 才 能 出 现 在 屏 幕 上 ， 换 句 话 说 ， 要 同 用 户 进 行 一 次 交 互 ， 而 我 希 望 用 代 码 自 动 实 现 该 功 能 ， 不 知 该 怎 么 办 ？
<END>
114,如何设置VB FORM 上CONTROL BOX 中的关闭按钮
如 何 设 置 VB FORM 上 CONTROL BOX 中 的 关 闭 按 纽 ， 在 运 行 中 设 置 其 可 用 或 不 可 用 ? 
<END>     
115,实现整个窗体的打印
VB 5.0下 开 发 的 应 用 程 序 ， 如 何 实 现 整 个 窗 体 的 打 印 （ 包 括 标 题 、 菜 单 、 边 框 ） ? 
<END>
116,调用API不能改变Form的中文字体
我 这 里 有 个 困 扰 了 我 很 久 的 问 题 ， 我 在 VB中 用 下 列 代 码 调 用 API改 变 Form的 字 体 。 发 现 所 设 定 的 字 体 的 其 它 特 性 如 高 度 、 宽 度 等 均 能 起 作 用 ， 只 有 字 体 设 不 上 ， 后 发 现 英 文 字 体 就 没 有 这 个 问 题 。 请 问 如 何 才 能 解 决 这 个 问 题 ？ 
    使 用 的 操 作 系 统 : pwin97 
    使 用 的 编 程 工 具 : vb6.0 
    注 ： 我 的 系 统 里 有 这 种 字 体 ， 且 我 在 win95/98/NT/Pvb6上 均 测 试 过 。 
    **************************************************************** 
    Private Type LOGFONT 
     lfHeight As Long 
     lfWidth As Long 
     lfEscapement As Long 
     lfOrientation As Long 
     lfWeight As Long 
     lfItalic As Byte 
     lfUnderline As Byte 
     lfStrikeOut As Byte 
     lfCharSet As Byte 
     lfOutPrecision As Byte 
     lfClipPrecision As Byte 
     lfQuality As Byte 
     lfPitchAndFamily As Byte 
     lfFaceName As String 
    End Type 
     
    Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long 
    Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 
    Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 
     
    Dim fnt As LOGFONT 
    '前 后 两 句 print语 句 输 出 的 字 体 看 上 去 差 不 多 
    Private Sub Command1_Click() 
     
     Print "中 华 人 民 共 和 国 123abc" 
     fnt.lfCharSet = DEFAULT_CHARSET 
     fnt.lfWidth = 10: fnt.lfHeight = 20 
     fnt.lfFaceName = "楷 体 _GB2312" 
     DeleteObject SelectObject(hdc, CreateFontIndirect(fnt)) 
     Print "中 华 人 民 共 和 国 123abc" '输 出 字 体 并 非 楷 体 
     Debug.Print Font.Name '结 果 仍 为 原 来 默 认 的 MS Sans Serif, :( :( 
     
    End Sub 
<END>
117,怎样在两个窗体间传递变量
怎 样 在 两 个 窗 体 间 传 递 变 量 ？ 我 用 PUBLIC申 明 了 一 个 变 量 ， 并 在 其 中 一 个 窗 体 内 赋 了 值 ， 但 当 这 个 变 量 传 递 到 另 一 个 窗 体 时 ， 值 却 为 空 ， 请 问 这 是 什 么 原 因 ？ 难 道 VB里 没 有 全 局 变 量 这 个 概 念 ？ 
<END>
118,如何检测其它程序的窗口的状态
用 vb6.0打 开 一 程 序 后 ， 如 何 编 写 检 测 这 个 程 序 的 窗 口 目 前 是 处 于 最 小 化 还 是 处 于 最 大 化 状 态 ？ 比 如 说 ， 我 打 开 了 书 写 器 ， 我 想 知 道 目 前 书 写 器 的 窗 口 状 态 。 
<END>     
119,如何使弹出式菜单的取消键改为右键
在 制 作 弹 出 式 菜 单 时 ， 一 般 的 取 消 方 式 是 在 菜 单 外 点 击 鼠 标 左 键 ， 如 何 使 取 消 键 改 为 右 键 ？ 
<END>
120,如何建立滚动的窗口
1.如 果 我 用 form.circle等 方 法 在 vb的 窗 体 中 作 图 ,如 何 滚 动 比 窗 口 大 的 图 形 . 
    2.上 述 图 形 ,如 何 打 印 ? 
<END>
121,如何实现像VB 5.0一样的编程环境
我 想 实 现 像 VB 5.0一 样 的 编 程 环 境 。 
<END>
122,VB窗体重绘
用 vb6.0 编 写 一 个 程 序 ， 需 要 在 程 序 的 主 窗 体 上 绘 图 ， 窗 体 的 AutoRedraw已 设 为 True， 在 以 Modal 方 式 打 开 另 一 窗 体 后 仍 正 常 ， 但 此 Modal窗 体 关 闭 时 ， 主 窗 体 上 原 先 已 绘 的 图 形 突 然 消 失 ， 所 以 ， 我 只 能 另 编 子 程 序 对 窗 体 进 行 重 画 ， 不 知 是 否 有 办 法 解 决 ？ 
<END>