在VB,怎么样将一个图片填充picture框？

[liangzhunyu]

就像photoshop里的图案填充一样。

[qidaozhilong]

Private Sub cmdOK_Click()
Picture1.Picture = LoadPicture(App.Path & "\" & "1.jpg")
'假设你当前目录下有一张1.jpg的图片
Picture1.Width = Picture1.Picture.Width
Picture1.Height = Picture1.Picture.Height
End Sub
你试试，是你要的效果吗？

[qidaozhilong]

强烈建议使用imagebox,因为imagebox比picturebox占用更少的内存资源。

[zuoxingyu]

应该把AUTHSIZE属性设置成TRUE

[wwqna]

真正可以和photoshop一样填充
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As rect, ByVal hbrush As Long) As Long
Dim hbrush As Long
Private Type rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Form_Load()
Dim rectForm As rect
Me.AutoRedraw = True
Picture1.Picture = LoadPicture("d:\1.bmp")
hbrush = CreatePatternBrush(Picture1.Picture)
SelectObject Me.hdc, hbrush
With rectForm
.Left = 0
.Top = 0
.Right = Me.ScaleWidth / Screen.TwipsPerPixelX
.Bottom = Me.ScaleHeight / Screen.TwipsPerPixelY
End With
FillRect Me.hdc, rectForm, hbrush
End Sub

[aohan]

如果图片很大的话，
Picture1.Width = Picture1.Picture.Width
Picture1.Height = Picture1.Picture.Height
界面可能都放不下了，^-^
loadpicture函数读取文件

[sulizao]

可以用loadpicture()函数装载.也可以在图片框的属性中直接设置.

[ygrobin]

up

[lxcc]

Private Sub Command1_Click()
Picture1.AutoSize=true
Picture1.Picture = LoadPicture("C:\1.gif")
End Sub

[ABCatai]

picture不像imagebox控件，，不能自动根据picture初画的大小那样改变图片本身的大小，如果你希望让图片随着你的picture的大小的改变而自动改变我想不行，，这也是其与imagebox的区别之一吧

[lxcc]

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("C:\1.gif")
End Sub

[cieon_123]

如果只是显示图片的话，为什么不用imagebox,picturebox更多的是用来做容器