Message 1 of 7
TrayItem Icon disappears
Not applicable
11-24-2008
05:13 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi all
Can someone help me with custom trayitem/pane icon. I have the following code which is supposed to load a custom icon. The problem i am having is that the icon seems to disappear in Autocad.
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime
Public Class Class1
Implements Autodesk.AutoCAD.Runtime.IExtensionApplication
Overridable Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize
AddTrayItems()
End Sub
Function GetEmbeddedIcon(ByVal strName As String) As Drawing.Icon
Return New Drawing.Icon(System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream(strName))
End Function
Sub AddTrayItems()
Try
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ti As New TrayItem()
ti.ToolTipText = "MyCadAddon Info"
ti.Icon = GetEmbeddedIcon("MyCadAddon.blue.ico")
Application.StatusBar.TrayItems.Add(ti)
Dim bw As New TrayItemBubbleWindow()
bw.Title = "MyCadAddon Application:"
'bw.HyperText = ""
' bw.HyperLink = ""
bw.Text = "This application has been loaded sucessfully"
bw.IconType = IconType.Information
ti.ShowBubbleWindow(bw)
Catch
End Try
End Sub
Overridable Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate
End Sub
End Class
see also attached icon
Can someone help me with custom trayitem/pane icon. I have the following code which is supposed to load a custom icon. The problem i am having is that the icon seems to disappear in Autocad.
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime
Public Class Class1
Implements Autodesk.AutoCAD.Runtime.IExtensionApplication
Overridable Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize
AddTrayItems()
End Sub
Function GetEmbeddedIcon(ByVal strName As String) As Drawing.Icon
Return New Drawing.Icon(System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream(strName))
End Function
Sub AddTrayItems()
Try
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ti As New TrayItem()
ti.ToolTipText = "MyCadAddon Info"
ti.Icon = GetEmbeddedIcon("MyCadAddon.blue.ico")
Application.StatusBar.TrayItems.Add(ti)
Dim bw As New TrayItemBubbleWindow()
bw.Title = "MyCadAddon Application:"
'bw.HyperText = ""
' bw.HyperLink = ""
bw.Text = "This application has been loaded sucessfully"
bw.IconType = IconType.Information
ti.ShowBubbleWindow(bw)
Catch
End Try
End Sub
Overridable Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate
End Sub
End Class
see also attached icon