MultiColumn ComboBox

[joesatri]

I need a combobox with at least two columns...
Actually, i need to use it in a .asp page...

[Iouri]

use the combobox that comes with Microsoft Form 2.0 Object LIbrary. It supports multiple columns

'another===
'Access like combo (OCX)

http://www.planetsourcecode.com/xq/A...s/ShowCode.htm

Iouri Boutchkine
[email protected]

[Iouri]

THis is a code for multiple columns in list box. I think it will work for combo box too.

'module
Const LB_SETTABSTOPS = &H192
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub SetListTabStops(iListHandle As Long)
' sets 2 tab stops in a list box at the 24th
' and 48th character
' iListHandle = the window handle of the list box
Dim iNumColumns As Long
Dim iListTabs(1) As Long
Dim Ret As Long

iNumColumns = 2

iListTabs(0) = 96 ' 96/4 = 24 characters
iListTabs(1) = 192 ' 192/4 = 48 characters

Ret = SendMessage(iListHandle, LB_SETTABSTOPS, iNumColumns, iListTabs(1))
End Sub

'form
Private Sub Form_Load()
Call SetListTabStops(lstMyListBox.hwnd)
lstMyListBox.AddItem "Column 1 data" & vbTab & "Column 2 data"
End Sub


Iouri Boutchkine
[email protected]