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() With pic .ScaleMode = 3 .Width = Me.ScaleWidth .Height = Me.ScaleHeight .AutoRedraw = True BitBlt .hdc, 0, 0, .Width, .Height, Me.hdc, 0, 0, vbSrcCopy .AutoRedraw = False .Refresh SavePicture .Image, "C:\a.bmp" End With End Sub
Private Sub Command1_Click()
With pic
.ScaleMode = 3
.Width = Me.ScaleWidth
.Height = Me.ScaleHeight
.AutoRedraw = True
BitBlt .hdc, 0, 0, .Width, .Height, Me.hdc, 0, 0, vbSrcCopy
.AutoRedraw = False
.Refresh
SavePicture .Image, "C:\a.bmp"
End With
End Sub
不太明白你的用意,我要存的数据怎么放进去?能否解释一下?
BMP文件也可以呀!指点一下好吗?