如何將vb背景導出圖片

㈠ 如何在VB中保存圖片

VB6.0可使用SavePicture 語句來保存窗體或圖像框中經修改的圖片。

1）SavePicture 語句，從對象或控制項（如果有一個與其相關）的 Picture 或 Image 屬性中將圖形保存到文件中。

PrivateSubCommand3_Click()'保存為.jpg圖片
'設置「CancelError」為True
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'設置標志
CommonDialog1.Flags=cdlOFNHideReadOnly
'設置過濾器
CommonDialog1.Filter="JPEGFiles"&"(*.jpg)|*.jpg"
'指定預設的過濾器
CommonDialog1.FilterIndex=2
'顯示「打開」對話框
CommonDialog1.ShowSave
'顯示選定文件的名字
'MsgBoxCommonDialog1.fileName
SetPicture2.Picture=Picture1.Image'轉移Picture1所繪圖為Picture2.Picture賦值
DimretAsBoolean
ret=PictureBoxSaveJPG(Picture2,CommonDialog1.fileName)'保存壓縮後的圖片
Ifret=FalseThen
MsgBox"保存失敗"
EndIf
ExitSub
ErrHandler:
'用戶按了「取消」按鈕
ExitSub
EndSub

㈡ 怎樣獲取vB 的背景圖片

form1.savepicture("c:\aaa.jpg")

㈢ vb中如何將picturebox的背景色,自畫線,label等內容一起保存成BMP圖片

savepicture就這個命 令行了，不過要把上邊的控制項保存下來沒試過

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
SetWindowPos P.hwnd, 0, -Left / 15 - 4, -Top / 15 - 30, Screen.Width / 15, Screen.Height / 15, 1 '設定P影像范圍(-4,-30 是窗體邊框,使用屏幕座標轉換可以更正規,只里只是演示)
PP.Move -Left, -Top, Screen.Width, Screen.Height
BitBlt PP.hDC, -ScaleLeft, -ScaleTop, Width, Height, P.hDC, 0, 0, &HCC0020 '把P上的點陣圖畫到PP上
P2.PaintPicture PP.Image, 0, 0, P2.Width, P2.Height 'P2觀看捕圖效果
On Error GoTo DD
C.Filter = "*.BMP|*.BMP"
C.ShowSave
SavePicture PP.Image, C.FileName '保存圖片
DD:
'注 :P,P2,PP 為三個PICTUREBOX 控制項,PP,P2AutoRedraw =TRUE,P AutoRedraw =FALSE .其中P ,PP VISIBLE=FALSE ,C 為COMMANDIALOG控制項
'本代碼是全屏捕圖,修改一下可實現局部捕圖
End Sub

㈣ vb，在窗體中用一張圖片作了背景，怎麼樣用程序將這張圖片復制或者保存下來

Private Sub Command1_Click()
Dim EnvString, Indx, strUserProfile ' 聲明變數。
Indx = 1 ' 設置索引值的初值為 1。
Do
EnvString = Environ(Indx) ' 取得環境變數。

If Left(EnvString, 12) = "USERPROFILE=" Then
strUserProfile = Mid(EnvString, 13)
SavePicture Me.Picture, strUserProfile & "\桌面\1.jpg"
Debug.Print strUserProfile
Exit Do
End If
Indx = Indx + 1
Loop Until EnvString = ""
End Sub

Private Sub Form_Load()
Set Me.Picture = LoadPicture("g:\1.jpg")
End Sub

㈤ VB中如何添加背景圖片

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

㈥ vb怎麼將當前窗體保存成圖片到桌面

先用API函數模擬按alt+printScreen鍵，截取當前窗口到剪貼版中。然後用：

SavePictureClipboard.GetData,"c:	est.bmp"'從剪貼版中把圖片保存到文件

理論上用sendKeys也可以模擬按鍵，但有時不好使，建議用API可靠些。

㈦ 怎麼把VB里的一個背景圖片換成別的圖片

動態變化的話

代碼：form1.picture=loadpicture("C:\Documents and Settings\Administrator\桌面\1.jpg")

如果要在其他機器上也能換，那就需要將圖片帶走，
1，用資源管理器：
2，一個簡單的方法，隨便畫個圖片框，載入圖片進去（樓上說的那樣，找picture屬性），picture1.visible=FALSE
然後代碼：form1.picture=picture1.picture

㈧ 怎麼在VB中將picturebox控制項中的內容保存為圖片

VB6.0可使用SavePicture 語句來保存PictureBox 控制項中的內容為圖片：

1）SavePicture 語句，從對象或控制項（如果有一個與其相關）的 Picture 或 Image 屬性中將圖形保存到文件中。

PrivateSubCommand1_Click()
SavePicturePicture1.Image,App.Path&"TEST"'將圖片保存到文件。
EndSub

㈨ 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 屬性。

㈩ vb 怎麼導出image 里的圖片

Private Sub Command1_Click()
SavePicture Image1.Picture, "c:\1.bmp"
End Sub