index1.txt

VB技巧问答10000例 VB技巧问答10000例

1,怎么从 SQL SERVER 6.5 中的 IMAGE 字段中取得一幅图象并进行显示
我怎么才能从 SQL SERVER 6.5 中的 IMAGE 字段中取得一幅图象，并且在 VB的 Picture Box 中进行显示? 
<END>
2,如何将摄像头拍摄下的镜头同步在电脑里放出来
我在街上看到一种游戏，他们有一个摄像头拍摄下的镜头同步在电脑里放出来，跟中央电视台的现场直播一样，不过他们是在电脑里实现的，我想他们可能是通过硬件比如一块插卡把信号输进去，我也有这样的想法用VB做一个类似的程序，希望你能帮帮忙！ 
<END>
3,在用到PICTURE属性时出现VB窗口全部关闭的现象
问题：我在用的是VB企业版，在用到IMAGE控件和PICTURE控件的PICTURE属性时出现VB窗口全部关闭的现象。并且出现一个窗口，但因VB关闭所以看不清窗口。不知是何故，还请专家帮帮忙。并详细说明解决办法。
<END>
4,如何在程序中控制CHARTFX图形的最大值、最小值
如何在程序中控制CHARTFX图形的最大值、最小值？ 
<END>    
5,如何做象罗盘形的统计图
题: 我想利用编程画几个半径不同，圆心相同的同心圆，在内圆与外圆之间画出几条直线，这几条直线正好平分这些圆（画奇数条直线），然后在圆与直线交叉的点标记数字，每一条直线的数字是不同的。(实际上我想做一个象罗盘形的统计图）我不知道该怎么去做，请各位大侠给予帮助！
<END>
6,如何保存图片框中的几何图形到文件
问题: 请问如何保存图片框中的几何图形（如直线、多边形、圆等）到文件中；可以将图形的属性（如直线的端点坐标、多边形的角点坐标、圆的圆心坐标及半径等吗？ 
<END>    
7,有没有OCX控件可以处理大量三维离散点(x y z)把它转换为三角网表面模型
有没有OCX控件可以处理大量三维离散点（x,y,z），把它转换为三角网表面模型? 
<END>
8,怎样把多个线条显示在mschart控件内
在使用mschart控件的二维line方法时，怎样把多个线条（与一个数据库的多列数据表相连）显示在mschart控件内？ 
<END>
9,在使用mschart控件时，如何使鼠标移动到数据标记上时显示相应的内容
在使用mschart控件时，如何使鼠标移动到数据标记上时显示相应的内容（如数据大小等）? 
<END>
10,如何用画出圆点
如 何 用 pset画 出 圆 点 ？ 不 是 圆 圈 ， 如 ： circle 
<END>
11,图片框的逻辑调色板函数总返回0
问 题 ： 我 想 用 API函 数 GetPaltteEnties操 作 图 片 框 的 逻 辑 调 色 板 ， 但 函 数 总 返 回 0,即 没 有 将 调 色 板 的 信 息 存 入 数 组 ,不 知 是 什 么 原 因 ?即 使 我 给 图 片 框 的 Picture属 性 赋 了 值 ,但 其 调 色 板 句 柄 (Picture1.picture.hPal)却 仍 为 0,敬 请 给 予 答 复 。 
    最 好 能 告 诉 我 如 何 正 确 操 作 调 色 板 的 步 骤 ! 
<END>     
12,如何在坐标系统变化的情况下始终保持文字说明在固定位置不变
问 题 : 　 我 想 在 picturebox控 件 中 的 左 半 部 分 用 line方 法 画 图 ， 在 右 半 部 分 对 图 形 进 行 说 明 （ 如 比 例 尺 、 面 积 等 ） 。 每 画 一 个 图 时 ， 各 组 （ Ｘ 、 Ｙ ） 的 值 均 不 同 ， 为 使 图 形 整 体 在 左 半 部 分 居 中 ， 都 要 用 scale方 法 重 新 定 义 坐 标 系 统 ， 这 样 ， 文 字 说 明 部 分 的 位 置 也 随 之 变 化 。 请 问 该 如 何 在 坐 标 系 统 变 化 的 情 况 下 始 终 保 持 文 字 说 明 在 固 定 位 置 不 变 ？ 不 胜 感 谢 ！ 
<END>
13,vb中画图时的锯齿怎么解决
请 问 ： vb中 画 图 时 的 锯 齿 怎 么 解 决 ？ 
<END>
14,怎么判断一点是否在一个不规则的封闭的区域里
问 题 ： 1.怎 样 记 录 一 个 不 规 则 的 图 形 的 路 径 ？ 一 个 封 闭 的 不 规 则 的 图 形 的 边 界 怎 么 记 录 ， 主 要 想 实 现 对 该 区 域 重 画 和 填 充 颜 色 。 
    2.怎 么 判 断 一 点 是 否 在 一 个 不 规 则 的 封 闭 的 区 域 里 。 希 望 高 手 能 帮 帮 忙 。 
<END>    
15,如何将复制到剪贴板中的图片放置到VB图片控件
问 题 : 如 何 将 复 制 到 剪 贴 板 中 的 图 片 放 置 到 VB图 片 控 件 ?(剪 贴 板 中 图 片 是 用 copy命 令 获 得 的 ) 
<END>    
16,储存图形在数据库中文件太大怎么办
用vb中的picture控件的line在picture控件中绘制完图形后，把图形放在和该控件相连接的ACCESS数据库中的一个字段中（字段定义类型为OLE），这样做数据库所占用磁盘空间很大，不知怎样做，才能使其占用很小的存储空间。 
<END>
17,VB中的颜色值和HTML中的颜色如何实现互相转换
问 题 : VB中 的 颜 色 值 和 HTML中 的 颜 色 值 ， 如 何 实 现 互 相 转 换 ？ 比 如 ： Vb中 一 红 色 值 &H000000FF&， 在 html中 应 该 是 多 少 ？ 
<END>    
18,如何绘制快速连续滚动的曲线
问 题 ： 问 题 题 目 ： 如 何 绘 制 快 速 （ 毫 秒 级 ） 连 续 滚 动 的 曲 线 ？ 本 人 目 前 有 一 个 问 题 ， 本 人 在 PICTUREBOX控 件 中 绘 制 曲 线 ， 需 要 一 个 曲 线 连 续 滚 动 的 效 果 ， 即 曲 线 从 屏 幕 绘 制 最 左 侧 到 最 右 侧 时 ， 如 果 接 着 绘 制 的 话 ， 则 旧 曲 线 不 断 向 左 平 移 ， 同 时 新 曲 线 逐 点 在 屏 幕 最 右 侧 不 断 绘 制 ， 形 成 了 连 续 滚 动 的 效 果 （ 即 一 个 监 测 曲 线 ） ， 本 人 从 网 上 下 载 了 一 个 高 速 计 时 源 码 ， 每 画 一 点 的 时 间 是 10毫 秒 ， 以 前 本 人 也 编 出 一 个 程 序 ， 原 理 是 
    一 、 先 在 PICTUREBOX控 件 上 画 出 坐 标 
    二 、 从 屏 幕 绘 制 最 左 侧 到 最 右 侧 时 画 440点 （ 用 LINE方 法 ） ， 同 时 每 一 点 的 值 存 放 到 数 组 中 ， 绘 制 每 点 间 隔 9秒 。 
    三 、 当 第 一 次 曲 线 画 到 最 右 侧 时 ， 先 调 用 绘 制 坐 标 的 程 序 ， 即 在 PICTUREBOX控 件 上 重 绘 坐 标 ， 同 时 将 数 组 中 的 第 一 个 数 不 要 ， 将 后 439个 点 存 入 数 组 中 （ 使 用 FOR— NEXT循 环 ） ， 然 后 在 这 个 坐 标 上 画 这 439个 点 ， 等 九 秒 时 间 到 后 ， 第 440个 数 则 写 入 数 组 ， 同 时 绘 制 曲 线 ， 下 一 个 点 到 来 时 ， 再 重 复 第 三 步 。 由 于 人 视 觉 上 的 原 因 ， 就 会 形 成 以 上 连 续 滚 动 的 效 果 。 
    本 来 这 种 方 法 比 较 烦 琐 ， 效 率 也 低 ， 但 由 于 系 统 要 求 不 严 格 ， 到 也 使 用 良 好 ， 但 现 在 采 用 这 种 方 法 则 不 可 ， 因 为 间 隔 时 间 仅 有 10毫 秒 ， 在 10毫 秒 一 到 时 ， 根 本 连 步 奏 三 中 FOR— NEXT循 环 写 数 都 完 成 不 了 ， 结 果 就 只 有 死 机 ， 我 因 此 考 虑 得 使 用 使 PICTUREBOX中 部 分 图 像 平 移 同 时 最 后 一 点 在 补 充 过 来 的 方 法 看 是 否 能 搞 定 。 但 本 人 能 力 有 限 ， 至 今 没 有 找 到 解 决 方 法 ， 因 此 特 此 慕 名 向 贵 网 站 个 路 高 手 讨 教 ， 尽 管 没 有 理 由 向 诸 位 提 出 时 间 上 尽 快 解 决 的 要 求 ， 但 还 是 真 诚 希 望 诸 位 能 尽 快 想 个 主 意 ， 出 个 办 法 ， 本 人 在 此 不 胜 感 激 。 不 管 问 题 解 决 与 否 ， 再 次 向 诸 位 表 示 衷 心 感 谢 。 只 要 能 实 现 上 述 功 能 ,无 论 使 用 什 么 控 件 ,什 么 方 法 都 可 。 
<END>    
19,是否可以得到某一种颜色包围的封闭区域
问 题 : 用 EXTFLOODFILL 可 以 填 充 某 一 种 颜 色 包 围 的 封 闭 区 域 ， 既 然 有 这 么 一 个 区 域 ， 能 否 得 到 这 个 区 域 ， 以 便 于 使 用 如 PtInRegion这 一 类 的 函 数 。 
    在 PHOTOSHOP里 ， 这 样 做 是 随 手 可 见 的 。 用 黑 色 填 充 遮 膜 （ MASK） 后 ， 就 得 到 了 黑 色 所 覆 盖 的 区 域 。 
    在 ACTIVESKIN的 控 件 里 ， 也 常 常 可 以 见 到 这 种 方 法 的 使 用 。 
<END>
20,为什么拷贝到屏幕上的图形，如果被挡住或者刷新屏幕，就会消失
问 题 : 我 拷 贝 图 形 到 屏 幕 上 ， 但 如 果 被 窗 口 挡 住 或 者 刷 新 屏 幕 ， 就 会 使 该 图 形 受 损 或 者 消 失 。 如 何 能 保 持 住 这 个 图 像 ？ 另 ： 为 什 么 RestoreDC不 能 恢 复 保 存 的 屏 幕 ？
<END>
21,用LoadPicture语句将一图片文件装入PICTURE控件，为何没有包括在EXE中
在 vb6.0中 ， 用 LOAD语 句 将 C:\下 一 图 片 文 件 装 入 PICTURE控 件 中 ， 用 安 装 向 导 作 成 安 装 程 序 后 ， 为 何 在 其 它 机 子 上 安 装 时 c:\下 还 必 须 要 有 那 个 图 片 文 件 。 请 指 教 ！ 
<END>
22,程序中包含很多图片，编译出来的应用程序大得不得了
问 题 : 我 在 写 一 个 模 拟 训 练 的 程 序 ， 其 中 包 含 很 多 图 片 ， 我 想 达 到 让 用 户 在 我 的 安 装 文 件 中 不 能 直 接 查 看 到 其 中 的 图 片 。 我 试 着 将 图 片 粘 贴 到 程 序 中 （ 粘 贴 到 各 控 件 的 PICTURE属 性 中 ） ， 但 编 译 出 来 的 应 用 程 序 大 得 不 得 了 。 并 且 容 易 死 机 。 小 弟 水 平 有 限 ， 向 各 位 专 家 请 教 还 有 什 么 更 好 的 办 法 。
<END>
23,如何不失真地显示长、宽超过32768缇的图片
问 题 ： 如 何 不 失 真 地 显 示 长 、 宽 超 过 32768缇 的 图 片 ？ ！ 我 试 过 用 两 个 Picture Box和 滚 动 条 来 做 ， 但 是 好 象 无 法 成 功 ， 不 是 说 溢 出 就 是 图 片 显 示 不 正 常 ， 超 过 的 部 分 无 法 显 示 而 是 又 重 复 起 始 的 部 分 ， 但 是 看 IE浏 览 器 等 软 件 却 能 正 常 的 显 示 这 些 图 片 ， 请 问 有 什 么 办 法 ？ ！ 如 果 要 用 到 其 它 的 控 件 也 行 ， 最 好 给 出 一 个 简 单 的 例 子 ， 谢 谢 … … 
<END>
24,怎样捕捉窗口中的内容，不包括标题栏和边框
我 可 以 在 VB中 用 WINAPI函 数 捕 捉 屏 幕 上 的 窗 口 ,但 窗 口 有 标 题 栏 和 边 框 。 我 怎 样 才 能 捕 捉 窗 口 中 的 内 容 ， 不 包 括 标 题 栏 和 边 框 。 有 没 有 现 成 的 API函 数 可 调 用 ？
<END>
25,选取图片作为窗体的背景，如何避免闪烁现象
问 题 ： 在 vb6中 ,将 一 个 image控 件 的 大 小 设 置 成 与 form的 工 作 区 域 一 样 大 ,并 在 image的 picture属 性 中 选 取 一 副 图 片 作 为 窗 体 的 背 景 .当 form的 大 小 变 化 时 ,在 form_resize事 件 中 添 加 代 码 使 image的 大 小 同 步 变 化 。 但 是 ,会 发 生 较 严 重 的 闪 烁 现 象 .请 问 怎 样 可 以 消 除 image图 片 的 闪 烁 ? 
<END>
26,如何把画在picturebox中的图形放到image中
问 题 : 请 问 专 家 们 ,如 何 把 画 在 picturebox中 的 图 形 ,放 到 image中 并 把 它 缩 小 。 请 专 案 们 帮 忙 ,谢 谢 大 家 。 
<END>    
27,用 VB编程绘图时，字符能否旋转一定角度打印
请问在用 VB编程绘图时，字符能否旋转一定角度打印？ 
<END>
28,如何无失真地缩放和保存图象
问 题 ： 我 用 object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode语 句 将 pic1中 所 画 的 图 形 缩 小 复 制 到 pic2中 ， pic1和 pic2的 长 宽 比 都 是 4:3,然 后 将 pic2中 的 所 复 制 的 图 形 用 SavePicture Picture2.Picture来 保 存 ， 可 保 存 的 图 片 出 现 了 严 重 的 失 真 ， 如 何 解 决 ？ 
<END>    
29,如何将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>
30,有无办法用编程的方式创建一个资源文件
请 问 有 无 办 法 用 编 程 的 方 式 创 建 一 个 资 源 文 件 ， 并 将 自 定 义 的 资 源 保 存 进 去 ， 以 备 调 用 。 例 如 由 用 户 指 定 一 些 图 片 ， 编 程 创 建 对 应 的 资 源 文 件 。 
<END>     
31,如何擦除一条线段
我 使 用 的 是 WINDOWS95+vb6.0企 业 版 
    在 我 的 程 序 中 ， 我 要 多 次 使 用 LINE（ X1， Y1） -（ X2， Y2） 语 句 在 同 一 个 窗 口 上 画 直 线 。 X轴 代 表 时 间 ， Y轴 代 表 火 车 站 站 名 ， 每 次 我 输 入 起 点 站 站 名 ， 开 车 时 间 及 终 点 站 站 名 ， 到 车 时 间 ， 一 条 直 线 便 画 出 了 。 我 的 问 题 是 若 其 中 有 一 直 线 的 数 据 有 误 ， 需 要 删 掉 ， 而 不 能 影 响 其 他 直 线 ， 该 如 何 编 程 ? 
<END>
32,什么软件能把正在播放的VCD或动画的画面抓下来
问 题 ： 请 问 有 没 有 什 么 软 件 能 把 正 在 播 放 的 VCD或 动 画 的 画 面 原 封 不 动 的 抓 下 来 ， 并 存 成 AVI或 MPEG的 格 式 ? 
<END>
33,怎样将汉字数据转换成点阵信息
问 题 ： 请 问 怎 样 将 汉 字 数 据 转 换 成 点 阵 信 息 ？ 我 曾 将 汉 字 输 出 到 PictureBox控 件 上 ， 再 用 SavePicture 函 数 将 其 保 存 为 BMP文 件 得 到 点 阵 数 据 ， 但 形 成 的 文 件 根 据 显 示 器 的 分 辩 率 不 同 而 形 成 24色 位 图 、 单 色 位 图 等 不 同 类 型 的 位 图 格 式 ， 如 何 能 将 其 形 成 确 定 的 单 色 或 其 它 类 型 的 位 图 格 式 ？ 
<END>
34,如何将Stretch=TRUE的ImageBox控件图像存盘
在 编 程 中 ， 本 人 遇 到 了 一 些 问 题 ， 虽 经 努 力 ， 但 效 果 甚 微 ， 现 将 所 遇 到 的 问 题 列 出 ： 
    1.Imagebox 控 件 的 Stretch=TRUE时 ， 在 Image框 中 ， 虽 然 可 以 显 示 缩 放 的 图 象 ， 但 是 用 Savepicture 函 数 存 在 硬 盘 上 的 图 象 仍 然 是 原 始 尺 寸 的 图 象 ， 不 是 所 期 望 的 Image框 中 显 示 的 缩 放 后 的 图 象 。 
    2.利 用 API函 数 StrechBlt()虽 然 可 以 实 现 ， 但 存 放 在 硬 盘 上 缩 放 后 的 图 象 文 件 （ .BMP） ， 图 象 失 真 很 严 重 ， 图 象 质 量 非 常 差 ， 图 象 文 件 无 法 使 用 。 
<END>  
35,如何才能判断屏幕上任意一点的像素颜色
问 题 : 如 何 才 能 判 断 当 前 屏 幕 上 任 意 一 点 （ 不 受 句 柄 的 影 响 ） 的 像 素 颜 色 ？ 
<END>
36,为什么看不到在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>
37,AlphaBlend函数为什么在Win98下无法调用
问 题 ： 我 在 MSDN库 中 发 现 了 AlphaBlend函 数 ， 可 以 以 半 透 明 方 式 绘 制 图 形 ， 我 怎 么 调 用 都 不 管 用 ， 返 回 值 总 是 0-不 成 功 。 能 告 诉 我 这 个 函 数 如 何 使 用 吗 ？ 
<END>