首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

:关于BitBlt将窗体一定区域截取上来,并存成BMP图片的有关问题

2012-12-29 
求助:关于BitBlt将窗体一定区域截取下来,并存成BMP图片的问题?请问:Option ExplicitPrivate Declare Funct

求助:关于BitBlt将窗体一定区域截取下来,并存成BMP图片的问题?
请问:
Option Explicit
Private Declare Function BitBlt Lib "gdi32.dll" (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 Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Const SRCCOPY As Long = &HCC0020

Private Sub open1_Click()
  Dim hDc1 As Long, hDC2 As Long
  Dim W As Long, H As Long, i As Long
  Picture2.Width = 13335
  Picture2.Height = 5655
  Picture2.Visible = True
  Picture2.AutoRedraw = False
  Picture2.ScaleMode = 3
  Picture2.Cls
  On Error GoTo Lhandle
  hDc1 = Form1.hDC
  hDC2 = Picture2.hDC
  BitBlt hDC2, 0, 0, 900, 370, hDc1, 160, 0, SRCCOPY
Lhandle:
  CommonDialog1.DialogTitle = "打开采样数据文件"
  CommonDialog1.Filter = "*.bmp"
  CommonDialog1.InitDir = "C:"
  CommonDialog1.Action = 2
  SavePicture Picture2.Picture, CommonDialog1.FileName
End Sub
这是我的代码,为什么总提示出错?
提示"SavePicture Picture2.Picture, CommonDialog1.FileName"出错!
[解决办法]
发育成:  SavePicture Picture2.image, CommonDialog1.FileName
[解决办法]
一、Picture2.AutoRedraw = False改成Picture2.AutoRedraw = True。
二、SavePicture Picture2.Picture, CommonDialog1.FileName改成SavePicture Picture2.Image, CommonDialog1.FileName

热点排行