拉伸:
Picture1.PaintPicture LoadPicture( "a.jpg "),Picture1.Width,Picture1.Height
‘’--------------------------------------------------------------------------------------------------------------------------------------------------
平铺:
方法一:
Private Sub Form_Click()
Dim 高数量 As Long,宽数量 As Long
Dim X As Long,Y As Long
Picture2.BorderStyle = 0
Picture2.Picture = LoadPicture( "C:/1.BMP ")
Picture2.AutoSize = True
宽数量 = Int(Picture1.Width / Picture2.Width)
If 宽数量 * Picture2.Width < Picture1.Width Then
宽数量 = 宽数量 + 1
End If
高数量 = Picture1.Height / Picture2.Height
If 高数量 * Picture2.Height < Picture1.Height Then
高数量 = 高数量 + 1
End If
For Y = 0 To 高数量
For X = 0 To 宽数量
Picture1.PaintPicture Picture2.Picture,_
X * Picture2.Width,Y * Picture2.Height
Next X
Next Y
End Sub
Dim 高数量 As Long,宽数量 As Long
Dim X As Long,Y As Long
Picture2.BorderStyle = 0
Picture2.Picture = LoadPicture( "C:/1.BMP ")
Picture2.AutoSize = True
宽数量 = Int(Picture1.Width / Picture2.Width)
If 宽数量 * Picture2.Width < Picture1.Width Then
宽数量 = 宽数量 + 1
End If
高数量 = Picture1.Height / Picture2.Height
If 高数量 * Picture2.Height < Picture1.Height Then
高数量 = 高数量 + 1
End If
For Y = 0 To 高数量
For X = 0 To 宽数量
Picture1.PaintPicture Picture2.Picture,_
X * Picture2.Width,Y * Picture2.Height
Next X
Next Y
End Sub
方法二:
Option Explicit Private Declare Function StretchBlt Lib "gdi32 " (ByVal hdc 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 nSrcWidth As Long,ByVal nSrcHeight As Long,ByVal dwRop As Long) As Long Private Declare Function BitBlt Lib "gdi32 " (ByVal hDestDC As Long,ByVal dwRop As Long) As Long Private Const SRCcopY = &HCC0020 Private Const SRCAND = &H8800C6 Private Const SRCERASE = &H440328 Private Const SRCINVERT = &H660046 Private Const SRCPAINT = &HEE0086 Private Sub Form_Paint() Dim W As Single,H1 As Single,W1 As Single,H As Single Dim pic As Picture '先清空窗体上原有图片背景 Cls '如果出现异常错误,转向错误处理语句 On Error GoTo ErrorPic picFrom.AutoRedraw = True picFrom.AutoSize = True picFrom.Visible = False picFrom.Picture = LoadPicture( "E:/背景/素材/bkic007.gif ") '下面将图片排满整个窗体 W = 0 H1 = picFrom.ScaleHeight / 15 W1 = picFrom.ScaleWidth / 15 While W < ScaleWidth H = 0 While H < ScaleHeight ' Me.hdc,W,H,picFrom.Width,picFrom.Height,picFrom.hdc,SRCcopY BitBlt Me.hdc,SRCcopY H = H + H1 Wend W = W + W1 Wend Exit Sub ErrorPic: MsgBox Err.Description,vbCritical End Sub picFrom是一个pictureBox控件
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。