如和平铺窗体？

[shawlsaa]

如何平铺窗体？就是以一幅小图片平铺窗体！

[shawls]

新建工程，添加代码如下：
'说明：工程需表单一个;PictureBox一个为Picture1,Picture.picture="平铺图片文件"
Option Explicit

Private Sub Command1_Click()
Form1.Cls

Picture1.Height = Picture1.Height + 22
Picture1.Width = Picture1.Width + 22

Dim wid As Single
Dim hgt As Single
Dim x As Single
Dim y As Single

wid = Picture1.ScaleWidth 'Picture1为要平铺的图片
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

Private Sub Form_Paint()

Dim wid As Single
Dim hgt As Single
Dim x As Single
Dim y As Single

wid = Picture1.ScaleWidth 'Picture1为要平铺的图片
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


应该是这样的，不对就发mail给我！

[jwing]

首先得出小图片的宽度和高度，然后利用循环将小图片贴到窗体上