投稿日	： 2003/01/06(Mon) 20:41
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: リスト項目数を変更する、について。

表示位置をピクセル単位換算すればいいかと思います。

'＝＝＝＝＝　コンテナ上のコンボボックスの場合　＝＝＝＝＝
Private Sub Combo2_DropDown()
    'ドロップダウンリストの表示項目数を１２に設定
    Call sCBDropDownListItem1(Combo2, 12)
End Sub

Private Sub sCBDropDownListItem1(CBControl As Control, Item As Long)
    Dim CBHeight  As Long
    Dim Result    As Long
    Dim Ratio     As Long
    'ピクセルあたりのtwip 数を取得
    Ratio = Screen.TwipsPerPixelX
    With CBControl
        '項目の高さを取得
        CBHeight = SendMessage(.hwnd, CB_GETITEMHEIGHT, 0&, ByVal 0&)
        '１２項目表示する場合の高さを求める
        CBHeight = (.Height \ Ratio) + CBHeight * Item + 2
        'コンボボックスの高さを変更
        Result = MoveWindow(.hwnd, .Left \ Ratio, .Top \ Ratio, .Width \ Ratio, CBHeight, 1&)
    End With
End Sub

こちらの方がどちらでも使用できるからいいかも。


#丸に数字のような文字は機種依存文字です。インターネットでは使用しない方がいいかと思います。
またまた、同タイムで負けてしまった。

★ - リスト項目数を変更する、について。 - ゆうや 01/06-20:08No.2041
• Re: リスト項目数を変更する、について。 - Say 01/06-20:41 No.2046
• Re: リスト項目数を変更する、について。 - 花ちゃん 01/06-20:41 No.2047
  • 御礼： リスト項目数を変更する、について.. - ゆうや 01/07-09:17 No.2050