如何实现百叶窗的效果.txt

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

在 VB中 使 用 BitBlt确 实 存 在 这 样 的 缺 陷 ， 解 决 的 办 法 就 是 采 用 PaintPicture方 法 。 PaintPicture方 法 是 VB 4.0以 后 版 本 提 供 的 函 数 ， 它 的 功 能 和 用 法 都 同 Windows API的 BitBlt、 StretchBlt相 同 ， 速 度 上 略 慢 一 点 ， 但 一 般 不 明 显 ， 优 点 是 不 管 PictureBox是 否 可 见 ， 都 可 以 正 确 复 制 图 片 。 下 面 给 出 例 子 。 
    首 先 在 Form上 放 置 两 个 大 小 相 同 的 PictureBox和 一 个 按 钮 ， 其 中 Picture1为 源 图 片 ， Picture2为 目 标 图 片 ， 将 Picture1.Visible设 为 False， 将 两 个 Picture的 ScaleMode设 为 Pixel(如 果 不 采 用 这 种 单 位 ， 你 需 要 修 改 下 面 的 一 些 参 数 )。 然 后 输 入 以 下 代 码 ： 
    Private Sub Command1_Click() 
     
    Picture2.Cls 
    nStep = 3 
    nWidth = 18 
    nHeight = Picture1.ScaleHeight 
    For j = 0 To nWidth Step nStep 
     For i = 0 To Picture1.ScaleWidth Step nWidth 
     nLeft = i + j 
     Picture2.PaintPicture Picture1.Picture, nLeft, 0, nStep, nHeight, _ 
     nLeft, 0, nStep, nHeight, vbSrcCopy 
     Next 
     For k = 1 To 200000: Next ' 延 时 
    Next 
    End Sub 
    一 切 OK。 
<END>