VB를 사용하여 사진을 회전하는 방법

비공개 함수 BitBlt Lib "gdi32"(ByVal hDestDC는 길게, ByVal x는 길게, ByVal y는 길게, ByVal nWidth는 길게, ByVal nHeight는 길게, ByVal hSrcDC는 길게, ByVal xSrc는 길게 , ByVal ySrc As Long, ByVal dwRop As Long Const srcopy = amp; HCC0020 Private Sub Form_Load() Picture2.Picture = LoadPicture(App.Path amp; "\a01.bmp") '그림 가져오기 h = Picture1.Height w = Picture1.Width End Sub Private Sub Command1_Click() '180도 회전 Picture2.Picture = LoadPicture("") For j = 0 To h 1단계 For i = 0 To w 1단계 BitBlt Picture2.hDC, i, j, 1, 1, Picture1.hDC, w - i, h - j, srcopy Next i Next j End Sub Private Sub Command2_Click() '시계 방향으로 90도 회전 Picture2.Picture = LoadPicture("") For i = h To 0 Step - 1 For j = 0 To w Step 1 BitBlt Picture2.hDC, i, j, 1, 1, Picture1.hDC, w - j, h - i, srcopy Next j Next i End Sub Private Sub Command3_Click() '반시계방향 회전 90 도 Picture2.Picture = LoadPicture("") For j = w To 0 단계 -1 For i = 0 To h 단계 1 BitBlt Picture2.hDC, i, j, 1, 1, Picture1.hDC, j, i, srcopy 다음 i Next j End Sub Private Sub Command4_Click() 'Horizontal Flip Picture2.Picture = LoadPicture("") For i = w To 0 Step -1 For j = 0 To h 1단계 BitBlt Picture2.hDC, i, j, 1, 1, Picture1.hDC, i, j, srcopy Next j Next i End Sub Private Sub Command5_Click() ' Picture2.Picture = LoadPicture("") For j = 0 To h 1단계 For i = 0 To w 1단계 BitBlt Picture2.hDC, i, j, 1, 1, Picture1.hDC, w - i

, h - j, srcopy Next i Next j End Sub 이것이 작동하는지 모르겠습니다. 이것은 단순한 고정 각도 회전입니다.

만족하신다면 채택해 주세요