vb中如何将picturebox的背景色,自画线,label等内容一起保存成BMP图片

发布时间:2024-05-09 12:39 发布:上海旅游网

问题描述:

vb的曲线图形画好了,坐标是手动画的,现在想将picturebox中的所有东西全部保存成bmp文件,哪位大虾帮帮忙啊,谢谢了.vb中如何将picturebox的背景色,自画线,label内容一起保存成BMP图片
那现在这样,怎样在picture中定点的坐标处打印出文字?

问题解答:

print

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

热点新闻