Поворот изображения
| Private Declare Function PlgBlt Lib "gdi32" (ByVal hdcDest As Long, lpPoint As POINTAPI, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long) As Long Private Type POINTAPI x As Long y As Long End Type Dim pt1(2) As POINTAPI pt1(0).x = A + (54 * Sin(6.28 / 360 * X1)) pt1(0).y = B + (54 * Cos(6.28 / 360 * X1)) pt1(1).x = A + (54 * Sin(6.28 / 360 * X1 + C)) pt1(1).y = B + (54 * Cos(6.28 / 360 * X1 + C)) pt1(2).x = A + (54 * Sin(6.28 / 360 * X1 + C + 3.1)) pt1(2).y = B + (54 * Cos(6.28 / 360 * X1 + C + 3.1)) PlgBlt F.hDC, pt1(0), Picture2.hDC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, 0, 0,0 Здесь X1 - градусы поворота A,B - положение картинки | |
| Просмотров: 3098 | Комментарии: 4 | |
| Всего комментариев: 0 | |