2

これは機能します。パネルに単純な長方形を描画します。

    Dim g As Graphics
    Dim fPen As Pen
    g = aPanel.CreateGraphics()

    fPen = New Pen(Color.Blue)
    Dim PointX As Point = New Point(10, 20)
    Dim PointY As Point = New Point(50, 50)

    g.DrawRectangle(fPen, PointY.X, PointY.Y, 50, 50)

すべてがオブジェクトですが、このractangleをどのように参照しますか？
後でコードで楕円を作成するとき（つまり、長方形に楕円を描くとき）、この長方形を引数の1つとして使用したいのですが、なぜ次のことができないのですか？

    Dim g As Graphics
    Dim fPen As Pen
    g = aPanel.CreateGraphics()

    fPen = New Pen(Color.Blue)
    Dim PointX As Point = New Point(10, 20)
    Dim PointY As Point = New Point(50, 50)

    Dim r As Rectangle
    r = New Rectangle(g.DrawRectangle(fPen, PointY.X, PointY.Y, 50, 50)) '<<<errors here
    g.DrawEllipse(fPen, r)
4

2 に答える 2

1

長方形を宣言し、その値を使用します。

Dim r As New Rectangle(10, 50, 50, 50)

g.DrawRectangle(fPen, r.Location.X, r.Location.Y, r.Width, r.Height)
g.DrawEllipse(fPen, r)
于 2013-03-08T08:45:13.597 に答える
1

オブジェクトのDrawRectangleメソッドは、であるためGraphics、値を返しませんSub。

最初にのインスタンスを作成するRectangle必要があります。このインスタンスを後で使用して、長方形と楕円を描画できます。

Dim pointY As New Point(50, 50)
Dim rectSize As New Size(50, 50)
Dim rect As New Rectangle(pointY, rectSize)

g.DrawRectangle(fPen, rect)
g.DrawEllipse(fPen, rect)
于 2013-03-08T08:46:46.557 に答える