⑴ vb中如何使圖片自動放大和縮小
用image控制項，設置image1的Stretch屬性值為True，圖像就縮放為image控制項大小。
⑵ 如何用VB製作圖片放大和縮小
Dim ph%, pw%
Private Sub Form_Load()
ph = Picture1.Height
pw = Picture1.Width
End Sub
Private Sub HScroll1_Change()
Picture1.Left = -HScroll1.Value
Picture1.Width = pw + HScroll1.Value
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub VScroll2_Change()
Picture1.Top = -VScroll2.Value
Picture1.Height = ph + VScroll2.Value
End Sub
⑶ VB中如何才能自動放大縮小圖片填充到圖片框中啊
實現代碼：
VERSION 5．00
BeginVB．FormForm1
Caption＝＂使用PictureBox控制項實現圖像放大和縮小＂
ClientHeight＝5580
ClientLeft＝60
ClientTop＝345
ClientWidth＝7935
LinkTopic＝＂Form1＂
ScaleHeight＝5580
ScaleWidth＝7935
StartUpPosition＝3＇窗口預設
BeginVB．PictureBoxPicture1
AutoRedraw＝－1＇True
AutoSize＝－1＇True
Height＝3960
Left＝－15
Picture＝＂Form1．frx＂：0000
ScaleHeight＝3900
ScaleWidth＝6240
TabIndex＝2
Top＝15
Width＝6300
End
BeginVB．CommandButtonCommand2
Caption＝＂放大＂
Height＝360
Left＝6540
TabIndex＝1
Top＝5070
Width＝1140
End
BeginVB．CommandButtonCommand1
Caption＝＂縮小＂
Height＝360
Left＝5160
TabIndex＝0
Top＝5070
Width＝1140
End
End
AttributeVB＿Name＝＂Form1＂
AttributeVB＿GlobalNameSpace＝False
AttributeVB＿Creatable＝False
AttributeVB＿PredeclaredId＝True
AttributeVB＿Exposed＝False
DimiAsInteger
DimjAsInteger
PrivateSubCommand1＿Click（）
Picture1．Cls
i＝i－100：j＝j－100
Picture1．PaintPicturePicture1．Picture，0，0，i，j
Picture1．Width＝i：Picture1．Height＝j
EndSub
PrivateSubCommand2＿Click（）
Picture1．Cls
Picture1．Width＝i：Picture1．Height＝j
i＝i＋100：j＝j＋100
Picture1．PaintPicturePicture1．Picture，0，0，i，j
EndSub
PrivateSubForm＿Load（）
i＝Picture1．Width：j＝Picture1．Height
Picture1．Cls
EndSub
VB6．0通過PictureBox控制項實現圖片放大和圖片縮小功能
(3)如何把vb中放大的工具箱縮小擴展閱讀：
其它方法：
例子前請先下載Gdiplus．tlb，並將其放置到C：＼Windows＼System32中
Gdiplus．tlb下載
VisualBasiccode
使用Gdiplus．tlb，將其放到system32中，然後添加對其的引用
手動設置Form的AutoRedraw＝True，ScaleMode＝Pixels
OptionExplicit
DimlngGraphicsAsLong
DimlngImageHandleAsLong
DimlngTextureBrushAsLong
DimgpPAsGpStatus
DimlngPen1AsLong
DimlngTokenAsLong
PrivateSubCommand1＿Click（）
DimintPAsInteger
gpP＝GdipCreateFromHDC（Me．hDC，lngGraphics）＇創建繪圖區域設備場景
gpP＝GdipLoadImageFromFile（App．Path＆＂＼啟動．png＂，lngImageHandle）＇讀取圖片到內存
gpP＝GdipDrawImage（lngGraphics，lngImageHandle，0，0）＇等大小繪制
gpP＝GdipDrawImageRect（lngGraphics，lngImageHandle，200，0，300，300）＇在指定的區域內繪制（放大或縮小）
gpP＝GdipDrawImageRectRectI（lngGraphics，lngImageHandle，550，0，400，400，20，20，80，80，UnitPixel）＇在400＊400的區域內顯示圖片部分區域
gpP＝GdipCreateTexture（lngImageHandle，WrapModeTile，lngTextureBrush）＇設置一定排列方式的刷子平鋪方式
gpP＝GdipFillRectangle（lngGraphics，lngTextureBrush，0，300，400，300）＇在指定區域內按指定的格式繪制圖片
IflngGraphics＜＞
IflngImageHandle＜＞
IflngTextureBrush＜＞
Me．Refresh
EndSub
PrivateSubForm＿Load（）
DimbolPAsBoolean
WithMe
．Caption＝＂GDIPlus範例＂
．Width＝960＊15
．Height＝720＊15
．Left＝（Screen．Width－．Width）＊0．5
．Top＝（Screen．Height－．Height）＊0．5
EndWith
GpInput．GdiplusVersion＝1
IflngToken＝0ThenbolP＝（GdiplusStartup（lngToken，GpInput）＝Ok）
EndSub
⑷ 在VB中，如何實現圖片的等比例放大或縮小
給你一個我原來做過的實例吧。imgPreview 為Image對象。
Private Type PreviewSize
sngLeft As Single
sngTop As Single
sngWidth As Single
sngHeight As Single
intZoon As Integer
End Type
Private muPreviewSize As PreviewSize
Private Const cmChangeSize = 1.2
'// 縮小
Private Sub Command1_Click()
With muPreviewSize
.intZoon = .intZoon - 1
.sngHeight = .sngHeight / cmChangeSize
.sngWidth = .sngWidth / cmChangeSize
imgPreview.Stretch = True
imgPreview.Move .sngLeft, .sngTop, .sngWidth, .sngHeight
'// 如果已經縮小了9倍則縮小按鈕不可用
If .intZoon < -9 Then
Command1.Enabled = False
Command2.Enabled = True
Else
Command2.Enabled = True
End If
End With
End Sub
'// 放大
Private Sub Command2_Click()
With muPreviewSize
.intZoon = .intZoon + 1
.sngHeight = .sngHeight * cmChangeSize
.sngWidth = .sngWidth * cmChangeSize
imgPreview.Stretch = True
imgPreview.Move .sngLeft, .sngTop, .sngWidth, .sngHeight
'// 如果已經放大了9倍則放大按鈕不可用
If .intZoon > 9 Then
Command2.Enabled = False
Command1.Enabled = True
Else
Command1.Enabled = True
End If
End With
End Sub
Private Sub Form_Load()
With muPreviewSize
.intZoon = 0
'// + 0.5 為Image的邊框
.sngHeight = imgPreview.Height + 0.5
.sngWidth = imgPreview.Width + 0.5
.sngLeft = imgPreview.Left
.sngTop = imgPreview.Top
End With
End Sub
⑸ vb 如何放大或縮小圖片，用Picture控制項
用 PictureBox 肯定是可以的，但我猜想你只是想顯示一下而已，那為什麼不用 Image 控制項呢？
嘗試一下 Image 控制項的 Stretch 屬性吧。
⑹ VB中「窗體放大一倍」和窗體縮小一倍怎麼做
Private Sub Command1_Click() ' 這里是窗口放大2倍
Form1.Height = Form1.Height * 2 'form1就是窗口的名字，
Form1.Width = Form1.Width * 2
End Sub
Private Sub Command2_Click() ' 這里是窗口縮小2倍
Form1.Height = Form1.Height / 2
Form1.Width = Form1.Width / 2
End Sub
⑺ vb語言中怎麼使窗體和窗體里的控制項同時放大縮小
思路在form1的load和resize里設置每個控制項的長寬，都用form1的長寬表示，比如command1.width=1/20*me.width 這樣當當窗體寬度改變後按鈕的寬度始終是它的1/20高度類同
⑻ VB中如何設置將程序縮小至工具欄
縮小至工具欄需要用API Shell_NotifyIcon
用Windows的計劃任務。
或者程序啟動後檢查是不是星期1~5，不是的話就退出。
⑼ VB 運行時如何使picture控制項隨窗體放大縮小
首先在設計時確定窗體與Picturebox之間的關系，例如Picture1.Left=? Picture1.Top=? Picture1.Width 與 me.Width 的比例關系，Picture1.Height 與 me.Height 的比例關系
那麼，在Form_Resize事件中就可以按比例放大或縮小控制項尺寸，但控制項位置不變，例如
Dim X As Single, Y As Single
Private Sub Form_Load()
X = Picture1.Height / Me.Height
Y = Picture1.Width / Me.Width
End Sub
Private Sub Form_Resize()
Picture1.Height = Me.Height * X
Picture1.Width = Me.Width * Y
End Sub
⑽ 用VB怎樣實現圖片按比例放大縮小
用image控制項 把stretch屬性改為true
例
Private Sub Form_Load()
Image1.Stretch = True
End Sub
Private Sub Command1_Click()
Image1.Height = Image1.Height * Val(Text1.Text)
Image1.Width = Image1.Width * Val(Text1.Text)
End Sub