Font与IFontDisp转化，Image与IPictureDisp转化

最新推荐文章于 2019-09-18 17:05:49 发布

原创最新推荐文章于 2019-09-18 17:05:49 发布 · 627 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#c# #c/c++

本文提供了一系列用于ArcGIS COM组件中字体和图片转换的实用函数。包括将Font和Image对象转换为IFontDisp和IPictureDisp，反之亦然的方法。这些函数能够帮助开发者更方便地在不同环境间进行对象的转换。

下面是AE提供的可以转化Font和Image分别为IFontDisp和IPictureDisp的函数，和我自己写的将IFontDisp和IPictureDisp转化为Font和Image的函数。

ESRI.ArcGIS.ADF.COMSupport.OLE.GetIFontDispFromFont

ESRI.ArcGIS.ADF.COMSupport.OLE.GetIPictureDispFromBitmap

ESRI.ArcGIS.ADF.COMSupport.OLE.GetIPictureDispFromIcon

''' <summary>
''' 从IFontDisp转换到System.Drawing.Font
''' </summary>
''' <param name="pFontDisp">传入IFontDisp</param>
''' <returns>返回Font</returns>
''' <remarks></remarks>
Shared Function GetFontFromIFontDisp(ByVal pFontDisp As stdole.IFontDisp) As System.Drawing.Font
Dim pName As String
Dim pSize As Single
Dim pFontStyle As System.Drawing.FontStyle
Dim pFont As System.Drawing.Font
pName = pFontDisp.Name
pSize = pFontDisp.Size
If pFontDisp.Bold = True Then
pFontStyle = pFontStyle + System.Drawing.FontStyle.Bold
End If
If pFontDisp.Italic = True Then
pFontStyle = pFontStyle + System.Drawing.FontStyle.Italic
End If
If pFontDisp.Strikethrough = True Then
pFontStyle = pFontStyle + System.Drawing.FontStyle.Strikeout
End If
If pFontDisp.Underline = True Then
pFontStyle = pFontStyle + System.Drawing.FontStyle.Underline
End If
pFont = New System.Drawing.Font(pName, pSize, pFontStyle)
Return pFont
End Function
''' <summary>
''' 从IPictureDisp转换到System.Drawing.Image
''' </summary>
''' <param name="pPictureDisp">传入的IPictureDisp</param>
''' <returns>返回Image</returns>
''' <remarks></remarks>
Shared Function GetImageFormIPictureDisp(ByVal pPictureDisp As stdole.IPictureDisp) As System.Drawing.Image
Return System.Drawing.Image.FromHbitmap(New System.IntPtr(pPictureDisp.Handle))
End Function

原文出处：http://www.evget.com/zh-CN/Info/ReadInfo.aspx?id=9093