VB.net创建画布写文字时怎么让文字旋转90度

在VB.NET中，如果你想要在Canvas上绘制的文字进行旋转，你可以使用`DrawString`方法结合`Graphics.Transform.RotateTransform`来实现文字的旋转。以下是一个基本步骤：

1. 首先，你需要创建一个`Graphics`对象，通常是在处理控件的`Paint`事件时获取的。例如，对于一个`Panel`或`PictureBox`：

Dim g As Graphics = e.Graphics

在这里，`e`是你在 Paint 事件处理器中的参数。

2. 然后，设置旋转中心点（通常是文字的左上角）。如果你想将整个文本框旋转，可以使用`Point.Empty`；如果只旋转某个特定位置的文字，传入该文字的位置坐标：

Dim rotationCenter As New Point(textBoxWidth / 2, textboxHeight / 2)
g.Transform.Translate(rotationCenter.X, rotationCenter.Y) ' 移动到旋转中心

`textBoxWidth`和`textboxHeight`分别表示你要旋转的文字区域的宽度和高度。

3. 接下来，应用旋转操作：

g.RotateTransform(90) ' 设置旋转角度（这里是90度）

4. 绘制你的文字：

g.DrawString(yourText, yourFont, Brushes.Black, 0, 0) ' `yourText`是你要显示的字符串，`yourFont`是字体对象

5. 最后，恢复原始变换，以便后续绘制不会受到影响：

g.ResetTransform()

完整的代码示例：

Protected Overrides Sub OnPaint(e As PaintEventArgs)
    Dim g As Graphics = e.Graphics
    Dim rotationCenter As New Point(Me.Width / 2, Me.Height / 2)
    g.TranslateTransform(rotationCenter.X, rotationCenter.Y)
    g.RotateTransform(90)
    Dim yourText As String = "你的文字"
    Dim yourFont As Font = New Font("Arial", 12) ' 选择你的字体和大小
    g.DrawString(yourText, yourFont, Brushes.Black, 0, 0)
    g.ResetTransform()
    MyBase.OnPaint(e)
End Sub