❶ vb中怎样让image能够适应图片大小且不拉长或者压扁
一、如果要直接改变图片的大小，不顾及变形的问题可以在美图秀秀基础编辑里面修改尺寸：
二、不想让图片变形要加长尺寸的话，可以使用新建画布，然后将图片添加进去，再在旁边添加饰物类的点缀。
实例步骤：
1、打开美图秀秀，新建画布，尺寸自定，设置为长形尺寸；
2、在画布上右击，选择“插入一张图片”；
3、选择饰品，然后在右侧的饰品栏目挑选自己比较喜欢的图案添加进画布中，最后保存图片即可。
❷ VB如何设置窗体背景图片随窗体大小自动调整
Private Sub Form_Load()；
Me.Picture = LoadPicture("E:UsersxjnPicturesLotus.jpg") '自己改图片路径；
Me.AutoRedraw = True；
End Sub；
Private Sub Form_Resize()；
Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.Height；
End Sub。
❸ VB : 如何令image 加载图片后不变形
保持图片宽高比不变是吧，这只能在代码中根据图片的宽高比调整一下，
在Form_Load 中：
With Image1
.Height = .Width * (.Picture.Height / .Picture.Width)
End With
其实还有一组控件Microsoft Form 2.0，其中也有个Image控件，它可以保持宽高比。
❹ VB怎样更改电脑桌面背景为拉伸
添加三个命令按钮，一个PictureBox，一个CommonDialog控件
代码如下：
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
'方式设置为墙纸
Private Const SPI_SETDESKWALLPAPER = 20
'将新的设置写入用户文件中，&H1=1
Private Const SPIF_UPDATEINIFILE = &H1
Dim PicName As String
'打开图片文件
Private Sub Command1_Click()
'创建打开文件对话框
With CommonDialog1
.Filter = "bmp文件(*.bmp)|*.bmp"
.ShowOpen
'获得图片文件名称
PicName = .FileName
End With
'预览图片
Picture1.Picture = LoadPicture(PicName)
'判断是否打开文件
If PicName = "" Then Exit Sub
End Sub
'设置墙纸
Private Sub Command2_Click()
Dim SysInfo As Long
'设置指定图片为桌面墙纸
SysInfo = SystemParametersInfo(SPI_SETDESKWALLPAPER, True, PicName, SPIF_UPDATEINIFILE)
'判断设置是否成功
If SysInfo = 0 Then
MousePointer = 0
MsgBox "很抱歉，不能安装此类墙纸"
Else
MsgBox "恭喜你，成功地安装了墙纸"
End If
End Sub
'退出程序
Private Sub Command3_Click()
End
End Sub
Private Sub Picture1_Change()
Me.Width = Picture1.Width
Me.Height = Picture1.Height * 1.2
End Sub
❺ vb如何把任意图片缩放到固定大小的PictureBox并保持图片原来的宽高比
PictureBox（图片框）是Visual Basic中用来显示图形的基本控件之一，用于在窗体指定位置显示图形信息，它支持多种格式的图形文件，包括位图文件(*.bmp,*.dib)、图标文件(*.ico)、光标文件(*.cur)、图元文件(*.wmf,*.emf)，还有Internet 上流行的压缩位图格式的JPEG文件和GIF文件。最重要的功能是可以在它上面绘图。但是PictureBox只有自动适应图片大小的属性，而没有图片适应控件的属性。
原题要“把任意图片缩放到固定大小的PictureBox并保持图片原来的宽高比”，也就是加载以后图片不能变形。这样比较繁琐一些，但是效果很好，仅供你参考。
准备：在窗体上放置两个PictureBox控件，Picture1的长宽要相同（要是按照你的“
PictureBox分辨率为，500*200”，图像就变形了！），一个CommonDialog控件，一个Command控件。
代码如下：
Option Explicit
Private Sub Command1_Click()
Dim imageWidth As Long
Dim imageHeight As Long
CommonDialog1.Filter = "(图片文件)*.BMP;*.JPG;*.JPEG|*.BMP;*.JPG;*.JPEG" '用来选择图片
CommonDialog1.FilterIndex = 0
CommonDialog1.Action = 1
If CommonDialog1.FileName <> "" Then
Picture2.Picture = LoadPicture(CommonDialog1.FileName) '图片加载到Pic2
If Picture2.ScaleWidth > Picture2.ScaleHeight Then
imageWidth = Picture1.ScaleWidth
imageHeight = Picture1.ScaleHeight * Picture2.ScaleHeight / Picture2.ScaleWidth
Else
imageWidth = Picture1.ScaleWidth * Picture2.ScaleWidth / Picture2.ScaleHeight
imageHeight = Picture1.ScaleHeight
End If
Picture1.Cls
Picture1.PaintPicture Picture2, (Picture1.ScaleWidth - imageWidth) / 2, (Picture1.ScaleHeight - imageHeight) / 2, imageWidth, imageHeight, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
End If
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True '重绘图片
Picture1.AutoSize = False '图片框大小不变
Picture1.Visible = True
Picture1.BackColor = RGB(0, 255, 0) '设置图片框背景颜色
Picture2.AutoSize = True 'Picture2自动缩放以适应图片，不可见
Picture2.Visible = False
Command1.Caption = "选择图片"
End Sub
该代码在VB6测试通过，结果如下：
❻ VB图片框中怎么样让图片拉伸显示
将这个picturebox的strench属性设为true就可以啦。
❼ VB程序背景图片如何铺满
要拉伸的话就放一个 image， form_onResize 设置 image 尺寸使它和 form 一样大，这个需要调用 dll 来得到 form 的 client area size，具体函数记不清了，大致意思是：
image.width = form.scaleWidth - 边框的 width * 2
image.height = form.scaleHeight - 边框的 height * 2 - 菜单条的 height （如果有菜单的话）
设置 image.stretchMode = true ，这样当 image 大小改变了，里面的图片会自动拉伸。
❽ VB图片拉伸
控件中有个image的东西 记不清楚了 把它放到窗体上 然后在上面放上图片（picture的属性）这个image是可以随意拉伸 窗体上其他控件可以设置为透明那么就可以直接看见背景图片了 试试看吧 不会可以接着问我
❾ 如何给vb窗口加拉伸背景图片
添加一个image，载入一张图片，
在form中添加如下代码:
Private Sub Form_Load()
Me.AutoRedraw = False
Image1.Visible = False
End Sub
Private Sub Form_Paint()
Me.PaintPicture Image1.Picture, 0, 0, ScaleWidth, Me.Height, 0, 0, Image1.Width, Image1.Height
End Sub
补充：
image就是图片框啊，在控件工具栏里有
==================================================
==================================================
Private Sub Form_Load()
Image1.Picture = LoadPicture("图片路径")
End Sub
❿ vb程序背景中插入图片 图片大小会随之窗口大小改变 应该如何制作 我是新手
简单一点的方式是，在mdi主窗体内添加一个picturebox控件，然后在这个picturebox中添加一个image控件。
picture1的属性：
1.align=top
2.appearance=flat
3.bordestyle=none
4.tabstop=false
image1的属性：
1.stretch=true
在mdi窗体的resize事件中添加如下代码：
private
sub
mdiform_resize()
me.picture1.height
=
me.height
end
sub
在picture1控件的resize事件中添加如下代码：
private
sub
picture1_resize()
me.image1.move
0,
0,
me.picture1.width,
me.picture1.height
end
sub
上面的代码是比较粗略的代码，至于在resize的时候picture1和image1的宽和高的精确数值可以自己调试，以便图像显示的最为完整和精确。
这个方法的缺点是，由于窗体大小可以随意调节，所以背景图形可能会变形。当然也可以考虑控制窗体大小的变化，使窗体按照图片的纵横比放大和缩小，但是相应的控制代码会增加一些。