ビットマップを任意の角度に回転させるには
ウィンドーズのＡＰＩを色々試しましたが分かりません！教えて下さい。
またビットマップを構築し直すという方法があります。
ですが、この方法は腐ってますね。(^^)
ここにサンプルがあったような気がします。
http://www06.u-page.so-net.ne.jp/qc4/shige-3p/VBFreaks.htm
但し、動的メモリやポインタを使っていないので速度はめちゃくちゃ遅いです。全く最適化されていないようで・・・
ＰＡＰＹさんどれでしょうか？判りません。ファイル名も教えて下さい。
そこじゃなかったみたいです。ごめんなさいm(--)m
それで・・・。（＾＾；
90/180/270度回転ですが自分でサンプルを作ったので試して見てください。
Option Explicit
'//指定された座標のピクセルのRGB (赤、 緑、 青) カラー値を取得するAPI
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
'//指定された座標のピクセルに 指定された色に最も近い色を設定するAPI
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
'//右90度回転
Private Sub Command1_Click()
Dim Y, X As Long
Form1.Enabled = False
Picture2.Cls
Picture2.Width = Picture1.Height
Picture2.Height = Picture1.Width
For Y = 0 To Picture1.ScaleHeight - 1
For X = 0 To Picture1.ScaleWidth - 1
Call SetPixelV(Picture2.hdc, Picture1.ScaleHeight - 1 - Y, X, GetPixel(Picture1.hdc, X, Y))
Next
Me.Caption = Y & " / " & Picture2.ScaleHeight - 1
Picture2.Refresh
DoEvents
Next
Me.Caption = ""
Picture2.Refresh
Me.Enabled = True
End Sub
'//右180度回転
Private Sub Command2_Click()
Dim Y, X As Long
Form1.Enabled = False
Picture2.Cls
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
For Y = 0 To Picture1.ScaleHeight - 1
For X = 0 To Picture1.ScaleWidth - 1
Call SetPixelV(Picture2.hdc, Picture1.ScaleWidth - 1 - X, Picture1.ScaleHeight - 1 - Y, GetPixel(Picture1.hdc, X, Y))
Next
Me.Caption = Y & " / " & Picture2.ScaleHeight - 1
Picture2.Refresh
DoEvents
Next
Me.Caption = ""
Picture2.Refresh
Me.Enabled = True
End Sub
'//右270度回転
Private Sub Command3_Click()
Dim Y, X As Long
Form1.Enabled = False
Picture2.Cls
Picture2.Width = Picture1.Height
Picture2.Height = Picture1.Width
For Y = 0 To Picture1.ScaleHeight - 1
For X = 0 To Picture1.ScaleWidth - 1
Call SetPixelV(Picture2.hdc, Y, Picture1.ScaleWidth - 1 - X, GetPixel(Picture1.hdc, X, Y))
Next
Me.Caption = Y & " / " & Picture2.ScaleHeight - 1
Picture2.Refresh
DoEvents
Next
Me.Caption = ""
Picture2.Refresh
Me.Enabled = True
End Sub
Private Sub Form_Load()
'//任意のビットマップを読込む
Picture1.Picture = LoadPicture("C:\windows\花見.bmp")
Picture1.AutoSize = True
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
Picture2.BackColor = RGB(255, 255, 255)
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
'//これは実行時には変更できないので設計時に変更してください。
If (Picture1.BorderStyle <> 0) Or (Picture2.BorderStyle <> 0) Then
MsgBox ("PictureオブジェクトのBorderStyleプロパティを「0-なし」にして下さい。")
End If
End Sub
※このサンプルはVBの標準関数を使うより高速ですがフォットレタッチソフトなどの「回転」と比べると比較にならないぐらい遅いです。また、高速化するのには一般的にGetDIBits/SetDIBitsなどのAPIを使用します。Delphiでやるとめちゃ簡単に出来るのですがVBだとちょっと・・です。（＾＾；
ＰＡＰＹさんありがとうございます。(^v^) 何とか判りました。
| ツイート |  |