| ---- Grid 控 件 是Visual Basic 最 常 见 控 件 之 一， 从VB3.0 到VB5.0 都有 该 控 件。 也 是VB 爱 好 者 最 喜 爱 的 工 具 之 一。 用 它 可 以 以表 格 的 形 式 显 示、浏 览 数 据， 特 别 是 数 据 库 应 用， 直 接 绑定 即 可 显 示 浏 览 数 据 库 信 息。 然 而， 美 中 不 足 的 是Grid 没有 编 辑 和 打 印 功 能， 列 与 列 的 位 置 不 能 相 互 交 换。 笔 者 曾尝 试 着 给Grid 增 添 了 这 些 功 能， 使 之 锦 上 添 花， 功 能 更 强大。 下 面 给 出 改 进 方 法 及 源 程 序， 读 者 只 需 按 步 骤 写 下 源程 序 即 可 使 你 的Grid 具 有 打 印 功 能。 该 程 序 笔 者 在HP5/100Window 95 环 境 下 用VB5.0 调 试 通 过。 ---- 给Grid 控 件 增 加 打 印 方 法 有 三 种：1 是 直 接 打 印 控 件 的方 法，2 是 过 printer 来 实 现 打 印 功 能，3 是 通 过 调 用MS-WORD 及MS-EXCEl 来 实 现 打 印。 ---- 首 先， 打 开 一 个 应 用， 在FORM1 中 增 加DATA 控 件DATA1, 把DATA1 的CONNECT 属 性 设 为dBASE III， 再 把DATABASENAME 属 性 设 为D:\PJXM.DBF。 然 后 再 在FORM1 中 增 加MSFLEXGRID 空 间GRID1， 并 把GRID1的DATASOURCE 属 性 设 为DATA1。 这 样 数 据 库PJXM.DBF 的 信 息 就 会 在GRID1 中 显 示 出 来。 ---- 方 法 一： 直 接 打 印 窗 体 法， 在FORM1 中 增 加 命 令 按 钮(command)，CAPTION 属 性 设 为 直 接 打 印， 再 写 入 下 列 编 码： Sub command_click Form1.printform End sub ---- 这 样 即 可 通 过 打 印 窗 体FORM1 的 方 法 把GRID1 的 数 据 打 印出 来， 遗 憾 的 是 只 能 打 印GRID1 中 显 示 的 数 据 部 分， 显 示 不出 来 的 则 无 法 打 印， 而 且 这 种 打 印 方 法 很 象 屏 幕 硬 拷 贝把 其 他 控 件 也 打 印 出 来。 也 不 能 灵 活 的 控 制 字 体 等。 ---- 方 法 二： 通 过PRINTER 实 现 打 印。 这 种 方 法 ---- 1、加 入 打 印 命 令 按 钮(command1)、函 数(prnt1) 即 可 实 现 打印 功 能， 写 入 下 面 代 码， 读 者 稍 加 改 动 可 写 成 标 准 的 函 数或 过 程。 Function prnt1 (x As Integer, y As Integer, font As Single, txt As String) printer.CurrentX = x printer.CurrentY = y printer.FontBold = False printer.FontSize = font printer.Print txt End Function Sub command1_click Dim fnt As Single Dim pp as integer Pp=0(责任编辑：admin) |
Powered by DedeCMSV55_UTF8 © 2004-2009 DesDev Inc.
Copyright © 2010 代码天下 版权所有
