正文
vb.net角度转换 vb转vbnet
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb中，怎么可以把一张图片旋转起来
这个问题不是小问题。如果只是90度转，vb.net的picture控件有RotateFlip方法。
任意角度，可以参考这个
;cs-lang=csharp
图片的变换涉及坐标处理，要自己算。
还有可以用Windows Presentation Foundation (WPF) 编程，里面的image控件好像也能旋转图片。
如果是VB6，恐怕只能用API函数了，百度一下“vb 旋转图片” “VB api函数”了解一下
相关问答
Q1: 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轴
Q2: 大佬们~VisualStudio中vb.net如何画三角函数图像？
VB系统的坐标原点在左上角，X轴的正方向是水平向右，而Y轴的正方向是垂直向下。所以，要绘制三角函数的曲线，自己可以通过改变点坐标的方法来实现，当然，VB.NET提供了相应的方法可以来实现坐标变换，也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现。
下面是我通过自己变换实现的示例，提供参考；我的环境是VB.NET 2010
Imports System.Math
Public Class Form1
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
显示的效果图：
Q3: 高分求助，如何在VB.NET中做任意角度的旋转字体
文字编辑结束后，选择“移动”工具（工具箱第一个工具，快捷键V），然后按Ctrl+T快捷键进行“自由变换”，会在文字上出现控制框，把鼠标移到控制框外边指针就会变成旋转的样式，按住鼠标左键拖动就可以进行任意角度旋转了。
vb.net角度转换的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb转vbnet、vb.net角度转换的信息别忘了在本站进行查找喔。
