189 8069 5689
你设MDIContainer为true造出一个MDIparent的时候，系统自动加了个MDIclient控件在下面的部分，把那个找出来背景图片改掉，就不用图片框
阳春网站建设公司创新互联公司,阳春网站设计制作，有大型网站制作公司丰富经验。已为阳春千余家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的阳春做网站的公司定做！
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As EventArgs) Handles MyBase.Load
For Each ctl As Control In Me.Controls
If TypeOf ctl Is MdiClient Then
'Set properties of ctl here, e.g.
ctl.BackgroundImage = My.Resources.MdiBackgroundImage
Exit For
End If
Next ctl
End Sub
实现代码如下：
Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的图片
Dim grfx As Graphics = Me.CreateGraphics
grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里显示
Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3) '新建一个放大的图片
imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后图片
你可以建一个Form，然后在Form里拖进一个Button，把上面的代码放在Button_Click事件里面，执行就行了。
对上面代码的解释：
1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。
2.加载一个图片用Image类的FromFile或者FromStream方法
3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节。
4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。
在“按键”的事件里
i=i+1
if
i=n
then
i=1
picture1.picture=
loadpicture
(app.path
i
".gif")
在通用部分
dim
i
as
integer
const
n=20'如果不是20个图片就修改这里
在文件夹里，图片的名字依次是：
1.gif
2.gif
……
20.gif
Sub 图片缩放()
Dim SngPer As Single = 1 '放大或缩小的比例 放大2倍时SngPer=2,缩小3倍时 SngPer=1/3
Dim PicOld As Image = Image.FromFile("原图片路径")
Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)
PicNew.Save("新图片路径", Drawing.Imaging.ImageFormat.Jpeg)
End Sub