• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Kỹ Thuật Xoay Ảnh Quanh 1 Điểm

Các thủ thuật về truyền thông đa phương tiện, đồ họa

Moderators: tungcan5diop, QUANITGROBEST

User avatar
1045007
Thành viên danh dự
Thành viên danh dự
Posts: 551
Joined: Mon 09/06/2008 3:35 pm
Location: TP Cần Thơ
Has thanked: 2 times
Been thanked: 64 times
Contact:

Kỹ Thuật Xoay Ảnh Quanh 1 Điểm

Postby 1045007 » Mon 24/11/2008 4:32 pm

Thủ thuật: Xoay ảnh quanh 1 điểm
Tác giả: 1045007
Mô tả: Xoay theo 1 góc quanh 1 điểm chỉ định. Trong bài là xoay 1 elip tại tâm của nó.


Xoay Anh.rar
(46.58 KiB) Downloaded 1257 times





Code: Select all

  1. Imports System.Drawing.Imaging
  2. Imports System.Drawing
  3. Imports System.Drawing.Drawing2D
  4.  
  5. Dim gp As Graphics
  6.  
  7.     Private Sub VeElip(ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As Integer)
  8.         'Khai bao 1 cai thung chua cai can ve
  9.         Dim con As GraphicsContainer
  10.         con = gp.BeginContainer()
  11.         've 6 cai
  12.         For i As Short = 1 To 6
  13.             con = gp.BeginContainer()
  14.             Dim rotateMatrix As New Matrix
  15.  
  16.             'Xoay 1 goc = 30 do, tai tieu cu cua Elip
  17.             rotateMatrix.RotateAt(30.0F, New PointF((x + w / 2), (y + h / 2)))
  18.             gp.Transform = rotateMatrix
  19.  
  20.             gp.SmoothingMode = SmoothingMode.AntiAlias 'che do ve muot
  21.             gp.DrawEllipse(New Pen(Color.Black), x, y, w, h)
  22.             rotateMatrix.Dispose()
  23.         Next
  24.         gp.EndContainer(con) 'Dong cai thung lai
  25.     End Sub
  26.  
  27.     Private Sub bt_ve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_ve.Click
  28.         VeElip(Me.Width / 2, 100, 45, 250)
  29.     End Sub
  30.    
  31.     Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
  32.         gp = Me.CreateGraphics
  33.     End Sub
Last edited by 1045007 on Mon 24/11/2008 10:11 pm, edited 1 time in total.


Xếp hình cổ điển for Android-https://play.google.com
♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀

master7689
Posts: 1
Joined: Wed 19/11/2008 7:59 am

Re: Kỹ Thuật Xoay Ảnh Quanh 1 Điểm

Postby master7689 » Mon 24/11/2008 7:50 pm

em cám ơn anh nhiều lắm , nhưng mà anh ơi cho em nhờ anh 1 tí nữa thui , làm sao để mình cho mỗi cái elip là mỗi màu khác nhau với lại mấy cái điểm tròn nằm trên mỗi cái elip ấy , lỡ rồi anh giúp em cái nha, làm không đúng lỡ bà cô bắt lỗi thiếu cái này thiếu cái kia thì công sức bữa giờ hic hic. bà cô bã yêu cầu là mình chỉ cần vẽ 1 cái elip thôi rồi sau đó sau 5 giây chẳng hạn cái hình elip nó sẽ xoay nhưng anh giúp em như zầy là em quí anh lắm rồi .

User avatar
1045007
Thành viên danh dự
Thành viên danh dự
Posts: 551
Joined: Mon 09/06/2008 3:35 pm
Location: TP Cần Thơ
Has thanked: 2 times
Been thanked: 64 times
Contact:

Re: Kỹ Thuật Xoay Ảnh Quanh 1 Điểm

Postby 1045007 » Mon 24/11/2008 8:21 pm

- Muốn mỗi cái cái là màu ngẫu nhiên thì:

Code: Select all

  1. Dim rd as New Random
  2. Dim color as Color
  3. color=Color.FromArgb(rd.Next(255),rd.Next(255),rd.Next(255))

Rồi lấy cái màu này mà dùng.
- Còn vẽ cái hình tròn thì cứ vẽ đại đi miễn nó nằm trên cái Elip là đc! khi xoay thì tụi nó cũng xoay theo thôi!
Xếp hình cổ điển for Android-https://play.google.com
♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀

User avatar
bangnhatquang68
Guru
Guru
Posts: 791
Joined: Tue 26/01/2010 12:44 pm
Location: Vĩ tuyến 17
Has thanked: 20 times
Been thanked: 38 times
Contact:

Re: Kỹ Thuật Xoay Ảnh Quanh 1 Điểm

Postby bangnhatquang68 » Thu 14/04/2011 4:28 pm

xoay gì không xoay.
đi xoay cái hình elip làm tui đọc phát điên luôn.
cuối cùng mò mãi cũng hiểu ra.
cảm ơn bạn, nhưng lần sau có hướng dẫn thì đừng xoay hình tròn với elip, mà bạn nên xoay hình chủ nhật, đa giác nhé!
đọc xong mất luôn mất kcal. ^:)^ ^:)^
Mời anh em lên facebook giao lưu nào!
http://www.facebook.com/groups/145823032176611/


Return to “[.NET] Âm thanh và Đồ họa”

Who is online

Users browsing this forum: No registered users and 0 guests