vb点虐 图片平铺 vb怎么让图片适应窗体大小

在VB.NET的父窗体中,用插入图片框的方法设置背景图片后,当显示子窗体时,子窗体被背景图片遮挡,

你设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

在VB.NET下面如何显示和保存缩放图像

实现代码如下:

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.保存时的一个问题:我们必须先建一个对象,用于存缩放图像。

vb点虐 如何让图片一张张看下去

在“按键”的事件里

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

vb点虐 如何放大和缩小图片

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


分享题目:vb点虐 图片平铺 vb怎么让图片适应窗体大小
转载来源:http://pwwzsj.com/article/ddjodgd.html