Imports System.Reflection
<Assembly: AssemblyVersion("1.0.0.0")>
Namespace Lightbox
Public Class Tool
' ******************************************************** ' (トークン配列化関数) ' ********************************************************
Public Function GetArray(ByVal str As String, ByVal d As String) As String()
' 区切り文字定義
Dim delimStr As String = d
Dim delimiter As Char() = delimStr.ToCharArray()
' 分解
Dim aRet As String() = str.Split(delimiter)
Return aRet
End Function
' ******************************************************** ' (プログラムが実行されているディレクトリを取得) ' ********************************************************
Public Function GetProgramDir() As String
Dim ab As Reflection.Assembly = Reflection.Assembly.GetEntryAssembly ()
Dim mds As Reflection.Module() = ab.GetModules()
Dim md As Reflection.Module = mds(0)
' ************************************************ ' ディレクトリ部分を取得 ' ( System.IO.Path.GetDirectoryName が簡単 ) ' ************************************************
Dim aDataDir As String() = GetArray(md.FullyQualifiedName, "\")
Dim pgDir As String = String.Join("\", aDataDir, 0, aDataDir.Length - 1)
Return pgDir
End Function
End Class
End Namespace
↓ビルド
vbc.exe /target:library /out:lbox.dll myClass.vb
↓厳密な名前の確認
vb.net>sn -T lbox.dll
Microsoft(R) .NET Framework Strong Name Utility バージョン 2.0.50727.42
Copyright (c) Microsoft Corporation. All rights reserved.
lbox.dll は厳密な名前のアセンブリではありません。
呼び出しコードとクラスライブラリのデフォルトの配置場所
myModule.vb
Imports Lightbox
Module Module1
Sub Main()
Dim lb As Tool = New Tool
Console.WriteLine(lb.GetProgramDir())
End Sub
End Module
C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin にある sn.exe
sn -k <file name>
( 例 sn -k bonurd )
Imports System.Reflection
<Assembly: AssemblyKeyFile("bonurd.snk")>
<Assembly: AssemblyVersion("1.0.0.0")>
Namespace Lightbox
Public Class Tool
' ******************************************************** ' (トークン配列化関数) ' ********************************************************
Public Function GetArray(ByVal str As String, ByVal d As String) As String()
' 区切り文字定義
Dim delimStr As String = d
Dim delimiter As Char() = delimStr.ToCharArray()
' 分解
Dim aRet As String() = str.Split(delimiter)
Return aRet
End Function
' ******************************************************** ' (プログラムが実行されているディレクトリを取得) ' ********************************************************
Public Function GetProgramDir() As String
Dim ab As Reflection.Assembly = Reflection.Assembly.GetEntryAssembly ()
Dim mds As Reflection.Module() = ab.GetModules()
Dim md As Reflection.Module = mds(0)
' ************************************************ ' ディレクトリ部分を取得 ' ( System.IO.Path.GetDirectoryName が簡単 ) ' ************************************************
Dim aDataDir As String() = GetArray(md.FullyQualifiedName, "\")
Dim pgDir As String = String.Join("\", aDataDir, 0, aDataDir.Length - 1)
Return pgDir
End Function
End Class
End Namespace
公開キートークンを取得
vb.net>sn -T lbox.dll
Microsoft(R) .NET Framework Strong Name Utility バージョン 2.0.50727.42
Copyright (c) Microsoft Corporation. All rights reserved.
公開キー トークン 2138cc86b120e333
