リストボックス

質問

リストボックスの中にコンボボックスを入れたリストを
作りたいのですが、標準の機能でありますか？
やはり、拡張しかないのでしょうか？

拡張としたら何がありますか？
SPREAD（旧文化オリエント社製）は知っているのですが、
他にありますでしょうか？

宜しくお願いします。

回答No.1

todo36 · ベストアンサー

MsFlexGridとComboboxを使う方法

Private Sub Form_Load()
With MSFlexGrid1
.Rows = 4
.Cols = 4
.TextMatrix(2, 2) = "ここ"
.RowHeightMin = Combo1.Height
End With
MSFlexGrid1_RowColChange
End Sub

Private Sub MSFlexGrid1_RowColChange()

With MSFlexGrid1
If (.Row = 2 And .Col = 2) Then
Combo1.Move .Left + .CellLeft, .Top + .CellTop, .CellWidth
Combo1.Visible = True
Else
Combo1.Visible = False
End If
End With
End Sub

お礼

早速の回答ありがとうございました。
こんなコントロールもあったのですね。
勉強不足でした。
使い方とかをマニュアルとにらめっこしながら検討したいと思います。
ありがとうございました。

回答No.2

imogasi

事情がわからぬ、かつVB素人ですが、コンボをコピーし
コントロール配列にして、各々を上下縦ににひっつける
のはだめですか。
Private Sub Form_Load()
h = Form1.Combo1(0).Height
hh = 0
For i = 0 To 4
Form1.Combo1(i).Top = hh + h * i
Form1.Combo1(i).Left = 20
Next i
'------
Form1.Combo1(0).AddItem "化成品"
Form1.Combo1(0).AddItem "鉄鋼"
Form1.Combo1(0).AddItem "木材"
Form1.Combo1(0).AddItem "食品"
'---------
Form1.Combo1(1).AddItem "東京"
Form1.Combo1(1).AddItem "名古屋"
Form1.Combo1(1).AddItem "大阪"
Form1.Combo1(1).AddItem "福岡"
End Sub

お礼

ありがとうございました。
しかし、この方式も考えたのですが、コンボボックスの数（行数）が可変（１～１５位）するので、画面が間延びしてしまい、あまりかっこよくなかったのです。
（質問に言葉がたりませんでしたね、失礼しました）