index1.txt

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

38,如何播放GIF动画
用VB 5.0编程,如何播放GIF动画? 
<END>
39,Picture1.Picture.Height会与图片的实际高不一样
我 看 了 你 们 关 于 QA000937 “VB中如何平铺显示图片”的 解 答 ， 试 了 一 下 ， 挺 不 错 ， 但 有 点 问 题 ： 其 中 PaintPicture 方 法 的 图 片 的 高 宽 参 数 如 果 不 指 定 ， 即 以 图 片 的 原 始 高 宽 贴 图 ， 这 样 贴 图 的 速 度 非 常 快 ， 但 是 Picture1.Height 及 Picture1.Width 取 出 的 值 总 是 要 比 图 片 的 原 始 高 宽 要 大 一 些 ， 这 样 图 片 之 间 会 有 间 隙 ； 如 果 图 片 的 高 宽 参 数 指 定 ， 这 样 虽 然 图 片 之 间 不 会 有 间 隙 ， 但 贴 图 的 速 度 会 明 显 减 慢 。 
    我 的 问 题 是 ： 为 什 么 Picture1.Picture.Height（ 或 Form1.Picture.Height） 的 值 会 与 图 片 的 实 际 高 不 一 样 ？ Picture1.Picture.Height 与 Picture1.Height 的 值 也 不 一 样 ？ Picture（ 或 Form） 的 Picture 属 性 里 的 Height、 Width 属 性 及 hPal、 Render 等 属 性 、 方 法 是 什 么 意 思 ， 如 何 使 用 ？ 
<END>
40,如何根据需要改变控件中显示的图片
问 题 : 我 想 让 一 个 控 件 显 示 国 旗 图 片 ， 然 后 提 问 ， 答 对 了 则 显 示 另 一 个 国 旗 图 片 ， 请 问 ： 可 以 用 if... then编 写 吗 ？ 具 体 怎 样 写 呢 ？ 图 片 要 保 存 在 甚 麽 地 方 ？ 
<END>
41,图片框能做到背景是透明的吗
问题: 我需要使用一个图片框，要求是背景是透明的，能透过图片看到Form 的东西。原本想用Image，但有些地方要用到hWnd 属性，但Image没有hWnd，只能使用PicBox，但PicBox的背景无法透明。请问，PicBox 能做到随图片非透明的地方能正确显示，而图片透明的地方能看到底下的Form。 
<END>
42,VC颜色值、VB颜色值怎样转换
VC颜 色 值 、 VB颜 色 值 、 RGB、 HEX之 间 怎 样 关 系 （ 怎 样 转 换 ） ， 或 那 里 是 否 有 关 这 方 面 的 资 料 ？ 
<END>
43,使用FloodFill函数填充区域却没有效果
我 在 编 写 绘 图 程 序 时 出 现 了 问 题 。 当 使 用 FloodFill函 数 时 会 导 致 系 统 没 有 反 应 ， 为 验 证 是 否 是 这 个 函 数 造 成 的 ， 我 编 写 了 下 面 的 代 码 
    Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long 
     
    Private Sub Command1_Click() 
     Picture1.ScaleMode = 3 
     Picture1.Line (30, 30)-(100, 100), , B 
     FloodFill Picture1.hdc, 40, 40, vbRed 
    End Sub 
    运 行 ， 完 了 ， 机 器 死 掉 了 。 这 是 谁 的 错 ？ 我 的 编 程 环 境 Win98 VB6中 文 版 。 
<END>
44,PaintPicture产生的图象为什么不能存成文件
我 想 把 一 个 bmp文 件 改 变 尺 寸 后 存 成 另 一 个 文 件 ， 但 好 象 不 行 ， 为 什 么 ？ 
    Picture2.PaintPicture Picture1.Picture, 0, 0, 5000, 1000 
    SavePicture Picture2.Picture, "c:\abc.bmp" 
