[リストへもどる]
一括表示

投稿時間:2002/11/15(Fri) 19:55
投稿者名:ちぃちぃ
URL :
タイトル:
コンボボックスを右詰めに表示する方法
今晩は。
いつも開発に行き詰まったときに助けていただいています。
お世話になっております。

VB6.0 SP4環境で開発しているんですが、
コンボボックスって、右詰め表示ってできるんでしょうか?
プロパティーの設定ではできないように思われるんですが・・・。

後輩に聞かれたんですが、
コンボボックスを右詰め表示するってなんて初めてなんで
出来るのかぁ・・・!?って思ってるんですが、
ご存知の方いらっしゃったら教えてください!!
お願いいたします。

投稿時間: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

投稿時間:2002/11/18(Mon) 14:45
投稿者名:ちぃちぃ
URL :
タイトル:
ありがとうございます。
どうもありがとうございました。
先輩としての面子が保てそうです。(笑)
本当に感謝です!!

やはり、プロパティー関係での設定では
出来ないんですね。
普通、コンボボックスって左詰ですものねぇ・・・?

今後もお世話になると思いますが、
よろしくお願いいたします。