132.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 23 行

实现图片平铺于窗体中

　　很多软件的界面并不是单调的一种颜色填充的，而是有一幅美丽的底图平铺于窗体中。能否用 VB 实现这样的效果呢？作案是肯定的。

　　为了实现这一效果，请先把form的picture属性设为你想平铺的图片,然后把以下代码加入，就可以了(注意form的AutoRedraw必须为False)。
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 
Private Const SRCCOPY = &HCC0020 
Private Sub Form_Paint() 
Dim x As Integer, y As Integer, d As Long 
Dim pHeight As Integer, pWidth As Integer 
ScaleMode = 3 
pHeight = 32 　'这里最好设为图片的高度
pWidth = 32　　'这里设为图片的宽度
For x = 0 To ScaleWidth Step pWidth 
For y = 0 To ScaleHeight Step pHeight 
d = BitBlt(hDC, x, y, pWidth, pHeight, hDC, 0, 0, SRCCOPY) 
Next y 
Next x 
End Sub