tagCANDY CGI VBレスキュー(花ちゃん) - コンボボックスのドロップダウンリストの幅を変更(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
コンボボックスのドロップダウンリストの幅を変更(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

コンボボックスのドロップダウンリストの幅を変更(VB6.0) [No.23の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/07/15 19:33
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[コンボボックス][]                                             *
* キーワード:API,ComboBox,幅を変更,,,                                           *
***********************************************************************************

-----------------------------------------------------------------------------
No.2903 Re:コンボボックス  投稿者:ゆう(U) [2001/10/10(水)11:07分]
-----------------------------------------------------------------------------

標準モジュール)
Private Declare Function SendMessage Lib "user32" Alias _
                "SendMessageA" _
                (ByVal hWnd As Long, _
                 ByVal wMsg As Long, _
                 ByVal wParam As Long, _
                 ByRef lParam As Any) As Long
'==========================================================
'ドロップダウンリスト部の幅を変更する fComboDroppedWidth
'==========================================================
' result = fComboDroppedWidth(myCombo, lenPixels)
' 引数 myCombo  :コンボボックス
'    lenPixels:幅(ピクセルで設定)
' 戻値          :True   成功
'              False  失敗(変更されない場合も)
'----------------------------------------------------------
Public Function fComboDroppedWidth(ByRef myCombo As ComboBox, _
                                   ByVal lenPixels As Integer _
                                  ) As Boolean
Const CB_ERR = (-1&)
Const CB_SETDROPPEDWIDTH = &H160&
Const CB_GETDROPPEDWIDTH = &H15F&
  Dim lngResult As Long
  Dim lngLength As Long

  If myCombo.Style = vbComboSimple Then Exit Function

  lngResult = SendMessage(myCombo.hWnd, _
                          CB_GETDROPPEDWIDTH, _
                          0&, _
                          0&)
  If lngResult <> CB_ERR Then
    lngLength = lngResult
    If lngResult <> lenPixels Then
      lngResult = SendMessage(myCombo.hWnd, _
                              CB_SETDROPPEDWIDTH, _
                              lenPixels, _
                              0&)
      If lngResult <> CB_ERR And lngResult <> lngLength Then
        fComboDroppedWidth = True
      End If
    End If
  End If
End Function

メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