exeに埋め込んだアイコンをステータスバーに表示する

ステータスバーに表示するアイコンを動的に変更しようとしたら、Drawing.Icon()にアイコンファイルパスを渡すのが簡単な方法ですが、 実行時にicoファイルまで必要になるのは面倒なので、exeに埋め込んだアイコンを表示する方法です。 Projectペインでアイコンファイルを追加し、ビルドアクションを"埋め込まれたリソース"に変更する必要があります。 '現在実行中のアセンブリを取得 Dim assm As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly() 'アイコンのリソースのストリームを取得 'この例でははProject1プロジェクトにicon01.icoというアイコンファイルが '埋め込みリソースとして追加されていることが前提 Dim stream As IO.Stream = assm.GetManifestResourceStream("Project1.icon01.ico") Dim Icon01 As Icon = New Drawing.Icon(stream) stream.Close() 'ステータスバーにアイコン表示 StatusBarPanel1.Icon = Icon01