vb.net - GUI不会相应移动

Question

我试图以图形方式显示俯仰，横滚和偏航指示，因此我在Visual Basic中使用用户控件来构建GUI。这只是我的GUI代码。

Private g As Graphics

Private _roll_angle As Double
Public Property roll_angle() As Double
    Get
        Return _roll_angle
    End Get
    Set(ByVal value As Double)
        _roll_angle = value
        Invalidate()
    End Set
End Property
Private _pitch_angle As Double
Public Property pitch_angle() As Double
    Get
        Return _pitch_angle
    End Get
    Set(ByVal value As Double)
        _pitch_angle = value
        Invalidate()
    End Set
End Property


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

End Sub

Private Function pitch_to_pix(ByVal pitch As Double) As Integer
    Return pitch / 35.0 * Me.Height / 2
    'Return pitch / 45.0 * Me.Height / 2
End Function

Private Sub ArtificialHorizon_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    g = e.Graphics
    g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

    g.Clear(Me.BackColor)
    Dim sin As Double = Math.Sin(roll_angle / 180 * 3.14)

    g.ResetTransform()
    '        g.FillRegion(Brushes.White, New Region(New Rectangle(0, 0, Me.Width, Me.Height)))

    ' rounded rectangle
    Dim path As New Drawing2D.GraphicsPath()
    Dim r As Single = 50
    path.AddArc(0, 0, r, r, 180, 90)
    path.AddArc(Me.Width - r, 0, r, r, 270, 90)
    path.AddArc(Me.Width - r, Me.Height - r, r, r, 0, 90)
    path.AddArc(0, Me.Height - r, r, r, 90, 90)
    'path.AddEllipse(0, 0, Me.Width, Me.Height)
    path.CloseFigure()
    g.SetClip(path)

    g.TranslateTransform(Me.Width / 2, Me.Height / 2)

    g.RotateTransform(roll_angle)
    g.TranslateTransform(0, pitch_to_pix(pitch_angle))

    ' chocolate
    Dim b As New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(-Me.Width, 0, Me.Height * 2, Me.Width * 2), Color.FromArgb(255, 219, 140, 21), Color.Brown, Drawing2D.LinearGradientMode.Vertical)
    g.FillRectangle(b, New RectangleF(-Me.Width * 2, +1, Me.Height * 4, Me.Width * 4))

    g.RotateTransform(180)

    ' color.aqua
    b = New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(-Me.Width, -1, Me.Height * 2, Me.Width * 2), Color.FromArgb(255, 28, 134, 186), Color.DarkBlue, Drawing2D.LinearGradientMode.Vertical)
    g.FillRectangle(b, New RectangleF(-Me.Width * 2, 0, Me.Height * 4, Me.Width * 4))




    g.ResetTransform()
    Dim w2 As Single = Me.Width / 2
    Dim s As Single = Me.Width / 38
    g.TranslateTransform(Me.Width / 2, Me.Height / 2)
    g.RotateTransform(45)
    g.TranslateTransform(-w2 + s, 0)
    g.DrawLine(New Pen(Color.White, 2), 0, 0, s * 2, 0)
    g.TranslateTransform(+w2 - s, 0)
    g.RotateTransform(15)
    g.DrawLine(New Pen(Color.White, 2), -w2 + s, 0, -w2 + s * 2, 0)
    g.RotateTransform(15)
    g.DrawLine(New Pen(Color.White, 2), -w2 + s, 0, -w2 + s * 2, 0)
    g.RotateTransform(15)
    g.DrawLine(New Pen(Color.White, 2), -w2 + s, 0, -w2 + s * 3, 0)
    'g.DrawString("0°", New System.Drawing.Font("sans-serif", 9), Brushes.White, -w2 + 40, -4)
    g.RotateTransform(15)
    g.DrawLine(New Pen(Color.White, 2), -w2 + s, 0, -w2 + s * 2, 0)
    g.RotateTransform(15)
    g.DrawLine(New Pen(Color.White, 2), -w2 + s, 0, -w2 + s * 2, 0)
    g.RotateTransform(15)
    g.DrawLine(New Pen(Color.White, 2), -w2 + s, 0, -w2 + s * 3, 0)
    'g.DrawString("+45°", New System.Drawing.Font("sans-serif", 9), Brushes.White, -w2 + 40, -4)


    g.ResetTransform()

    Dim length As Single = Me.Width / 4
    Dim notch As Single = Me.Width / 30
    g.TranslateTransform(Me.Width / 2, Me.Height / 2)
    g.DrawLine(New Pen(Color.White, 3), -length + notch * 2, 0, -notch, 0)
    g.DrawLine(New Pen(Color.White, 3), notch, 0, length - notch * 2, 0)
    g.DrawArc(New Pen(Color.White, 3), -notch, -notch, notch * 2, notch * 2, 180, -180)

    g.ResetTransform()

    ' driehoekje
    Dim ww As Single = Me.Width / 38
    g.TranslateTransform(Me.Width / 2, Me.Height / 2)
    g.RotateTransform(-90 + roll_angle)
    path = New Drawing2D.GraphicsPath()
    path.AddLine(w2 - ww * 3, 0, w2 - ww * 4, ww)
    path.AddLine(w2 - ww * 4, -ww, w2 - ww * 4, ww)
    path.AddLine(w2 - ww * 4, -ww, w2 - ww * 3, 0)
    g.FillRegion(Brushes.White, New Region(path))
    g.DrawLine(New Pen(Color.White, 1), w2 - ww * 3, 0, w2 - ww * 4, ww)
    g.DrawLine(New Pen(Color.White, 1), w2 - ww * 4, -ww, w2 - ww * 4, ww)
    g.DrawLine(New Pen(Color.White, 1), w2 - ww * 4, -ww, w2 - ww * 3, 0)



    g.ResetTransform()
    g.ResetClip()
    path = New Drawing2D.GraphicsPath()
    path.AddPie(New Rectangle(ww * 3, ww * 3, Me.Width - ww * 6, Me.Height - ww * 6), 0, 360)
    g.SetClip(path)

    g.TranslateTransform(Me.Width / 2, Me.Height / 2)
    g.RotateTransform(roll_angle)
    g.TranslateTransform(0, pitch_to_pix(pitch_angle))
    For i As Integer = -80 To 80 Step 10
        drawpitchline(g, i)
    Next i

