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