ビットマップを任意の角度に回転させるには

---

ウィンドーズのＡＰＩを色々試しましたが分かりません！教えて下さい。

編集    削除

---

またビットマップを構築し直すという方法があります。
ですが、この方法は腐ってますね。(^^)

編集    削除

---

ここにサンプルがあったような気がします。
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^)  何とか判りました。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。