Question

您好我想知道如何在表单外使用DrawString，所以即使表单关闭，我也能看到鼠标的坐标。

有人可以帮忙吗？

Answer 1

你总是需要一个表格来画画。诀窍在于除了文本之外的所有关于表单的内容都是不可见的。这可以通过使用表单Backcolor和TransparencyKey属性来完成。以此表格为例。

Public Class Form1
    Dim WithEvents timer As New Timer With {.Interval = 500}
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Pink
        Me.TransparencyKey = Color.Pink
        Me.TopMost = True
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        timer.Start()
    End Sub

    Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
        Using g As Graphics = Me.CreateGraphics
            g.Clear(Color.Pink)
            g.DrawString(MousePosition.ToString, New Font("Arial", 20), Brushes.Red, New PointF(10, 10))
        End Using
    End Sub
End Class

表单上具有TransparencyKey颜色的每种颜色都是透明的。这使得您在表单上绘制的文本只显示。设置TopMost属性以防止表单落后于其他应用程序。

如何在表单vb.net之外使用DrawString

1 个答案: