Public Shared Function GetShildIcon(iconType As SHSTOCKICONID) As IntPtr
Dim sii As New SHSTOCKICONINFO()
sii.cbSize = Marshal.SizeOf(GetType(SHSTOCKICONINFO))
If SHGetStockIconInfo(iconType, SHGSI.SHGSI_ICON Or SHGSI.SHGSI_SMALLICON, sii) = 0 Then
Return sii.hIcon
End If
Return IntPtr.Zero
End Function
Dim hIcon As IntPtr = GetShildIcon(SHSTOCKICONID.SIID_SHIELD)
If hIcon <> IntPtr.Zero Then
Me.Icon = Icon.FromHandle(hIcon)
DestroyIcon(hIcon)
End If
SHSTOCKICONID is used by SHGetStockIconInfo to identify a stock icon.
12/13/2012 12:39:00 PM - -88.235.99.88
Used by SHGetStockIconInfo to determine the information to be retrieved for a stock icon.
12/13/2012 12:38:01 PM - -88.235.99.88
Used by SHGetStockIconInfo
12/13/2012 12:44:43 PM - -88.235.99.88
Retrieves information about a stock icon
12/13/2012 12:43:22 PM - -88.235.99.88
Please edit this page!
Do you have...
helpful tips or sample code to share for using this API in managed code?
corrections to the existing content?
variations of the signature you want to share?
additional languages you want to include?
Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).