當(dāng)我們用Symbologycontrol設(shè)置某個(gè)圖層symbol的樣式或設(shè)置指北針、比例尺的樣式時(shí)，我們需要將這些選中的樣式以圖片的形式顯示在例如PictureBox中，這時(shí)我們就需要得到選中對象的Image，下面是我提供的兩種方法：
一：是利用AE自帶的PreviewItem方法來實(shí)現(xiàn)，這種方法普適性好，能適用所有Symbolgycontrol支持的對象
二：是利用Symbol的Draw函數(shù)實(shí)現(xiàn)，該方法目前只支持Symbol，可以進(jìn)行擴(kuò)充
方法一：
''' <summary>
''' 通過SymbolObject獲得image
''' </summary>
''' <param name="pStyleGallery">傳入的Symbologycontrol中選中的項(xiàng)</param>
''' <param name="pStyleClass">當(dāng)前類型</param>
''' <param name="pWidth">圖像寬度</param>
''' <param name="pHeight">圖像高度</param>
''' <returns>得到的Image</returns>
''' <remarks></remarks>
Shared Function GetImageFromSymbolObject(ByVal pStyleGallery As IStyleGalleryItem, ByVal pStyleClass As esriSymbologyStyleClass, ByVal pWidth As Double, ByVal pHeight As Double) As Image
Dim pSymbology As ISymbologyControl = New SymbologyControl
pSymbology.StyleClass = pStyleClass
pSymbology.GetStyleClass(pSymbology.StyleClass).AddItem(pStyleGallery, 0)
Dim picture As stdole.IPictureDisp = pSymbology.GetStyleClass(pSymbology.StyleClass).PreviewItem(pStyleGallery, pWidth, pHeight)
Dim image As System.Drawing.Image = System.Drawing.Image.FromHbitmap(New System.IntPtr(picture.Handle))
Return image
End Function
''' <summary>
''' 通過SymbolObject獲得image
''' </summary>
''' <param name="pSymbology">傳入的symbologycontrol</param>
''' <param name="pStyleGallery">傳入的Symbologycontrol中選中的項(xiàng)</param>
''' <param name="pWidth">圖像寬度</param>
''' <param name="pHeight">圖像高度</param>
''' <returns>得到的Image</returns>
''' <remarks></remarks>
Shared Function GetImageFromSymbolObject(ByVal pSymbology As ISymbologyControl, ByVal pStyleGallery As IStyleGalleryItem, ByVal pWidth As Double, ByVal pHeight As Double) As Image
Dim picture As stdole.IPictureDisp = pSymbology.GetStyleClass(pSymbology.StyleClass).PreviewItem(pStyleGallery, pWidth, pHeight)
Dim image As System.Drawing.Image = System.Drawing.Image.FromHbitmap(New System.IntPtr(picture.Handle))
Return image
End Function
''' <summary>
''' 通過SymbolObject獲得image
''' </summary>
''' <param name="pStyleClass">當(dāng)前的類型</param>
''' <param name="pSymbolObject">傳入的對象，比如TextSymbol，NorthArrow</param>
''' <param name="pWidth">圖像寬度</param>
''' <param name="pHeight">圖像高度</param>
''' <returns>得到的Image</returns>
''' <remarks></remarks>
Shared Function GetImageFromSymbolObject(ByVal pStyleClass As esriSymbologyStyleClass, ByVal pSymbolObject As Object, ByVal pWidth As Double, ByVal pHeight As Double) As Image
Dim pSymbology As ISymbologyControl = New SymbologyControl
Dim pStyleGallery As IStyleGalleryItem = New ServerStyleGalleryItem
pStyleGallery.Name = "當(dāng)前符號"
pStyleGallery.Item = pSymbolObject
pSymbology.GetStyleClass(pStyleClass).AddItem(pStyleGallery, 0)
Dim picture As stdole.IPictureDisp = pSymbology.GetStyleClass(pStyleClass).PreviewItem(pStyleGallery, pWidth, pHeight)
Dim image As System.Drawing.Image = System.Drawing.Image.FromHbitmap(New System.IntPtr(picture.Handle))
Return image
End Function
''' <summary>
''' 通過SymbolObject獲得image
''' </summary>
''' <param name="pSymbolObject">傳入的對象，比如TextSymbol，NorthArrow</param>
''' <param name="pWidth">圖像寬度</param>
''' <param name="pHeight">圖像高度</param>
''' <returns>得到的Image</returns>
''' <remarks></remarks>
Shared Function GetImageFromSymbolObject(ByVal pSymbolObject As Object, ByVal pWidth As Double, ByVal pHeight As Double) As Image
Dim pSymbology As ISymbologyControl = New SymbologyControl
Dim pStyleGallery As IStyleGalleryItem = New ServerStyleGalleryItem
pStyleGallery.Name = "當(dāng)前符號"
pStyleGallery.Item = pSymbolObject
Dim pStyleClass As esriSymbologyStyleClass = GetStyleClass(pSymbolObject)
pSymbology.GetStyleClass(pStyleClass).AddItem(pStyleGallery, 0)
Dim picture As stdole.IPictureDisp = pSymbology.GetStyleClass(pStyleClass).PreviewItem(pStyleGallery, pWidth, pHeight)
Dim image As System.Drawing.Image = System.Drawing.Image.FromHbitmap(New System.IntPtr(picture.Handle))
Return image
End Function
''' <summary>
''' 獲得當(dāng)前對應(yīng)的styleclass
''' </summary>
''' <param name="pSymbolObject">當(dāng)前的對象</param>
''' <returns></returns>
''' <remarks></remarks>
Shared Function GetStyleClass(ByVal pSymbolObject As Object) As esriSymbologyStyleClass
If TypeOf pSymbolObject Is ITextSymbol Then
Return esriSymbologyStyleClass.esriStyleClassTextSymbols
ElseIf TypeOf pSymbolObject Is IMarkerSymbol Then
Return esriSymbologyStyleClass.esriStyleClassMarkerSymbols
ElseIf TypeOf pSymbolObject Is ILineSymbol Then
Return esriSymbologyStyleClass.esriStyleClassLineSymbols
ElseIf TypeOf pSymbolObject Is IFillSymbol Then
Return esriSymbologyStyleClass.esriStyleClassFillSymbols
ElseIf TypeOf pSymbolObject Is IScaleText Then
Return esriSymbologyStyleClass.esriStyleClassScaleTexts
ElseIf TypeOf pSymbolObject Is IScaleBar Then
Return esriSymbologyStyleClass.esriStyleClassScaleBars
ElseIf TypeOf pSymbolObject Is INorthArrow Then
Return esriSymbologyStyleClass.esriStyleClassNorthArrows
ElseIf TypeOf pSymbolObject Is IBackground Then
Return esriSymbologyStyleClass.esriStyleClassBackgrounds
ElseIf TypeOf pSymbolObject Is IBorder Then
Return esriSymbologyStyleClass.esriStyleClassBorders
ElseIf TypeOf pSymbolObject Is IShadow Then
Return esriSymbologyStyleClass.esriStyleClassLabels
ElseIf TypeOf pSymbolObject Is ILegend Then
Return esriSymbologyStyleClass.esriStyleClassLegendItems
End If
End Function
方法二：
''' <summary>
''' 將symbol轉(zhuǎn)成bitmap
''' </summary>
''' <param name="pSymbol">symbol</param>
''' <param name="iwidth">圖像寬</param>
''' <param name="iheight">圖像高</param>
''' <returns>返回bitmap</returns>
''' <remarks></remarks>
Shared Function SymbolToBitmp(ByVal pSymbol As ISymbol, ByVal iwidth As Integer, ByVal iheight As Integer) As System.Drawing.Bitmap
''根據(jù)高寬創(chuàng)建圖象
Dim bmp As Drawing.Bitmap = New Drawing.Bitmap(iwidth, iheight)
Dim gImage As Drawing.Graphics = Drawing.Graphics.FromImage(bmp)
gImage.Clear(Drawing.Color.White)
Dim dpi As Double = gImage.DpiX
Dim pEnvelope As IEnvelope = New EnvelopeClass()
pEnvelope.PutCoords(0, 0, bmp.Width, bmp.Height)
Dim deviceRect As New tagRECT
deviceRect.left = 0
deviceRect.right = bmp.Width
deviceRect.top = 0
deviceRect.bottom = bmp.Height
Dim pDisplayTransformation As IDisplayTransformation = New DisplayTransformationClass
pDisplayTransformation.VisibleBounds = pEnvelope
pDisplayTransformation.Bounds = pEnvelope
pDisplayTransformation.DeviceFrame = deviceRect
pDisplayTransformation.Resolution = dpi
Dim pGeo As IGeometry = CreateSymShape(pSymbol, pEnvelope)
Dim hdc As System.IntPtr = New IntPtr()
hdc = gImage.GetHdc()
''將符號的形狀繪制到圖象中
pSymbol.SetupDC(hdc, pDisplayTransformation)
pSymbol.Draw(pGeo)
pSymbol.ResetDC()
gImage.ReleaseHdc(hdc)
gImage.Dispose()
Return bmp
End Function
Shared Function CreateSymShape(ByVal pSymbol As ISymbol, ByVal pEnvelope As IEnvelope) As IGeometry
Dim pGeo As IGeometry = Nothing
'' 根據(jù)傳入的符號以及外包矩形區(qū)域返回對應(yīng)的幾何空間實(shí)體（點(diǎn)，線、面）
''判斷是否為“點(diǎn)”符號
If TypeOf pSymbol Is IMarkerSymbol Then
Dim pMarkerSym As IMarkerSymbol = pSymbol
If pMarkerSym IsNot Nothing Then
''為“點(diǎn)”符號則返回IEnvelope的中心點(diǎn)
Dim pArea As IArea = pEnvelope
pGeo = pArea.Centroid
End If
ElseIf TypeOf pSymbol Is ILineSymbol Then
''判斷是否為“線”符號
Dim IlineSym As ILineSymbol = pSymbol
If IlineSym IsNot Nothing Then
''返回45度的對角線
Dim IpLine As IPolyline
IpLine = New PolylineClass()
IpLine.FromPoint = pEnvelope.LowerLeft
IpLine.ToPoint = pEnvelope.UpperRight
pGeo = IpLine
End If
ElseIf TypeOf pSymbol Is IFillSymbol Then
''直接返回一個(gè)IEnvelope矩形區(qū)域
pGeo = pEnvelope
End If
Return pGeo
End Function
標(biāo)簽：
本站文章除注明轉(zhuǎn)載外，均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載，但請務(wù)必注明出處、不得修改原文相關(guān)鏈接，如果存在內(nèi)容上的異議請郵件反饋至chenjj@ke049m.cn
文章轉(zhuǎn)載自：慧都控件網(wǎng)
半島外圍網(wǎng)上直營 
137次
半島外圍網(wǎng)上直營相關(guān)的文章 
微信
在線咨詢
渝公網(wǎng)安備
50010702500608號
客服熱線