VB.NET自定义用户控制图形旋转

Question

这是我在这里提出的第一个问题。 我正在尝试在 VB.NET 中构建一个拨号控件作为自定义用户控件。我用的是VS2008。

到目前为止，我已成功使用graphics.rotatetransform 旋转图像。然而，这会旋转一切。现在我有一个用于表盘的位图，它应该保持稳定，还有另一个用于我需要旋转的针的位图。

到目前为止我已经尝试过这个：

Dim gL As Graphics = Graphics.FromImage(bmpLongNeedle)
    gL.TranslateTransform(bmpLongNeedle.Width / 2, bmpLongNeedle.Height * 0.74)
    gL.RotateTransform(angleLongNeedle)
    gL.TranslateTransform(-bmpLongNeedle.Width / 2, -bmpLongNeedle.Height * 0.74)
    gL.DrawImage(bmpLongNeedle, 0, 0)

据我了解，针的图像应该以角度“angleLongNeedle”旋转，尽管我将旋转的图像放置在0,0处。然而，结果是 Needle 没有绘制在控件上。

关于我可能出错的地方或者我应该做的其他事情有什么指示吗？

提前致谢

Answer 1

首先，为什么要从位图中分配 Graphics 对象，然后将其绘制到图形上？这没有道理。

Dim gL As Graphics = Graphics.FromImage(bmpLongNeedle)
' … '
gL.DrawImage(bmpLongNeedle, 0, 0)

您可能想要的是整个图像的图形上下文。然后对其应用转换并最终绘制 bmpLongNeedle 图像。

其次，你的翻译看起来是相反的：第一步，你需要将图像移动到原点 (0, 0)；然后旋转它，然后将其移回来。因此，转换应该如下所示：

gL.TranslateTransform(-bmpLongNeedle.Width * 0.5, -bmpLongNeedle.Height * 0.5)
gL.RotateTransform(angleLongNeedle)
gL.TranslateTransform(bmpLongNeedle.Width * 0.5, bmpLongNeedle.Height * 0.5)

注意 TranslateTransform 的相反顺序。另外，为什么你平移高度的 0.74 倍，而不是一半？

Answer 2

哦，针的位图的枢轴点位于 0.74 * 高度。

也许我应该之前发布这个。但这就是我所做的。

Public Class Altimeter
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim bmpBezel As New Bitmap("{path}\Altimeter_Background.bmp")
        Dim bmpLongNeedle As New Bitmap("{path}\LongNeedle.bmp")
        Dim rect2 As New Rectangle(e.ClipRectangle.X, e.ClipRectangle.Y, e.ClipRectangle.Width, e.ClipRectangle.Height)


    'make transparent
    bmpBezel.MakeTransparent(Color.Yellow)
    bmpLongNeedle.MakeTransparent(Color.Yellow)
    Dim angleLongNeedle As Single = (Altitude / 50) * 360

    'draw bezel
    e.Graphics.DrawImage(bmpBezel, rect2)

    'rotate long needle
    Dim gL As Graphics = Graphics.FromImage(bmpLongNeedle)
    gL.TranslateTransform(bmpLongNeedle.Width / 2, bmpLongNeedle.Height * 0.74)
    gL.RotateTransform(angleLongNeedle)
    gL.TranslateTransform(-bmpLongNeedle.Width / 2, -bmpLongNeedle.Height * 0.74)
    gL.DrawImage(bmpLongNeedle, 0, 0)

    MyBase.OnPaint(e)
End Sub

我使用 e.graphics.drawimage 来绘制整个图像。我真的不明白你所说的为所有图像设置图形对象然后绘制针是什么意思？你有伪代码吗？
谢谢