pen1上的错误对象引用未设置为对象的实例

Question

当我运行代码时，我在pen1上收到错误，说对象引用没有设置为对象的实例

Dim pen1 As Pen
.
.
.
.
    Private Sub setDash()





    Select Case selectDash
        Case 1

            pen1.DashStyle = Drawing2D.DashStyle.Dash
        Case 2
            pen1.DashStyle = Drawing2D.DashStyle.Dot
        Case 3
            pen1.DashStyle = Drawing2D.DashStyle.DashDot
        Case 4
            pen1.DashStyle = Drawing2D.DashStyle.DashDotDot
        Case 5
            pen1.DashStyle = Drawing2D.DashStyle.Solid
    End Select
End Sub

Answer 1

您必须实例化pen1（您刚刚声明了它）。示例代码：

pen1 = New Pen(Brushes.Black)