リストボックスの表示を全角・半角を揃えるには？ (ID:141229)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ■ソース■ '===================================================================== 'パスより、ファイル名のみを取得 '≪引数≫ ' sText1 = (テキストボックス)ファイル名１ ' sText2 = (テキストボックス)ファイル名２ '≪戻り値≫ ' Get_FileName = リストボックス表示 '===================================================================== Private Function Get_FileName(ByVal sText1 As String, ByVal sText2 As String) As String 'FileSystemObject(FSO)の新しいインスタンスを生成します。 Dim cFso As FileSystemObject Set cFso = New FileSystemObject 'ファイル名(ベース名，拡張子)を格納する変数 Dim sBaseName As String 'ベース名格納 Dim sTextFileName1 As String 'テキスト１のファイル名格納 Dim sTextFileName2 As String 'テキスト２のファイル名格納 'リストボックス表示時の間隔を格納する変数 Dim sBaseName_sp As String 'ベース名 ＋ スペース(10バイト) Dim sTextFileName1_sp As String 'テキスト１のファイル名 ＋ スペース(20バイト) Dim sTextFileName2_sp As String 'テキスト２のファイル名 ＋ スペース(20バイト) 'リストボックス表示時の間隔を判定結果を格納する変数 Dim sBN_Length As Long 'ベース名＋スペースの文字長 Dim sTF1_Length As Long 'テキスト１のファイル名＋スペースの文字長 Dim sTF2_Length As Long 'テキスト２のファイル名＋スペースの文字長 'ファイル名を取得 sTextFileName1 = cFso.GetFileName(sText1) sTextFileName2 = cFso.GetFileName(sText2) 'ベース名を取得 sBaseName = cFso.GetBaseName(sTextFileName1) 'ファイル or ベース名 ＋ スペースを格納 sBaseName_sp = sBaseName & Space(10) sTextFileName1_sp = sTextFileName1 & Space(20) sTextFileName2_sp = sTextFileName2 & Space(20) 'ファイル or ベース名 ＋ スペースの文字長さを取得 sBN_Length = LenB(StrConv(sBaseName_sp, vbFromUnicode)) sTF1_Length = LenB(StrConv(sTextFileName1_sp, vbFromUnicode)) sTF2_Length = LenB(StrConv(sTextFileName2_sp, vbFromUnicode)) If sBN_Length <> 10 Then sBaseName_sp = Left(sBaseName_sp, 10) End If If sTF1_Length <> 20 Then sTextFileName1_sp = Left(sTextFileName1_sp, 20) End If If sTF2_Length <> 32 Then sTextFileName2_sp = Left(sTextFileName2_sp, 20) End If Get_FileName = sBaseName_sp & Space(2) & sTextFileName2_sp & Space(2) & sTextFileName1_sp Set cFso = Nothing End Function