• 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

Điều hành viên: tungcan5diop, QUANITGROBEST

Hình đại diện của người dùng
1045007
Thành viên danh dự
Thành viên danh dự
Bài viết: 551
Ngày tham gia: T.Hai 09/06/2008 3:35 pm
Đến từ: TP Cần Thơ
Has thanked: 2 time
Been thanked: 64 time
Liên hệ:

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

Gửi bàigửi bởi 1045007 » T.Hai 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) Đã tải 1218 lần





Mã: Chọn hết

  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
Sửa lần cuối bởi 1045007 vào ngày T.Hai 24/11/2008 10:11 pm với 1 lần sửa.


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

master7689
Bài viết: 1
Ngày tham gia: T.Tư 19/11/2008 7:59 am

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

Gửi bàigửi bởi master7689 » T.Hai 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 .

Hình đại diện của người dùng
1045007
Thành viên danh dự
Thành viên danh dự
Bài viết: 551
Ngày tham gia: T.Hai 09/06/2008 3:35 pm
Đến từ: TP Cần Thơ
Has thanked: 2 time
Been thanked: 64 time
Liên hệ:

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

Gửi bàigửi bởi 1045007 » T.Hai 24/11/2008 8:21 pm

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

Mã: Chọn hết

  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
♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀

Hình đại diện của người dùng
bangnhatquang68
Guru
Guru
Bài viết: 791
Ngày tham gia: T.Ba 26/01/2010 12:44 pm
Đến từ: Vĩ tuyến 17
Has thanked: 20 time
Been thanked: 38 time
Liên hệ:

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

Gửi bàigửi bởi bangnhatquang68 » T.Năm 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/


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

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách