Question

VB API 图形

VB 用API实现 在窗口中制定位置绘制 指定路径中一图片（远大于窗体大小）的指定区域大小 例：在窗体0，0的位置绘制 c:\a.bmp(像素为1500*1500) 中的（500，500）到（1000，1000）的区域内图像（即宽500 高500）

Answer 1

Public 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
Public Const srcopy = &HCC0020
'需要先将外部图片加载到Picture1（命名为pic）里，再用API复制指定区域到Picture2（命名为tank）里
Public Sub RotaFill(tank As Object, pic As Object, R As Integer)
tank.Picture = LoadPicture("")
For i = 500To1000
For j = 500 To 1000
BitBlt tank.hDC, j,i, 1, 1, pic.hDC, j, i, srcopy Next j
Next i
End Sub
'这是我在制作坦克大战时用过的类似的代码，实现复制。但缺点很多。后来我换了方法。
　　　　　　　　　　　　　张志晨