-1

コードを実行すると、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
4

1 に答える 1

0

インスタンス化する必要がありますpen1(宣言したばかりです)。サンプルコード:

pen1 = New Pen(Brushes.Black)
于 2013-09-29T08:37:20.140 に答える