投稿日 | : 2004/03/18(Thu) 09:12 |
投稿者 | : とろ |
Eメール | : |
URL | : |
タイトル | : Re: ListBoxの右揃え表示 |
次のようにすれば大丈夫かと。
これならば、フォントとか関係なく、右揃えになります。
スペースの挿入・削除の処理も必要ありませんし。
---------------------------------------------------------------------------------
Option Explicit
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE As Long = (-20&)
Private Const WS_EX_RIGHT As Long = &H1000&
Private Sub Form_Load()
Dim l As Long
l = GetWindowLong(List1.hwnd, GWL_EXSTYLE)
l = l Or WS_EX_RIGHT
Call SetWindowLong(List1.hwnd, GWL_EXSTYLE, l)
List1.AddItem "AAAA"
List1.AddItem "bbbbbbbbbb"
End Sub