<END>
45,绘制等高线的例程或ocx控件
问题：哪里可以找到绘制等高线的例程或ocx控件? 
<END>
46,介绍几本关于VB处理图像的书籍
问题：请为我介绍几本关于vb处理图像的书籍？ 
<END>
47,如何修改位图中一种或几种颜色为指定颜色
问 题 ： 如 何 统 改 某 一 位 图 (16色 以 上 ,颜 色 不 规 则 分 布 不 同 区 域 )中 其 中 一 种 或 几 种 颜 色 为 指 定 颜 色 ?例 如 ,把 一 张 鲜 花 位 图 中 的 "红 色 "改 为 "黄 色 "。 
<END>
48,如何分割图片
问 题 ： 如 何 从 一 个 包 含 数 字 图 像 0、 1、 2、 3...9的 图 片 中 得 到 相 应 的 数 字 图 片 ？ 如 果 把 图 像 平 均 分 成 10份 ， 这 样 好 不 好 ？ 
<END>
49,无法改变MSChart标识图表中数据点的标记的样式和大小
问 题 : I got the following code from vb6 help file: 
    Private Sub Command1_Click() 
     ' Display Markers for Series 1. 
     With Mschart1.Plot.SeriesCollection _ 
     .Item(1).DataPoints.Item(-1).Marker 
     .Visible = True 
     .Size = 20 
     .Style = VtMarkerStyleX 
     .FillColor.Automatic = False 
     .FillColor.Set 0, 0, 255 
     End With 
    End Sub 
    I put a mschart control and a button on a form, and copied the above code into button click event. 
    Then,changed 
     ".Style=VtMarkerStyleX" 
     to 
     ".Style=VtMarkerStyleFilledCircle" 
    The Mschart type was set to XY(scatter) 
     When I run the form, after I click the button, what happened was the serise markers always appeared like '+',not the filled circles it supposed to be. I really could not figure out what problem it was. 
    I'm wondering if you can get a way to change marker's shape style. 
<END>
50,Height、Width是以什么为单位的
问 题 : 图 片 框 的 height,width是 以 什 么 为 单 位 的 与 打 印 机 的 height,width的 单 位 是 否 相 同 ， 
    能 不 能 将 它 们 换 算 成 以 厘 米 为 单 位 ， 如 果 能 ， 请 问 如 何 换 算 ,谢 谢 !! 
<END>
51,用什么软件可创建、编辑图标
请问，用什么软件可创建、编辑图标? 
<END>
52,如何得到扑克牌的牌面图案
我想设计一个打扑克牌的游戏，苦于无法得到牌面的图片。我知道WIN95的WINDOWS/SYSTEM里有一个叫Cards.dll的库，里面包含牌面图片及一些牌背图片，Win95的扑克游戏就是引用这个库的。请问我该如何引用它？
<END>
53,如何进行简单的二维作图
简 单 的 二 维 作 图 （ 包 括 刻 度 、 最 好 有 线 性 等 功 能 ） 
<END>
54,如何改变PictureBox的Print方法输出的文字的颜色
小 弟 最 近 要 在 一 个 图 片 框 内 加 一 些 注 释 文 字 ,并 且 要 实 现 文 字 的 缩 放 ,颜 色 ,显 示 还 是 不 显 示 .我 用 一 个 用 户 定 义 类 型 数 组 存 储 这 些 字 符 ,显 示 位 置 及 颜 色 ,大 小 等 .我 用 PictureBox的 Print方 法 时 ,不 是 很 方 便 .尤 其 是 无 法 设 定 字 符 颜 色 。 请 问 : 
    1.如 何 更 方 便 地 实 现 上 述 功 能 ? 
    2.如 何 用 winapi实 现 之 ? 
