VB API 圖形

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

'這是我在制作坦克大戰時用過的類似的代碼，實現復制。但缺點很多。後來我換了方法。

　　　　　　　張誌晨

上一篇:Lua為什麽在遊戲編程領域被廣泛運用？

下一篇:輝瑞疫苗或引發過敏真的假的