３．バイトを表す数値をバイト、KB、MB等の単位に変換する(05_Alg_02)　(旧、SampleNo.117)

１．バイト数(数値)を自動単位変換(バイト・KB・MB・GB 付きの文字列)する自作関数 ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：System.Runtime.InteropServices 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．バイト数(数値)を自動単位変換(バイト・KB・MB・GB 付きの文字列)する自作関数

Imports System.Runtime.InteropServices Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click     Debug.WriteLine(fGetFormatByteSize(1023))       '結果　1023 バイト     Debug.WriteLine(fGetFormatByteSize(1024))       '結果　1.00 KB     Debug.WriteLine(fGetFormatByteSize(1048576))    '結果　1.00 MB     Debug.WriteLine(fGetFormatByteSize(2400016))    '結果　2.28 MB     Debug.WriteLine(fGetFormatByteSize(6000000000)) '結果　5.58 GB End Sub 'バイト数(数値)を単位変換(バイト・KB・MB・GB 付きの文字列)するAPI関数の宣言 <DllImport("SHLWAPI.DLL", CharSet:=CharSet.Auto)> _ Private Shared Function StrFormatByteSize( _     ByVal qdw As Int64, _     ByVal pszBuf As String, _     ByVal uiBufSize As Integer) As Integer End Function 'バイト数(数値)を自動単位変換(バイト・KB・MB・GB 付きの文字列)する自作関数 Private Function fGetFormatByteSize(ByVal myFileSize As Decimal) As String     Dim Ret As Integer     Dim Buf As String     Buf = New String(ControlChars.NullChar, 64)     Ret = StrFormatByteSize(CLng(myFileSize), Buf, Buf.Length)     Return Buf.TrimEnd(ControlChars.NullChar) End Function End Class

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)