<END>
55,如何打印PictureBox中的内容
我 在 PictureBox中 用 Line、 Label、 Text搭 建 了 一 复 杂 表 格 ， 现 在 想 直 接 把 它 转 成 位 图 打 印 ， 不 知 该 如 何 实 现 ？ 请 指 教 ！ 
<END>
56,在VB中如何读取DXF文件格式
请 问 在 VB中 如 何 读 取 DXF文 件 格 式 ? 
<END>
57,用VB编写的动画能不能输出为图片序列文件
我 用 VB编 写 的 动 画 能 不 能 输 出 为 *.AVI或 图 片 序 列 文 件 ？ 怎 样 实 现 ？ 
<END>
58,VB中有清除局部图像的方法吗
VB中 有 清 除 局 部 图 像 的 方 法 吗 ？ 用 Form上 画 几 个 图 形 ， 然 后 清 除 其 中 的 一 个 。 我 不 知 道 在 VB中 有 清 除 局 部 图 像 的 方 法 ！ Cls命 令 只 能 清 除 全 部 图 形 ！ 
<END>
59,如何比较两幅图片是否相似
如 何 比 较 两 幅 图 片 ？ 比 如 说 ： 有 三 幅 图 A、 B、 C（ *.BMP） 如 何 才 能 选 出 图 中 的 内 容 相 似 的 两 幅 图 。 当 然 ， 指 的 是 图 中 的 图 像 而 不 是 指 颜 色 。 例 如 A是 河 流 ， B是 高 山 ， C是 河 流 ， 那 么 怎 么 样 选 出 与 A相 似 的 C呢 ？ 
<END>
60,如何编制模拟气体在管道中流动的显示面板程序
我 是 一 名 工 程 技 术 人 员 ， 因 工 作 需 要 ， 用 PVB6.0（ 在 PII350， PWindows 98操 作 系 统 ） 编 制 了 一 个 模 拟 气 体 在 管 道 中 流 动 的 显 示 面 板 程 序 。 我 用 的 方 法 是 通 过 调 用 Bitblt函 数 不 断 地 将 画 有 小 箭 头 的 子 图 片 复 制 到 画 有 管 道 的 背 景 图 上 ， 并 不 断 改 变 子 图 片 在 背 景 图 上 的 坐 标 ， 以 产 生 一 种 流 动 感 。 
    现 在 遇 到 以 下 几 个 问 题 ， 若 能 得 到 解 答 ， 我 将 不 胜 感 激 。 
    A. 因 整 个 管 路 的 转 弯 段 很 多 ， 所 以 我 采 用 分 段 复 制 的 方 法 （ 即 每 一 直 管 段 是 一 段 ） ， 但 是 这 样 造 成 了 调 用 Bitblt函 数 的 次 数 过 多 ， 严 重 影 响 了 程 序 的 运 行 速 度 ， 请 问 应 如 何 解 决 ？ 
    B. 如 果 气 体 的 流 路 是 弯 曲 的 （ 比 如 在 管 道 的 转 弯 处 或 管 道 出 口 处 ） 应 如 何 处 理 才 能 使 该 处 的 气 体 流 动 与 前 后 保 持 连 贯 一 致 ？ 
    C. 有 没 有 更 好 的 方 法 来 模 拟 气 体 在 管 道 中 的 流 动 （ 注 ： 管 道 中 有 十 几 个 阀 门 ， 编 制 的 程 序 应 能 根 据 阀 门 的 开 关 来 决 定 气 体 是 否 在 管 道 中 流 动 ） ？
<END>
61,能否得到picture控件中显示的图像的文件名 
如 何 得 到 picture控 件 中 显 示 的 图 像 的 文 件 名 ？ 
<END>
62,如何使用资源文件中的动态光标(ANI文件)
请部如何使用资源文件中的动态光标(ANI文件)？ 
<END>
63,开发流程图的控体或组件
请 问 哪 里 可 找 到 要 以 在 VB中 开 发 流 程 图 （ 就 象 VISIO） 的 控 体 或 组 件 ？ 
<END>
64,MSChart控件怎样显示图例
VB中 的 MSChart控 件 的 ShowLegend属 性 怎 样 才 能 显 示 多 个 汉 字 的 图 例 ? 
<END>
65,在VB中用什么方法调用图片
问 在 VB中 用 什 么 方 法 调 用 图 片 ， 速 度 才 是 最 快 的 怎 样 调 ？ 因 为 小 生 最 近 在 编 写 一 样 品 管 理 软 件 望 请 速 回 ， 感 激 不 竟 ！ ！ ！ 
<END>
66,怎样根据给定起终点坐标和半径画弧
在 VB中 ， 怎 样 根 据 给 定 起 终 点 坐 标 A(x1,y1),B(x2,y2)和 半 径 r 画 弧 ？ 要 求 ： 
    当 半 径 r > 0 时 ， 由 起 点 A到 终 点 B逆 时 针 画 弧 ； 
    当 半 径 r < 0 时 ， 由 点 起 A到 终 点 B顺 时 针 画 弧 ； 
<END>
67,PaintPicture函数能否完全替代BitBlt()函数
请 问 PaintPicture函 数 能 否 完 全 替 代 BitBlt()函 数 ？ 绘 图 语 句 形 成 的 图 形 用 paintpicture不 能 操 作 ， 是 这 样 么 ？ 
<END>
68,如何打印MSChart
如 何 打 印 Mschart ? 
<END>     
69,如何播放资源文件中的AVI动画
在 下 从 网 上 下 载 了 一 个 可 以 从 资 源 文 件 中 提 取 AVI动 画 文 件 并 播 放 ， 但 我 运 行 该 程 序 时 不 能 播 放 ， 不 知 是 何 原 因 ， 请 各 位 高 手 赐 教 一 二