vb怎麼設置圖片

① 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控制項實現圖片放大和圖片縮小功能

(1)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中，如何在Command按鈕上出現圖片

具體操作步驟如下：

1、首先，打開VB並添加Command控制項，如下圖所示，然後進入下一步。

③ VB中怎樣單擊按鈕出現一個圖片

用vb編寫一個點擊按鈕隨機出現一張圖片的軟體，例如：窗體上一個picture1和command1的控制項。

1、有四張圖片，他們的後綴名不相同，用戶可以問這樣寫：

Dim a$(3)

Private Sub Form_Load()

Randomize

a(0) = "D:xuexi.gif"

a(1) = "D:02.jpg"

a(2) = "D:房子.png"

a(3) = "D:4.jpg"

End Sub

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(a(Int(Rnd * 3)))

End Sub

2、如果後綴名相同，且圖片名稱按順序編號內並在程序目錄下，用戶可以容這樣寫：

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(App.Path & "" & Int(Rnd * 3) & ".jpg")

End Sub

(3)vb怎麼設置圖片擴展閱讀：

CommandButton命令按鈕最常用的事件是滑鼠點擊（Click）事件，當點擊按鈕時，猶如發出了一道命令，而這也正是「命令按鈕」這個說法的由來。

CommandButton 的主要屬性列舉：

1、Cancel（取消）屬性：

當一個按鈕的 Cancel 屬性設置為 True 時，按 ESC 鍵與單擊此命令按鈕的作用相同，因此，這個命令按鈕被稱為取消按鈕。在一個窗體中，只允許一個命令按鈕的 Cancel 屬性為 True 。

2、Default（默認）屬性：

當一個按鈕的 Default 屬性設置為 True 時，按回車鍵與單擊此命令按鈕的作用相同，因此，這個命令按鈕被稱為默認按鈕。 與 Cancel 的設置一樣，在一個窗體中，只允許一個命令按鈕的 Default 屬性設置為 True 。

3、Caption（標題）屬性：

跟其他控制項的 Caption 屬性一樣，都用來顯示控制項標題的屬性。這里要強調的是，作為按鈕控制項，用戶可以給按鈕控制項的 Caption 指定快捷方式。

④ VB中怎麼添加背景圖片，且在各個窗體之間都適用

1、vb6中窗體或部分控制項有picture屬性和BackColor屬性

2、注意並沒有BackgroundImage屬性。

3、如果設置窗體背景顏色，BackColor屬性。

比如：

Private Sub Command1_Click()

Me.BackColor = &H8080FF

End Sub

3、如果要設置窗體背景圖片，只需在窗體的picture屬性中選擇一張圖片就可以。

如下圖

⑤ VB中如何添加背景圖片

打開VB，建立標准EXE。
建立一個圖像框，名字改為p1,建立一個命令按鈕。
雙擊命令按鈕，進入代碼編輯器。
寫入代碼：p1.Picture
=
LoadPicture("你的圖片位置")
點擊運行，點擊命令按鈕，即可出來，效果如下圖：

⑥ 怎麼在VB的command控制項上添加圖片

1）在按鈕控制項的屬性頁設置它的屬性Style為1-Graphcal

2）給按鈕控制項的Picture屬性設置圖片

就可在VB的command控制項上添加圖片。

見下圖紅色方框部分：

⑦ 怎樣在vb中添加圖片

有三種方法：
1、添加一個picturebox或imagebox，在屬性窗口中選擇picture屬性，然後就可以添加圖片了，這是最簡單的一種；
2、第二種是代碼加入:
Option Explicit
Private Sub Form_Load()
Me.Picture = LoadPicture("c:\text.bmp") 'c:\text.bmp為圖片路徑
End Sub
3、第三種是通過剪貼板加入，這種比較復雜,如：
Option Explicit
Private Sub Form_Load()
Clipboard.SetData Picture1.Image
End Sub

⑧ VB中如何添加背景圖片

1、打開Microsoft Visual Basic,新建一個標准Exe工程。

⑨ vb的窗體背景如何設成圖片

1）在窗體添加一個Image圖像框控制項。在它得屬性頁設置Stretch屬性為True。

Stretch 屬性，返回或設置一個值，該值用來指定一個圖形是否要調整大小，以適應與 Image 控制項的大小。如果 Stretch 被設置為 True，那麼，控制項大小的調整使得它所包含的圖形的大小也要調整。

PrivateSubForm_Resize()
Image1.Height=Me.Height
Image1.Width=Me.Width
EndSub

Resize事件，當一個對象第一次顯示或當一個對象的窗口狀態改變時該事件發生。（例如，一個窗體被最大化、最小化或被還原。）

3）在Image控制項的Picture屬性連接需要圖片或在程序代碼中使用LoadPicture 函數將圖形載入到Image控制項的 Picture 屬性。