Public Sub DibGet(ByVal IdSource As Long, XBegin As Long, ByVal YBegin
As Long, ByVal XEnd As Long, ByVal YEnd As Long) Dim iBitmap As
Long Dim iDC As Long Dim I As LongDim Dim W As
Long Dim H As Long
On Error GoTo ErrLine Done =
False TimeGet = timeGetTime InPutWid = XEnd - XBegin InPutHei
= YEnd - YBegin W = InPutWid + 1 H = InPutHei + 1
I =
(Bits \ 8) - 1 ReDim ColVal(I, InPutWid, InPutHei) With
bi24BitInfo.bmiHeader .biBitCount = Bits .biCompression =
0& .biPlanes = 1 .biSize =
Len(bi24BitInfo.bmiHeader) .biWidth = W .biHeight = H End
With
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
