Question

为什么我可以在按钮下运行以下代码，甚至不在表单加载下？

For Each line As String In System.IO.File.ReadAllLines("c:\pos.xml")

    If line.Contains("<POS>") = True Then

        Dim tagless As String = StripTags(line)

        Dim parts As String() = tagless.Split(New Char() {","})
        Dim XVAL As Decimal = parts(0)
        Dim YVAL As Decimal = parts(1)

        'paint markers...
        Dim myBrush As New SolidBrush(Color.FromArgb(128, Color.Red))
        Dim formGraphics As System.Drawing.Graphics
        formGraphics = Me.PictureBox1.CreateGraphics()
        formGraphics.FillEllipse(myBrush, New Rectangle(XVAL - 35, YVAL - 35, 70, 70))

        myBrush.Dispose()
        formGraphics.Dispose()

    End If
Next

如果需要，这是striptag函数......

    Function StripTags(ByVal html As String) As String
    ' Remove HTML tags.
    Return Regex.Replace(html, "<.*?>", "")
End Function

Answer 1

CreateGraphics几乎没有正确的绘画方式。这将绘制一些不存在的东西。当区域无效时，例如表单被最小化或其他表单/应用程序被拖过它，您的形状将消失。

您还应该启用Option Strict。代码中存在许多类型错误。例如，没有Rectangle构造函数需要Decimal。对于非整数，这甚至不是正确的类，但RectangleF也不采用Decimal。

核心问题是表单在表单加载事件的末尾显示。因此，您的代码在表单可见之前运行/绘图，并且不显示任何内容。即使表单已经显示，如果用户最小化表单或在其上移动另一个窗口，则无论如何绘制也不会保留。

' form level list to store the data Private XY As New List(Of PointF) ' pts

然后在表单加载事件中，读取数据并添加到列表

For Each line As String In System.IO.File.ReadAllLines("...") If line.Contains("<POS>") = True Then Dim tagless As String = StripTags(line) ' c required under Option Strict Dim parts As String() = tagless.Split(New Char() {","c}) ' convert values to single. create a PointF Dim ptF As New PointF(Convert.ToSingle(parts(0)), Convert.ToSingle(parts(1))) ' add to list XY.Add(ptF) End If Next

接下来发生的事情应该是显示的表单和调用的paint事件。数据用于Paint Event：

Dim rectF As RectangleF Using myB As New SolidBrush(Color.FromArgb(128, Color.Red)) For Each ptF As PointF In XY rectF = New RectangleF(ptF.X - 35, ptF.Y - 35, 70, 70) e.Graphics.FillEllipse(myB, rectF) Next End Using

如果你有其他代码来添加点数据，比如按钮点击，在添加，更改或删除数据后，使用Invalidate强制重绘：Me.Invaludate()你是否正在绘制表格，或者PictureBox1.Invalidate()如果您正在控制对象。

现在的教训是，每次需要重新绘制表单时，您的形状也会重新绘制。

用于在按钮单击事件中绘制工作但不在表单加载中的代码

1 个答案: