投稿時間:2002/11/16(Sat) 00:37 投稿者名:花ちゃん
Eメール:
URL :
タイトル:Re: コンボボックスを右詰めに表示する方法
左側(前方)にスペースを付加してやれば一応可能かと思います。 半角と全角文字が混在すると少し面倒ですが!
Private Sub Form_Load() Dim N As Integer With Combo1 .Move 1000, 900, 3000 .FontName = "MS ゴシック" .FontSize = 12 .AddItem StrRightSet(24, "あ1いう") .AddItem StrRightSet(24, "あ12いうえ") .AddItem StrRightSet(24, "あ123いうえお") .AddItem StrRightSet(24, "あ1234いうえおか") .AddItem StrRightSet(24, "あ12345いうえおかき") End With End Sub
Private Function StrRightSet(StrLen As Integer, Mystring As String) As String Dim N As Integer N = LenB(StrConv(Mystring, vbFromUnicode)) StrRightSet = String$(StrLen - N, " ") & Mystring End Function
|