🚀 go-pugleaf

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
*=*=*=*=*=*=*=*=*=*=*=*=*=*=*