共用方式為


VisualStyleElement.Window.FrameRight.Active 屬性

定義

取得視覺化樣式項目,表示現用視窗的右框線。

public:
 static property System::Windows::Forms::VisualStyles::VisualStyleElement ^ Active { System::Windows::Forms::VisualStyles::VisualStyleElement ^ get(); };
public static System.Windows.Forms.VisualStyles.VisualStyleElement Active { get; }
static member Active : System.Windows.Forms.VisualStyles.VisualStyleElement
Public Shared ReadOnly Property Active As VisualStyleElement

屬性值

VisualStyleElement,表示現用視窗的右框線。

範例

下列程式碼範例示範如何使用 屬性所傳回的 Active 建立 VisualStyleElementVisualStyleRenderer 。 若要執行此範例,請將它貼到 Windows Form 中。 處理表單的事件 Paint ,並從事件處理方法呼叫 DrawVisualStyleElementWindowFrameRight1 方法 Paint ,並 e 傳遞為 PaintEventArgs

public void DrawVisualStyleElementWindowFrameRight1(PaintEventArgs e)
{
    if (VisualStyleRenderer.IsElementDefined(
        VisualStyleElement.Window.FrameRight.Active))
    {
        VisualStyleRenderer renderer =
             new VisualStyleRenderer(VisualStyleElement.Window.FrameRight.Active);
        Rectangle rectangle1 = new Rectangle(10, 50, 50, 50);
        renderer.DrawBackground(e.Graphics, rectangle1);
        e.Graphics.DrawString("VisualStyleElement.Window.FrameRight.Active",
             this.Font, Brushes.Black, new Point(10, 10));
    }
    else
        e.Graphics.DrawString("This element is not defined in the current visual style.",
             this.Font, Brushes.Black, new Point(10, 10));
}
Public Sub DrawVisualStyleElementWindowFrameRight1(ByVal e As PaintEventArgs)
    If (VisualStyleRenderer.IsElementDefined( _
     VisualStyleElement.Window.FrameRight.Active)) Then
        Dim renderer As New VisualStyleRenderer _
          (VisualStyleElement.Window.FrameRight.Active)
        Dim rectangle1 As New Rectangle(10, 50, 50, 50)
        renderer.DrawBackground(e.Graphics, rectangle1)
        e.Graphics.DrawString("VisualStyleElement.Window.FrameRight.Active", _
          Me.Font, Brushes.Black, New Point(10, 10))
    Else
        e.Graphics.DrawString("This element is not defined in the current visual style.", _
          Me.Font, Brushes.Black, New Point(10, 10))
    End If
End Sub

備註

您可以使用 VisualStyleElement 屬性傳回的 Active 來建立 VisualStyleRenderer

適用於