Font.FromHfont(IntPtr) 方法

定义

命名空间:

System.Drawing

程序集:

System.Drawing.Common.dll

包:

System.Drawing.Common v8.0.0

Source:

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 窗体 一起使用，它需要 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