🚀 go-pugleaf

田川＠イントラネットシステムです。

Takaaki Mori wrote in message <35347ba3.0@news.interq.or.jp>...
>VB5で質問です。
>ComboBoxの下のリスト部分の高さを変えることは
>できないのでしょうか。幅を変えることはメッセージを
>送ってやることでできるようですが。

VB Magazine 4月号の付録のＣＤに入っていた
EXCMB103 という拡張コンボボックスの OCX を
使うと設定できます。
シェアウェアです。(\1000くらい？)

５月号にも収録されていると思いますが、
私は買ってないのでわかりません。


＃前にも似たような質問で、このシェアウェアを
　紹介しましたが、別に作者の回し者ではありません。
----
    〒105  港区芝大門2-5-5 住友芝大門ビル9F
    イントラネットシステム株式会社 ＳＲ部
    田川  勇治  (Email: yujit@intranet.co.jp)
    (TEL: 03-5403-2688(Ext.537)    FAX: 03-5403-0940)

田川（自己フォロー）です。

Yuji Tagawa wrote in message <6h3s98$9q1$1@news4.odn.ne.jp>...
>VB Magazine 4月号の付録のＣＤに入っていた
>EXCMB103 という拡張コンボボックスの OCX を
>使うと設定できます。
>シェアウェアです。(\1000くらい？)
>
>５月号にも収録されていると思いますが、
>私は買ってないのでわかりません。


VB から使えるオンラインソフトの収録が
４月号まででした。
発売中の５月号には載っていません。


NIFTY にあるみたいですが。
----
    〒105  港区芝大門2-5-5 住友芝大門ビル9F
    イントラネットシステム株式会社 ＳＲ部
    田川  勇治  (Email: yujit@intranet.co.jp)
    (TEL: 03-5403-2688(Ext.537)    FAX: 03-5403-0940)

Yuji Tagawa wrote in message <6h671h$djc$1@news4.odn.ne.jp>...
>田川（自己フォロー）です。
>
>Yuji Tagawa wrote in message <6h3s98$9q1$1@news4.odn.ne.jp>...
>>VB Magazine 4月号の付録のＣＤに入っていた
>>EXCMB103 という拡張コンボボックスの OCX を
>>使うと設定できます。
>>シェアウェアです。(\1000くらい？)
>>
>>５月号にも収録されていると思いますが、
>>私は買ってないのでわかりません。
>
>
>VB から使えるオンラインソフトの収録が
>４月号まででした。
>発売中の５月号には載っていません。


ありがとうございます。
実はフリーのソフトで使いたいので
シェアだと困るのです。
ほかに方法はないのでしょうか。

なければテキストボックスとリストボックスか・・・。

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
森 喬顯 　　     Takaaki Mori
Email:　 takaaki@mori.104.net
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

<takaaki@mori.104.net> wrote in article <353711ae.0@news.interq.or.jp>.
>
>ありがとうございます。
>実はフリーのソフトで使いたいので
>シェアだと困るのです。
>ほかに方法はないのでしょうか。
>
>なければテキストボックスとリストボックスか・・・。
>

ShowDropDown(TRUE);
MoveWindow(....);
ShowDropDown(FALSE);

では駄目でしょうか。
一瞬画面がちらつくようですが、（Ｗｉｎ９８では一瞬ではない）
動的にサイズを変更出来ます。
リソースを編集出来るなら、そちらでサイズの変更も出来ます。


-- 
as you like... 1998/4/9
    e-mail vzy03312@ha.bekkoame.ne.jp
           VZY03312@niftyserve.or.jp

Takaaki Mori wrote in message <353711ae.0@news.interq.or.jp>...
>VB5で質問です。
>ComboBoxの下のリスト部分の高さを変えることは
>できないのでしょうか。幅を変えることはメッセージを
>送ってやることでできるようですが。
>
>環境
>VB5+SP3
>Win95

>ほかに方法はないのでしょうか。
>
>なければテキストボックスとリストボックスか・・・。


元記事投稿者森です。

かなり不確実ではありますが解決しました。

コンボボックスを4つ置いて下さい。

Option Explicit

Private Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal CX As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()
Me.Show
Dim R as Long

Combo4.Visible = False

R = SetWindowPos(GetWindow(Combo4.hwnd, 2), 0, 0,_
 0, Combo3.Width \ Screen.TwipsPerPixelX, _
CLng(Screen.Height \ (Screen.TwipperPixcel*2)), &H10 Or &H2 Or &H4)

R = SetWindowPos(GetWindow(Combo3.hwnd, 2), 0, 0, _
0, Combo2.Width \ Screen.TwipsPerPixelX, _
CLng(Screen.Height \ (Screen.TwipperPixcel*2)), &H10 Or &H2 Or &H4)

R = SetWindowPos(GetWindow(Combo2.hwnd, 2), 0, 0, _
0, Combo1.Width \ Screen.TwipsPerPixelX, _
CLng(Screen.Height \ (Screen.TwipperPixcel*2)), &H10 Or &H2 Or &H4)

End Sub

GetWindow(Combo2.hwnd, 2)が怪しいですが・・・。
まぁ、一応できたんでOKとしましょう。

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
森 喬顯 　　     Takaaki Mori
Email:　 takaaki@mori.104.net
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*