vb.net角度转换 vb转vbnet

vb中 , 怎么可以把一张图片旋转起来这个问题不是小问题 。如果只是90度转,vb.net的picture控件有RotateFlip方法 。
任意角度,可以参考这个
;cs-lang=csharp
图片的变换涉及坐标处理,要自己算 。
还有可以用Windows Presentation Foundation (WPF) 编程,里面的image控件好像也能旋转图片 。
如果是VB6 , 恐怕只能用API函数了,百度一下“vb 旋转图片”“VB api函数”了解一下
vb.net 坐标的转化也就是A(x,y)-------A'(y*sin(x*pi/180),y*cos(x*pi/180))------------前提是先vb.net角度转换:
Dim g As Graphics = Me.PictureBox1.CreateGraphics
g.TranslateTransform(x, y)'实现坐标平移vb.net角度转换,即把圆中心作为了坐标原点了-----该处vb.net角度转换的x,y为圆心在要作图picture中vb.net角度转换的相对坐标
g.ScaleTransform(1, -1)'X轴不变vb.net角度转换,反转Y轴
大佬们~VisualStudio中vb.net如何画三角函数图像?VB系统的坐标原点在左上角,X轴的正方向是水平向右,而Y轴的正方向是垂直向下 。所以 , 要绘制三角函数的曲线,自己可以通过改变点坐标的方法来实现,当然,VB.NET提供了相应的方法可以来实现坐标变换 , 也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现 。
下面是我通过自己变换实现的示例,提供参考;我的环境是VB.NET 2010
Imports System.Math
Public Class Form1
【vb.net角度转换 vb转vbnet】Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2 , 定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3 , 定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
'声明横向和纵向比例变量
Dim Heng As Integer = 20
Dim Zong As Integer = 50
'先获得正弦值,保存到点坐标数组
Dim MyPoints(700) As Point
Dim i As Integer
For i = 0 To 700
MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)
Next
'采用绘制光滑线连接点的方式绘制曲线
MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
显示的效果图:
高分求助,如何在VB.NET中做任意角度的旋转字体文字编辑结束后,选择“移动”工具(工具箱第一个工具 , 快捷键V),然后按Ctrl+T快捷键进行“自由变换”,会在文字上出现控制框,把鼠标移到控制框外边指针就会变成旋转的样式,按住鼠标左键拖动就可以进行任意角度旋转了 。
vb.net角度转换的介绍就聊到这里吧 , 感谢你花时间阅读本站内容,更多关于vb转vbnet、vb.net角度转换的信息别忘了在本站进行查找喔 。

    推荐阅读