システム開発備忘録 Visual Basic 2005 その他

'文字数の取得
intRet = strTarget.Length
'半角文字を１バイトとしてバイト数取得
intRet = System.Text.Encoding.GetEncoding("shift-jis").GetByteCount(strTarget)
'半角文字を２バイトとしてバイト数取得
intRet = System.Text.Encoding.Unicode.GetByteCount(strTarget)

バイト型配列の文字列への変換

Windowsのカレンダーの種類変更対策
Windowsのカレンダーの種類が「和暦」になっていると
.netのデフォルトカレンダーも和暦になってしまう
date型とstringの変換を和暦で行うので障害の原因となりやすい
（Windws7で確認）
そこで起動時に次のように指定する

System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("ja-JP", False)

※パラメータでFalseを指定することでWindowsの和暦設定を引き継がなくなる
※スレッド単位での指定なので、マルチスレッドにする際はスレッドごとに指定が必要

フォームアプリケーションの場合は次のように書くこともできる
（マルチスレッドの場合はやはりスレッドごとに指定が必要）

Application.CurrentCulture = New System.Globalization.CultureInfo("ja-JP", False)

変換の都度指定する場合は次のように指定する

Dim DTFI As System.Globalization.DateTimeFormatInfo = _
New System.Globalization.CultureInfo("en-US").DateTimeFormat
Dim strNow As String = Now.ToString("yyyy/MM/dd HH:mm:ss", DTFI)

アプリケーション
二重起動の防止

'アプリケーションと同名のインスタンスが実行中かどうかを確認する
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
  '（同名のインスタンスが起動中ならここに辿り着く）
End If

クリックワンスのバージョンを取得する

'ClickOnce でインストールされていた場合、フォームキャプションにバージョン表示
If ApplicationDeployment.IsNetworkDeployed Then
  Dim deploy As ApplicationDeployment = ApplicationDeployment.CurrentDeployment
  Form1.Text = deploy.CurrentVersion.ToString()
End If

実行フォルダを取得する

その他
Configファイルからの情報取得

Dim appSettings As Specialized.NameValueCollection = System.Configuration.ConfigurationManager.AppSettings

'指定の文字列を取得（app.configのvalue=で指定した値が代入される）
Dim strTarget As String = appSettings("TargetKeyName").ToString

'app.configファイル側の記述
<appSettings>

<add key="TargetKeyName" value="TargetValue" />
</appSettings>

レジストリの利用
スニペットの挿入の中にあるので、そこから流用。
スニペットにあること自体を忘れたときのために一応記載。

'レジストリ値の書込み
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\CompanyName\ProductName\KeyName", "Name", "value")

'レジストリ値の書込み
Dim keyValue As String
keyValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\CompanyName\ProductName\KeyName", "valueName", "Default Value")

レジストキーを HKEY_CURRENT_USER\Software\VB and VBA Program Settings に追加で良い
場合は、SaveSetting関数でも良い。

'自分の会社名
Public GstrAppCompanyName As String = My.Application.Info.CompanyName
'自分のアセンブリ名
Public GstrAppAssemblyName As String

GstrAppCompanyName = My.Application.Info.CompanyName
GstrAppAssemblyName = My.Application.Info.AssemblyName

'レジストリ値の書込み
SaveSetting(GstrAppCompanyName, GstrAppAssemblyName, "Name", GintMsgNo)

strRet = GetSetting(GstrAppCompanyName, GstrAppAssemblyName, "Name", 0)