掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックスの表示を全角・半角を揃えるには？ (ID:141233)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
MSHFlexGrid の場合、ListBox とは見た目が大きく異なりますが、 > たとえば、ListView コントロール(エクスプローラの右側)を > 詳細表示、列ヘッダ表示無し、行全体を選択というモードで利用するとか。 であれば、見た目は殆ど変わらなくなりますよ。 ListBox で行うのであれば、せめてタブ区切りにされては如何でしょう? Option Explicit Private Declare Function SendMessageA Lib "user32" _ (ByVal hWnd As OLE_HANDLE, _ Optional ByVal m As Long = &H192&, _ Optional ByVal wParam As Long, _ Optional ByRef lParam As Long) As Long Private Sub Form_Load() SetTabPos List1, 80, 150 End Sub Private Sub Command1_Click() List1.AddItem "test" & vbTab & "テスト.txt" & vbTab & "test.txt" List1.AddItem "試験方法" & vbTab & "評価.txt" & vbTab & "sample.txt" List1.AddItem "LB_SETTABSTOPS" & vbTab & "Function.txt" & vbTab & "API.txt" End Sub Private Sub SetTabPos(ByVal ListBox As ListBox, ParamArray tabPos() As Variant) Dim t() As Long, c As Long, v As Variant ReDim t(UBound(tabPos) + 1) For Each v In tabPos t(c) = CLng(v) c = c + 1 Next SendMessageA ListBox.hWnd, , c, t(0) End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.