Question

在picturebox插入图片，如果图片太小，如何设置图片平铺

如何设置图片平铺，还是说picturebox控件不能这样设定,要是要设置要用那个控件
最后有实例，发我邮箱 验证过给分。重谢
最好是.NET C#

Answer 1

楼主更改Picturebox 的SizeMode试试
zoom 图片的长宽比例会保持不变
atuosize Picturebox的大小会随着图片的大小而更改
ScretchImage 强制使图片的大小跟picturebox的大小相同，图片的长宽比例会发生改变
CenterImage 图片大小不变，图片在picturebox中居中显示，如果图片大小超过picturebox大小，图片会显示不全

将 Picturebox 的 SizeMode 设为atuosize或ScretchImage，但不知这样出的效果能否满足楼主

追问

不行啊没有那个平铺的效果，我要那个平铺的效果。跟系统桌面里面的平铺功能差不多。
如果Picturebox不行，有没有其他的控件插入图片能够实现那个效果啊
我附图片一张。希望你能明白我想要的。
感谢!

追答

直接设置看来是不行的 没有这个功能
用paintpicture 或用api 这个真是不怎么清除 我查了一下 别人有用VB做的
使用WINDOWS API和一些图形技术
　　操作步骤：
　　1、建立一个新工程项目，缺省建立窗体FORM1
　　2、添加一个新模体
　　3、粘贴下面代码到新模体
Option Explicit
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
Declare Function GetDC Lib user32 (ByVal hwnd As Long) As Long
Public RetValue As Long
Public Sub TileWindow(WindowObject As Object, p As PictureBox)
　　Dim j As Integer, i As Integer
　　Dim x As Integer
　　Dim WhDC As Long
　　＆#39; This object can be any VB standard object with an hWnd property
　　WhDC = GetDC(WindowObject.hwnd)
　　For j = 0 To WindowObject.Height Step p.ScaleHeight
　　　　For i = 0 To WindowObject.Width Step p.ScaleWidth
　　　　　　x = BitBlt(WhDC, i, j, p.ScaleWidth, p.ScaleHeight, p.hDC, 0, 0, vbSrcCopy)
　　　　Next
　　Next
End Sub
　　4、添加一个图片框控件（PICUTRE1），设置其SCALEMODE属性=3-PIXEL，AUTOREDRAW属性=TURE，AUTOSIZE属性=TURE。在PICTURE属性中选择一幅图。
　　5、添加以下代码到FORM1的PAINT事件：
Private Sub Form_Paint()
　　TileWindow Me, Picture1
End Sub
　　6、保存工程项目
　　7、运行程序。当显示出窗体后，可以看到图片“平铺”到整个窗体。
楼主按照这个思路做一个呢?

Answer 2

用VB6吧，paintpicture搞定

追问

求指教， 就好像上面楼那种是整个窗体设置的，可不可以设置多边形
+个QQ 303194927求指教

Answer 3

编写控件事件