VB中如何平铺显示图片
编号：QA000937
建立日期: 1999年5月6日 最后修改日期：1999年5月6日
所属类别：
Huashan:
VB中Form的Picture属性不能将图象自动平铺到整个表单中,只是以原大小显示(而VFP中好象可以），请问如何实现?
回答:
你可以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
x = x + wid
Loop
y = y + hgt
Loop
End Sub
相关问题：
QA002738 "Picture1.Picture.Height会与图片的实际高不一样"
此问题由李海回答。
| |
|
|
| |
|
|
