我想通过代码向我的应用程序添加一些图标。将图标添加到应用程序
当我从调试/释放编译文件夹运行我的可执行文件它的效果很好。
但是,当我将我的可执行文件移动到其他文件夹时,它告诉我它找不到图标文件。
任何想法如何/在哪里我应该告诉编译器将这些文件添加到我的最终可执行版本,他们将是可见的。
我的代码看起来是
Private Sub Set_Application_Icon()
Dim Current As String
Dim Parent As DirectoryInfo
'current path is /bin/solution/
Current = Directory.GetCurrentDirectory()
Parent = Directory.GetParent(Current)
ChDir(Parent.FullName)
'/bin
Current = Directory.GetCurrentDirectory()
Parent = Directory.GetParent(Current)
ChDir(Parent.FullName)
'icons located at current directory now
#If WizardVersion = 0 And ViewerVersion = 0 Then
Me.Icon = New Icon(CurDir() & "\" & "LP_V2009c.ico")
#ElseIf WizardVersion = 0 And ViewerVersion = 1 Then
Me.Icon = New Icon(CurDir() & "\" & "LP_V2009v.ico")
#Else
Me.Icon = New Icon(CurDir() & "\" & "LP_V2009.ico")
#End If
End Sub
感谢很多帮助
我在资源中添加了文件,我试图访问像Me.Icon =新图标(“LP_V2009.ico”),当我编译所有好的,但是当我从差异位置运行我得到错误路径 。 当我在资源中拥有它们时,我可以如何访问它们? –
ok找到解决方案 http://msdn.microsoft.com/en-us/library/ytt371w5%28VS.80%29.aspx –