End Sub

Private Sub drawpitchline(ByVal g As Graphics, ByVal pitch As Double)
    Dim w As Single = Me.Width / 8
    g.DrawLine(Pens.White, -w, pitch_to_pix(-pitch + 5), w, pitch_to_pix(-pitch + 5))
    g.DrawLine(Pens.White, -w * 5 / 3, pitch_to_pix(-pitch), w * 5 / 3, pitch_to_pix(-pitch))
    g.DrawString(pitch, Me.Font, Brushes.White, -w * 75 / 30, pitch_to_pix(-pitch) - 5)
    g.DrawString(pitch, Me.Font, Brushes.White, w * 2, pitch_to_pix(-pitch) - 5)
End Sub

Private Sub drawrollline(ByVal g As Graphics, ByVal a As Single)
    Dim w2 As Single = Me.Width / 2


    g.RotateTransform(a + 90)
    g.TranslateTransform(-w2 + 10, 0)
    g.DrawLine(Pens.White, 0, 0, 20, 0)
    g.TranslateTransform(10, 5)
    g.RotateTransform(-a - 90)
    g.DrawString("" & (a) & "°", New System.Drawing.Font("sans-serif", 9), Brushes.White, 0, 0)
    g.RotateTransform(+90 + a)
    g.TranslateTransform(-10, -5)
    g.TranslateTransform(+w2 - 10, 0)
    g.RotateTransform(-a - 90)
End Sub

然后我添加了一个按钮以提供一些测试读数。下面的代码

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    AH.roll_angle = 45
    AH.pitch_angle = 10
End Sub

当单击按钮时，GUI应该根据输入旋转/旋转。但是，它仍然保持静止(顺便说一句，代码能够调试您并且图形确实显示了)。我相信这是因为我在画中没有提到AH变量。有人可以给我指导吗？

提前致谢!

Answer 1

我可能有一些可以使用的东西，我创建了它来显示抛物面天线的方位角。

标题使用的是简单的笔

叠加在圆圈图像

的顶部

笔将根据移动的程度旋转

带有 3个主要功能

DrawAntenna()->绘制笔/线

FindPointOnCircle()->查找笔的终点(起点始终位于圆心)

RotateAntenna()->这将旋转笔并相应地更新图像

从您的函数(例如TextChanged)中调用RotateAntenna，并将更改角度传递给RotateAntenna

一个关键的事情是只要角度改变就刷新图像，这将提供旋转效果。

我建议在不同的线程上进行此操作，以免使主线程陷入困境，因为通常，用于azm / elv / roll的数据采集将连续进行。

向下查看代码:

Private Function FindPointOnCircle(ByVal originPoint As Point, ByVal radius As Double, ByVal angleDegrees As Double) As Point
        Dim x As Double = radius * Math.Cos(Math.PI * angleDegrees / 180.0) + originPoint.X
        Dim y As Double = radius * Math.Sin(Math.PI * angleDegrees / 180.0) + originPoint.Y
        Return New Point(x, y)
 End Function

Private Sub DrawAntenna(ByVal originPoint As Point, ByVal endPoint As Point, ByVal g As Graphics, Optional ByVal aPen As Pen = Nothing)
        If aPen Is Nothing Then
            Using BluePen = New Pen(Color.Blue)
                BluePen.Width = 2
                g.DrawLine(BluePen, originPoint.X, originPoint.Y, endPoint.X, endPoint.Y)
            End Using
        Else
            g.DrawLine(aPen, originPoint.X, originPoint.Y, endPoint.X, endPoint.Y)
        End If
    End Sub

Private Sub RotateAntenna(ByVal ang As Double, ByVal g As Graphics, ByVal typeOfDisplay As Integer)

        ' Radius of 95% of half the width of the panel
        Dim radius As Double = (Me.picDestTop.Width / 2) * 0.95

        ' Origin half of width and height of panel
        Dim origin As New Point(Me.picDestTop.Width / 2, Me.picDestTop.Height / 2)
        Select Case typeOfDisplay

            Case displayAntenna.DisplayTop
                'rotate start at 270deg, pointing up

                Dim antennaDegrees As Double = ang + 170
                'find point
                Dim secondsPoint As Point = FindPointOnCircle(origin, radius, antennaDegrees)
                Using p As New Pen(Color.Red)
                    p.Width = 5
                    DrawAntenna(origin, secondsPoint, g, p)
                End Using


            Case displayAntenna.DisplaySide
               'display elevation

            Case displayAntenna.DisplayRoll
               'display pitch


        End Select

        g.Dispose()

    End Sub

'azimuth
    Private Sub lblEncCurrent_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblEncCurrent.TextChanged
        Dim iint As Double
        Me.picDestTop.Refresh()
        iint = CDbl(lblEncCurrent.Text)
        If iint >= 360 Then
            iint = iint - 360
        End If
        RotateAntenna(iint, Me.picDestTop.CreateGraphics, displayAntenna.DisplayTop)
    End Sub

希望对您有所帮助!谢谢。