< 返回技术文档列表

VB.NET中心旋转图像的实现方法

发布时间:2021-09-01 02:14:18⊙投诉举报

这篇文章主要讲解了“VB.NET中心旋转图像的实现方法”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“VB.NET中心旋转图像的实现方法”吧!

我们在学习一门编程语言的时候,需要通过不断的实践去积累经验,来加深我们对这门语言的理解程度。对于VB.NET的学习同样也是如此。在这里我们先通过一段VB.NET中心旋转图像的实现代码来初步的了解一下这门语言的编写方式和应用方法。

鼠标拖拽旋转。实现任意角度的VB.NET中心旋转图像。

  1. Public Class Form1  

  2. Dim bmp As Bitmap  

  3. Dim bmpsize As Single  

  4. Dim gr As Graphics  

  5. Dim pb As Point  

  6. Dim po As PointF  

  7. Private Sub Form1_Load(ByVal sender As 
    System.Object, ByVal e As System.EventArgs)
     Handles MyBase.Load  

  8. bmpsize = Math.Sqrt(Me.Icon.Width ^ 
    2 + Me.Icon.Height ^ 2)  

  9. bmp = New Bitmap(CInt(bmpsize), CInt(bmpsize))  

  10. gr = Graphics.FromImage(bmp)  

  11. po = New PointF((bmpsize - Me.Icon.Width) 
    / 2, (bmpsize - Me.Icon.Height) / 2)  

  12. gr.DrawIcon(Me.Icon, po.X, po.Y)  

  13. PictureBox1.Image = bmp 

  14. End Sub  

  15. Private Sub PictureBox1_MouseDown(ByVal 
    sender As Object, ByVal e As System.Windows.
    Forms.MouseEventArgs) Handles PictureBox1.MouseDown  

  16. pb = e.Location  

  17. End Sub  

  18. Private Sub PictureBox1_MouseMove(ByVal 
    sender As Object, ByVal e As System.Windows.
    Forms.MouseEventArgs) Handles PictureBox1.MouseMove  

  19. If Not pb = Point.Empty Then  

  20. 'O\-----------B  

  21. ' \   

  22. ' \  

  23. ' \  

  24. ' E  

  25. Dim vOB, vOE As Windows.Vector  

  26. vOB = New Windows.Vector(bmpsize / 2, 
    bmpsize / 2) - New Windows.Vector(pb.X, pb.Y)  

  27. vOE = New Windows.Vector(bmpsize / 2, bmpsize / 2)
     - New Windows.Vector(e.X, e.Y)  

  28. '可以用叉乘求面积,正负号代表旋转方向,而后正弦定理求角度,  

  29. Dim O As Double = Windows.Vector.AngleBetween(vOB, vOE)  

  30. '若角度为有效值  

  31. gr.TranslateTransform(bmpsize / 2, bmpsize / 2) 
    '移动坐标至图像中心  

  32. gr.RotateTransform(O) '按角度旋转  

  33. gr.TranslateTransform(-bmpsize / 2, -bmpsize / 2)
     '移回  

  34. gr.Clear(Color.Transparent) '清除原有图像  

  35. gr.DrawIcon(Me.Icon, po.X, po.Y) '绘制新图像  

  36. PictureBox1.Image = bmp 

  37. pb = e.Location  

  38. End If  

  39. End Sub  

  40. Private Sub PictureBox1_MouseUp(ByVal sender As 
    Object, ByVal e As System.Windows.Forms.MouseEventArgs) 
    Handles PictureBox1.MouseUp  

  41. pb = Point.Empty  

  42. End Sub  

  43. End Class 

感谢各位的阅读,以上就是“VB.NET中心旋转图像的实现方法”的内容了,经过本文的学习后,相信大家对VB.NET中心旋转图像的实现方法这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是血鸟云,小编将为大家推送更多相关知识点的文章,欢迎关注!


/template/Home/Zkeys/PC/Static