说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

实现图片平铺于窗体中-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
实现图片平铺于窗体中-VB资料

  很多软件的界面并不是单调的一种颜色填充的,而是有一幅美丽的底图平铺于窗体中。能否用 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

 

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