❶ 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的寬和高的精確數值可以自己調試，以便圖像顯示的最為完整和精確。
這個方法的缺點是，由於窗體大小可以隨意調節，所以背景圖形可能會變形。當然也可以考慮控制窗體大小的變化，使窗體按照圖片的縱橫比放大和縮小，但是相應的控制代碼會增加一些。