窗体背景图片问题

Question

我用Image控件的picture属性导入一张jpg图片做背景用，可是当窗口放大时，由于图片自身的扩展，变得很模糊
我把图片设成了1024*768，可是在800*600分辨率下，又皱了，麻烦啊，
应如何处理啊？

Answer 1

使用你需要的最大的尺寸的图片,然后利用GDI+或者其他的API缩小,基本看不出什么失真

Answer 2

当然有，那就是把form边框设置为3，取消最大化最小化按钮

Answer 3

用下面的代码试试:
Private Sub BackGround(f As Form, pic As PictureBox)
    For i = 0 To (f.ScaleWidth \ pic.Width)
        For j = 0 To (f.ScaleHeight \ pic.Height)
            PaintPicture pic.Picture, i * pic.Width, j * pic.Height
        Next
    Next
'将pic中的图片铺满整个窗口作为窗口背景花纹
End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
    '窗口可以自动重画
    Pic1.Visible = False
    '隐藏
    Pic1.BorderStyle = 0
    '没有边框
    Pic1.AutoSize = True
    '根据载入的图片自动调节大小
    Pic1.Picture = LoadPicture(App.Path + "\2.bmp")
    '载入图片
    'App指本程序
    'App.Path指本程序路径
    '文件3.bmp存储在本程序目录中
    BackGround Me, Pic1
    '调用子过程BackGround将Pic1中的图片充满窗口
End Sub
Private Sub Form_Resize()
   BackGround Me, Pic1
End Sub