vb中如何平铺显示图片.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 22 行

你 可 以 Form上 放 置 一 个 PictureBox， 将 Visible属 性 设 为 False， AutoSize属 性 设 为 True。 将 PictureBox的 Picture属 性 设 置 为 你 需 要 的 图 片 。 然 后 在 Form_Paint事 件 中 输 入 如 下 代 码 ： 
    Private Sub Form_Paint() 
     Dim wid As Single 
     Dim hgt As Single 
     Dim x As Single 
     Dim y As Single 
     
     wid = Picture1.ScaleWidth 
     hgt = Picture1.ScaleHeight 
     y = 0 
     Do While y < ScaleHeight 
     x = 0 
     Do While x < ScaleWidth 
     PaintPicture Picture1.Picture, _ 
     x, y, wid, hgt 
     x = x + wid 
     Loop 
     y = y + hgt 
     Loop 
    End Sub 
<END>