Freigeben über


FontDialog.ShowEffects Eigenschaft

Definition

Ruft einen Wert ab, der angibt, ob das Dialogfeld Steuerelemente enthält, mit denen der Benutzer Optionen zum Durchstreichen, Unterstreichen und für die Textfarbe angeben kann, oder legt diesen fest.

public:
 property bool ShowEffects { bool get(); void set(bool value); };
public bool ShowEffects { get; set; }
member this.ShowEffects : bool with get, set
Public Property ShowEffects As Boolean

Eigenschaftswert

true, wenn das Dialogfeld Steuerelemente enthält, mit denen das Durchstreichen, Unterstreichen und die Textfarbe festgelegt werden können, andernfalls false. Der Standardwert ist true.

Beispiele

Das folgende Codebeispiel veranschaulicht die Verwendung der MinSizeMember , MaxSizeund ShowEffects und FontMustExist sowie die Behandlung des Ereignisses Apply . Fügen Sie zum Ausführen dieses Beispiels den folgenden Code in ein Formular ein, das einen FontDialog benannten FontDialog1 und einen Button mit dem Namen Button1enthält.

void Button1_Click( System::Object^ sender, System::EventArgs^ e )
{
   // Set FontMustExist to true, which causes message box error
   // if the user enters a font that does not exist. 
   FontDialog1->FontMustExist = true;
   
   // Associate the method handling the Apply event with the event.
   FontDialog1->Apply += gcnew System::EventHandler( this, &Form1::FontDialog1_Apply );
   
   // Set a minimum and maximum size to be
   // shown in the FontDialog.
   FontDialog1->MaxSize = 32;
   FontDialog1->MinSize = 18;
   
   // Show the Apply button in the dialog.
   FontDialog1->ShowApply = true;
   
   // Do not show effects such as Underline
   // and Bold.
   FontDialog1->ShowEffects = false;
   
   // Save the existing font.
   System::Drawing::Font^ oldFont = this->Font;
   
   //Show the dialog, and get the result
   System::Windows::Forms::DialogResult result = FontDialog1->ShowDialog();
   
   // If the OK button in the Font dialog box is clicked, 
   // set all the controls' fonts to the chosen font by calling
   // the FontDialog1_Apply method.
   if ( result == ::DialogResult::OK )
   {
      FontDialog1_Apply( this->Button1, gcnew System::EventArgs );
   }
   // If Cancel is clicked, set the font back to
   // the original font.
   else
   
   // If Cancel is clicked, set the font back to
   // the original font.
   if ( result == ::DialogResult::Cancel )
   {
      this->Font = oldFont;
      System::Collections::IEnumerator^ myEnum = this->Controls->GetEnumerator();
      while ( myEnum->MoveNext() )
      {
         Control^ containedControl = safe_cast<Control^>(myEnum->Current);
         containedControl->Font = oldFont;
      }
   }
}


// Handle the Apply event by setting all controls' fonts to 
// the chosen font. 
void FontDialog1_Apply( Object^ sender, System::EventArgs^ e )
{
   this->Font = FontDialog1->Font;
   System::Collections::IEnumerator^ myEnum1 = this->Controls->GetEnumerator();
   while ( myEnum1->MoveNext() )
   {
      Control^ containedControl = safe_cast<Control^>(myEnum1->Current);
      containedControl->Font = FontDialog1->Font;
   }
}
   private void Button1_Click(System.Object sender, System.EventArgs e)
   {
       // Set FontMustExist to true, which causes message box error
       // if the user enters a font that does not exist. 
       FontDialog1.FontMustExist = true;
       
       // Associate the method handling the Apply event with the event.
       FontDialog1.Apply += new System.EventHandler(FontDialog1_Apply);

       // Set a minimum and maximum size to be
       // shown in the FontDialog.
       FontDialog1.MaxSize = 32;
       FontDialog1.MinSize = 18;

       // Show the Apply button in the dialog.
       FontDialog1.ShowApply = true;

       // Do not show effects such as Underline
       // and Bold.
       FontDialog1.ShowEffects = false;
       
       // Save the existing font.
       System.Drawing.Font oldFont = this.Font;

       //Show the dialog, and get the result
       DialogResult result = FontDialog1.ShowDialog();

       // If the OK button in the Font dialog box is clicked, 
       // set all the controls' fonts to the chosen font by calling
       // the FontDialog1_Apply method.
       if (result == DialogResult.OK)
       {
           FontDialog1_Apply(this.Button1, new System.EventArgs());
       }
           // If Cancel is clicked, set the font back to
           // the original font.
       else if (result == DialogResult.Cancel)
       {
           this.Font = oldFont;
           foreach ( Control containedControl in this.Controls)
           {
               containedControl.Font = oldFont;
           }
       }
   }

   // Handle the Apply event by setting all controls' fonts to 
   // the chosen font. 
   private void FontDialog1_Apply(object sender, System.EventArgs e)
   {

       this.Font = FontDialog1.Font;
       foreach ( Control containedControl in this.Controls )
       {
           containedControl.Font = FontDialog1.Font;
       }
   }
Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

    ' Set FontMustExist to true, which causes message box error
    ' if the user enters a font that does not exist. 
    FontDialog1.FontMustExist = True

    ' Set a minimum and maximum size to be
    ' shown in the FontDialog.
    FontDialog1.MaxSize = 32
    FontDialog1.MinSize = 18

    ' Show the Apply button in the dialog.
    FontDialog1.ShowApply = True

    ' Do not show effects such as Underline
    ' and Bold.
    FontDialog1.ShowEffects = False

    ' Save the existing font.
    Dim oldFont As System.Drawing.Font = Me.Font

    ' Show the dialog and save the result.
    Dim result As DialogResult = FontDialog1.ShowDialog()

    ' If The OK button in the Font dialog box is clicked, 
    ' set all the controls' fonts to the chosen font by
    ' calling the FontDialog1_Apply method.
    If result = DialogResult.OK Then
        FontDialog1_Apply(Me.Button1, New System.EventArgs)

        ' If the Cancel button is clicked, set the controls'
        ' fonts back to the original font.
    ElseIf (result = DialogResult.Cancel) Then
        Dim containedControl As Control
        For Each containedControl In Me.Controls
            containedControl.Font = oldFont
        Next

    End If
End Sub

' Handle the Apply event by setting all controls' fonts to 
' the chosen font. 
Private Sub FontDialog1_Apply(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles FontDialog1.Apply

    Me.Font = FontDialog1.Font
    Dim containedControl As Control
    For Each containedControl In Me.Controls
        containedControl.Font = FontDialog1.Font
    Next
End Sub

Gilt für:

Weitere Informationen