Font.FromHfont(IntPtr) 方法

定義

命名空間:

System.Drawing

組件:

System.Drawing.Common.dll

套件:

System.Drawing.Common v8.0.0

來源:

Font.cs

從指定的 Windows 控制代碼建立 Font。

public:
 static System::Drawing::Font ^ FromHfont(IntPtr hfont);

public static System.Drawing.Font FromHfont (IntPtr hfont);

static member FromHfont : nativeint -> System.Drawing.Font

Public Shared Function FromHfont (hfont As IntPtr) As Font

參數

hfont

IntPtr

nativeint

GDI 字型的 Windows 句柄。

傳回

Font

這個方法建立的 Font。

例外狀況

ArgumentException

hfont 指向不是 TrueType 字型的物件。

範例

下列程式代碼範例是設計來搭配 Windows Forms 使用，而且需要 PaintEventArgse，這是事件處理程序的參數Paint。 此程式碼會執行下列動作：

• 取得 GDI 字型的句柄。

• Font從該句柄建立 。

• 使用新的 Font繪製文字到畫面。

private:
   [System::Runtime::InteropServices::DllImportAttribute("gdi32.dll")]
   static IntPtr GetStockObject( int fnObject );

public:
   void FromHfont_Example( PaintEventArgs^ e )
   {
      // Get a handle for a GDI font.
      IntPtr hFont = GetStockObject( 17 );

      // Create a Font object from hFont.
      System::Drawing::Font^ hfontFont = System::Drawing::Font::FromHfont( hFont );

      // Use hfontFont to draw text to the screen.
      e->Graphics->DrawString( "This font is from a GDI HFONT", hfontFont, Brushes::Black, 0, 0 );
   }

[System.Runtime.InteropServices.DllImportAttribute("gdi32.dll")]
private static extern IntPtr GetStockObject(int fnObject);
public void FromHfont_Example(PaintEventArgs e)
{
             
    // Get a handle for a GDI font.
    IntPtr hFont = GetStockObject(0);
             
    // Create a Font object from hFont.
    Font hfontFont = Font.FromHfont(hFont);
             
    // Use hfontFont to draw text to the screen.
    e.Graphics.DrawString(
        "This font is from a GDI HFONT", hfontFont,Brushes.Black, 
        0, 0);
}

<System.Runtime.InteropServices.DllImportAttribute("GDI32.DLL")> _
Private Shared Function GetStockObject(ByVal fnObject As Integer) As IntPtr
End Function
Public Sub FromHfont_Example(ByVal e As PaintEventArgs)

    ' Get a handle for a GDI font.
    Dim hFont As IntPtr = GetStockObject(17)

    ' Create a Font object from hFont.
    Dim hfontFont As Font = Font.FromHfont(hFont)

    ' Use hfontFont to draw text to the screen.
    e.Graphics.DrawString("This font is from a GDI HFONT", hfontFont, _
    Brushes.Black, 0, 0)
End Sub