如何将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