| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #2053 [Vb] (จาก IP: 58.64.115.16)
โค้ดการหมุนรูปภาพ
อยากได้โค้ดการหมุนรูปภาพให้ได้ตามองศาที่ต้องการ
|
| จากคุณ
:
ball / ball_mtet@hotmail.com [2008-06-08 18:57:49]
|
|
ความคิดเห็น #26843 (จาก IP: 58.8.251.38)
Private Sub btnRotate_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnRotate.Click
' Copy the output bitmap from the source image.
Dim bm_in As New Bitmap(picSource.Image)
' Make an array of points defining the
' image's corners.
Dim wid As Single = bm_in.Width
Dim hgt As Single = bm_in.Height
Dim corners As Point() = { _
New Point(0, 0), _
New Point(wid, 0), _
New Point(0, hgt), _
New Point(wid, hgt)}
' Translate to center the bounding box at the origin.
Dim cx As Single = wid / 2
Dim cy As Single = hgt / 2
Dim i As Long
For i = 0 To 3
corners(i).X -= cx
corners(i).Y -= cy
Next i
' Rotate.
Dim theta As Single = Single.Parse(txtAngle.Text) * PI _
/ 180.0
Dim sin_theta As Single = Sin(theta)
Dim cos_theta As Single = Cos(theta)
Dim X As Single
Dim Y As Single
For i = 0 To 3
X = corners(i).X
Y = corners(i).Y
corners(i).X = X * cos_theta + Y * sin_theta
corners(i).Y = -X * sin_theta + Y * cos_theta
Next i
' Translate so X >= 0 and Y >=0 for all corners.
Dim xmin As Single = corners(0).X
Dim ymin As Single = corners(0).Y
For i = 1 To 3
If xmin > corners(i).X Then xmin = corners(i).X
If ymin > corners(i).Y Then ymin = corners(i).Y
Next i
For i = 0 To 3
corners(i).X -= xmin
corners(i).Y -= ymin
Next i
' Create an output Bitmap and Graphics object.
Dim bm_out As New Bitmap(CInt(-2 * xmin), CInt(-2 * _
ymin))
Dim gr_out As Graphics = Graphics.FromImage(bm_out)
' Drop the last corner lest we confuse DrawImage,
' which expects an array of three corners.
ReDim Preserve corners(2)
' Draw the result onto the output Bitmap.
gr_out.DrawImage(bm_in, corners)
' Display the result.
picDest.Image = bm_out
End Sub
In this example, picDest has SizeMode = AutoSize so the control automatically resizes to fit the image.
|
| จากคุณ
:
sup98 [2008-06-09 08:34:13]
|
|
ความคิดเห็น #26847 (จาก IP: 58.64.115.211)
เอาไปใช้ยังไงละคับ
พิมไปแล้วมันเออเร้อ |
| จากคุณ
:
ball / ball_mtet@hotmail.com [2008-06-09 21:35:06]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
