怎样实现将图片平铺显示到picturebox上？不胜感激

Question

怎样实现将图片平铺显示到picturebox上？不胜感激

Answer 1

用PictureBox.PaintPicture()，当然要自己计算坐标啦~

Answer 2

用image要做到就简单了　，不同的是 picture　是容器，image不是。你在picture里放一个 image，让image的　宽和高和picture一样,　这样做有点牵强

Answer 3

http://h.7i24.com/vbcc/article/article011.htm

Answer 4

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

Answer 5

Picture1.PaintPicture LoadPicture("a.jpg"),0,0,Picture1.Width,Picture1.Height

Answer 6

Option ExplicitPrivate 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 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 Const SRCAND = &H8800C6
Private Const SRCERASE = &H440328
Private Const SRCINVERT = &H660046
Private Const SRCPAINT = &HEE0086Private 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, 0, 0, picFrom.Width, picFrom.Height, SRCCOPY
            BitBlt Me.hdc, W, H, picFrom.Width, picFrom.Height, picFrom.hdc, 0, 0, SRCCOPY
            H = H + H1
        Wend
        W = W + W1
    Wend
    Exit Sub
ErrorPic:
    MsgBox Err.Description, vbCritical
End SubpicFrom是一个picturebox控件