486:
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Date")
			.SortType = 2
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.DisplayFilterDate = True
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("DateTime")
			.SortType = 3
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("Time")
			.SortType = 4
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
			.FormatColumn = "time(value)"
		End With
		With .Columns.Add("Numeric")
			.SortType = 1
			.DisplayFilterButton = True
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Columns.Add("String")
			.DisplayFilterButton = True
			.FilterList = 1296 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsDesc
		End With
		With .Items
			h = .Add(#1/27/2010#)
			.Caption(h,1) = #1/27/2010 10:00:00 AM#
			.Caption(h,2) = .Caption(h,1)
			.Caption(h,3) = 1
			.Caption(h,4) = .Caption(h,3)
			h = .Add(#1/27/2011#)
			.Caption(h,1) = #1/27/2011 9:00:00 AM#
			.Caption(h,2) = .Caption(h,1)
			.Caption(h,3) = 11
			.Caption(h,4) = .Caption(h,3)
			h = .Add(#11/2/2010#)
			.Caption(h,1) = #11/2/2010 9:00:00 AM#
			.Caption(h,2) = .Caption(h,1)
			.Caption(h,3) = 2
			.Caption(h,4) = .Caption(h,3)
		End With
		.Columns.Item("DateTime").DisplayFilterDate = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

485:
How can I get ride / hide the image being dragged by OLE Drag and Drop
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData("data to drag")
	With List1
		AllowedEffects = 1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.OLEDropMode = 1
		.Background(34) = RGB(255,255,255)
		.Columns.Add "Default"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
	End With
End Function
</SCRIPT>
</BODY>

484:
Is there an event that fires on the exList control when the order of items in the list is changed via dragging
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_AllowAutoDrag(Item,InsertA,InsertB,Cancel)
	With List1
		With .Items
			alert( "After" )
			alert( .Caption(InsertA,0) )
			alert( "Before" )
			alert( .Caption(InsertB,0) )
		End With
		Cancel = True
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.AutoDrag = 1
		.Columns.Add "Task"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
			.Add "Item 4"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

483:
How can I export checked items only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns
			.Add("C1").Def(0) = True
			.Add("C2").FormatColumn = "1 index `A-Z`"
			.Add("C3").FormatColumn = "100 index ``"
		End With
		With .Items
			.Add "Item 1"
			.CellState(.Add("Item 2"),0) = 1
			.CellState(.Add("Item 3"),0) = 1
		End With
		.EndUpdate 
		alert( "Export CSV Checked Items Only:" )
		alert( .Export("","chk") )
	End With
End Function
</SCRIPT>
</BODY>

482:
How can I export a hidden column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns
			.Add "C1"
			With .Add("C2")
				.FormatColumn = "1 index `A-Z`"
				.Visible = False
			End With
			With .Add("C3")
				.FormatColumn = "100 index ``"
				.Visible = False
			End With
		End With
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
		.EndUpdate 
		alert( "Export CSV Hidden Columns (1,2):" )
		alert( .Export("","|1,2") )
	End With
End Function
</SCRIPT>
</BODY>

481:
Is it possible to have a different alignment for parts of the cell's caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.DrawGridLines = -1
		With .Columns.Add("Default")
			.Def(0) = True
		End With
		With .Items
			.CellHAlignment(.Add("all-left"),0) = 0
			.CellHAlignment(.Add("all-center"),0) = 1
			.CellHAlignment(.Add("all-right"),0) = 2
			h = .Add("left<c>center<r>right")
			.CaptionFormat(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

480:
I have a column with Def(exCellSingleLine) property on False, word-wrapping, and I am wondering if possible to update the column's content while user is resizing it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns
			With .Add("MultipleLine")
				.Width = 32
				.Def(16) = False
				.Def(64) = True
			End With
			With .Add("SingleLine")
				.Def(16) = False
			End With
		End With
		With .Items
			.Caption(.Add("This is a bit of long text that should break the line"),1) = "This is a bit of long text that should break the line"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

479:
How can I hide the cell's tooltip
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_ToolTip(ItemIndex,ColIndex,Visible,X,Y,CX,CY)
	With List1
		alert( "The tooltip is about to be shown" )
		Visible = False
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add "Def"
		With .Items
			.CellToolTip(.Add("Item 1"),0) = "This is a bit of text that's shown when cursor hovers the item."
			.CellToolTip(.Add("Item 2"),0) = "This is a bit of text that's shown when cursor hovers the item."
			.CellToolTip(.Add("Item 3"),0) = "This is a bit of text that's shown when cursor hovers the item."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

478:
How can I find out if an item is selected or unselected
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_MouseMove(Button,Shift,X,Y)
	With List1
		i = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			alert( .SelectItem(i) )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.Columns.Add "Header"
		With .Items
			.Add "Item 1"
			.SelectItem(.Add("Item 2")) = True
			.Add "Item 3"
		End With
	End With
End Function
</SCRIPT>
</BODY>

477:
How do I sort the index column as numeric

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_AddItem(Item)
	With List1
		With .Items
			.CellData(Item,1) = Item
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.DrawGridLines = -1
		.ColumnAutoResize = True
		.ShowFocusRect = False
		With .Columns.Add("Next")
			.Def(48) = 4
			.Def(52) = 4
		End With
		With .Columns.Add("Index")
			.AllowSizing = False
			.Width = 48
			.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
			.Def(17) = 1
			.SortType = 5
			.Position = 0
		End With
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
			.Add "Item 4"
			.Add "Item 5"
			.Add "Item 6"
			.Add "Item 7"
			.Add "Item 8"
			.Add "Item 9"
			.Add "Item 10"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

476:
How can I put icons/images into buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = True
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("C+B")
			.AllowSizing = False
			.Width = 48
			.FormatColumn = "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `"
			.Def(17) = 1
			.Def(0) = True
			.Def(2) = True
			.Def(3) = True ' DefColumnEnum.exCellHasButton Or DefColumnEnum.exCellHasRadioButton
		End With
		.Columns.Add ""
		.DrawGridLines = 2
		.DefaultItemHeight = 20
		With .Items
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

475:
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_CellButtonClick(Item,ColIndex)
	With List1
			alert( "CellButtonClick" )
		alert( Item )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function List1_CellStateChanged(Item,ColIndex)
	With List1
			alert( "CellStateChanged" )
		alert( Item )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("")
			.AllowSizing = False
			.Width = 32
			.FormatColumn = "1 index ``"
		End With
		With .Columns.Add("Def")
			.AllowSizing = False
			.Width = 48
			.FormatColumn = "`     `"
			.Def(0) = True
			.Def(2) = True
			.Def(3) = True ' DefColumnEnum.exCellHasButton Or DefColumnEnum.exCellHasRadioButton
		End With
		.Columns.Add ""
		With .Items
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
			.Add ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

474:
Does filtering work with umlauts / accents characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Names")
			.DisplayFilterButton = True
			.FilterType = 3
		End With
		With .Items
			.Add "Mantel"
			.Add "Mechanik"
			.Add "Motor"
			.Add "Murks"
			.Add "Märchen"
			.Add "Möhren"
			.Add "Mühle"
			.Add "Sérigraphie"
		End With
		.Columns.Item(0).Filter = "*ä*"
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

473:
Can I set the search box / filterbarprompt to invisible, so I can use my own input and *string* via VBA
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.FilterBarHeight = 0
		.FilterBarPromptVisible = True
		With .Columns
			.Add("Name").Width = 96
			.Add("Title").Width = 96
			.Add "City"
		End With
		With .Items
			h0 = .Add("Nancy Davolio")
			.Caption(h0,1) = "Sales Representative"
			.Caption(h0,2) = "Seattle"
			h0 = .Add("Andrew Fuller")
			.Caption(h0,1) = "Vice President, Sales"
			.Caption(h0,2) = "Tacoma"
			.SelectItem(h0) = True
			h0 = .Add("Janet Leverling")
			.Caption(h0,1) = "Sales Representative"
			.Caption(h0,2) = "Kirkland"
			h0 = .Add("Margaret Peacock")
			.Caption(h0,1) = "Sales Representative"
			.Caption(h0,2) = "Redmond"
			h0 = .Add("Steven Buchanan")
			.Caption(h0,1) = "Sales Manager"
			.Caption(h0,2) = "London"
			h0 = .Add("Michael Suyama")
			.Caption(h0,1) = "Sales Representative"
			.Caption(h0,2) = "London"
			h0 = .Add("Robert King")
			.Caption(h0,1) = "Sales Representative"
			.Caption(h0,2) = "London"
			h0 = .Add("Laura Callahan")
			.Caption(h0,1) = "Inside Sales Coordinator"
			.Caption(h0,2) = "Seattle"
			h0 = .Add("Anne Dodsworth")
			.Caption(h0,1) = "Sales Representative"
			.Caption(h0,2) = "London"
		End With
		.FilterBarPromptPattern = "London"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

472:
How can I align captions of items with checkbox, with items with no checkbox

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add "Default"
		With .Items
			.CellImages(.Add(0),0) = "1"
			.CellHasCheckBox(.Add(1),0) = True
			.CellImages(.Add(2),0) = "1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

471:
How do I programmatically scroll the control (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		.Layout = "vscroll = 10"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

470:
How do I programmatically scroll the control (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		.ScrollPos(True) = 10
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

469:
How can I decode the Layout property
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns
			.Add "C1"
			.Add("C2").Position = 1
		End With
		With .Items
			.Caption(.Add("SubItem 1.1"),1) = "SubItem 1.2"
			.Caption(.Add("SubItem 2.1"),1) = "SubItem 2.2"
		End With
		.Columns.Item("C2").SortOrder = 2
		.EndUpdate 
		alert( "Encoded:" )
		alert( .Layout )
		With CreateObject("Exontrol.Print")
			alert( "Decoded: " )
			alert( .Decode64TextW(List1.Layout) )
		End With
	End With
End Function
</SCRIPT>
</BODY>

468:
Does the title of the cell's tooltip supports HTML format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("")
			.Caption = ""
			.HTMLCaption = "Column"
		End With
		With .Items
			h = .Add("tooltip w/h different title")
			.CellToolTip(h,0) = "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the tit" & _
	"le centered with a different color."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

467:
How do I specify a different title for the cell's tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("")
			.Caption = "This is the title"
			.HTMLCaption = "Column"
		End With
		With .Items
			h = .Add("tooltip w/h different title")
			.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

466:
The cell's tooltip displays the column's caption in its title. How can I get ride of that

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns
			.Add "C1"
			.Add "C2"
		End With
		With .Items
			h = .Add("tooltip w/h caption")
			.CellToolTip(h,0) = "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
			.Caption(h,1) = "tooltip no caption"
			.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
		End With
		With .Columns.Item("C2")
			.HTMLCaption = .Caption
			.Caption = ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

465:
When you click the cell it takes some time before the edit box appears, can this delay be removed

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_Click()
	With List1
		h = .ItemFromPoint(-1,-1,ColIndex,HitTestInfo)
		.Items.Edit h,ColIndex
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.AllowEdit = True
		.Columns.Add "Default"
		With .Items
			.Add ""
			.Add "Edit"
			.Add ""
		End With
	End With
End Function
</SCRIPT>
</BODY>

464:
How can I programmatically show the column's filter

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_RClick()
	With List1
		i = .ItemFromPoint(-1,-1,c,hit)
		.Columns.Item(c).ShowFilter "-1,-1,128,128"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ShowFocusRect = False
		With .Columns.Add("Items ")
			.DisplayFilterPattern = False
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

463:
I want to be able to click on one of the headers, and sort by other column. How can I do that

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_ColumnClick(Column)
	' Column.SortOrder = 1
	With List1
		.SortOnClick = -1
		.Columns.Item("Sort").SortOrder = 1
		.SortOnClick = 1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.SortOnClick = 1
		.Columns.Add "Items"
		.Columns.Add("Sort").Visible = False
		With .Items
			.Caption(.Add("Item 1 (3)"),1) = 3
			.Caption(.Add("Item 2 (1)"),1) = 1
			.Caption(.Add("Item 3 (2)"),1) = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

462:
How can I sort by two-columns, one by date and one by time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.SingleSort = False
		With .Columns
			.Add("Index").FormatColumn = "1 index ``"
			.Add("Date").SortType = 2
			With .Add("Time")
				.SortType = 4
				.FormatColumn = "time(value)"
			End With
		End With
		With .Items
			h = .Add(0)
			.Caption(h,1) = #1/1/2001#
			.Caption(h,2) = #1/1/2001 10:00:00 AM#
			h = .Add(0)
			.Caption(h,1) = #12/31/2000#
			.Caption(h,2) = #1/1/2001 10:00:00 AM#
			h = .Add(0)
			.Caption(h,1) = #1/1/2001#
			.Caption(h,2) = #1/1/2001 6:00:00 AM#
			h = .Add(0)
			.Caption(h,1) = #12/31/2000#
			.Caption(h,2) = #1/1/2001 8:00:00 AM#
			h = .Add(0)
			.Caption(h,1) = #1/1/2001#
			.Caption(h,2) = #1/1/2001 8:00:00 AM#
			h = .Add(0)
			.Caption(h,1) = #12/31/2000#
			.Caption(h,2) = #1/1/2001 6:00:00 AM#
		End With
		.Layout = "multiplesort=""C1:1 C2:1"""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

461:
How can I connect to a DBF file
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		.MarkSearchColumn = False
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3
		End With
		.DataSource = rs
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

460:
Does your control supports scrolling by touching the screen

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.ColumnAutoResize = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		.ContinueColumnScroll = True
		.ScrollBySingleLine = True
		.AutoDrag = 4112 ' AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
	End With
End Function
</SCRIPT>
</BODY>

459:
How can I enlarge the size of the control's scroll bars, for using on touch screens

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.ScrollBars = 15
		.ScrollWidth = 32
		.ScrollHeight = 32
		.ScrollButtonHeight = 32
		.ScrollButtonWidth = 32
	End With
End Function
</SCRIPT>
</BODY>

458:
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_CellStateChanged(Item,ColIndex)
	With List1
		With .Items
			.Caption(Item,2) = .CellState(Item,0)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ShowFocusRect = False
		.MarkSearchColumn = False
		.SelBackMode = 1
		Set var_ConditionalFormat = .ConditionalFormats.Add("%2 != 0")
		With var_ConditionalFormat
			.Bold = True
			.ForeColor = RGB(255,0,0)
			.ApplyTo = -1
		End With
		With .Columns.Add("")
			.Def(0) = True
			.Width = 16
			.AllowSizing = False
		End With
		.Columns.Add "Information"
		.Columns.Add("Hidden").Visible = False
		With .Items
			.Caption(.Add(""),1) = "This is a bit of text associated"
			h = .Add("")
			.Caption(h,1) = "This is a bit of text associated"
			.CellState(h,0) = 1
			.Caption(.Add(""),1) = "This is a bit of text associated"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

457:
How can I display the caption bellow to picture

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ScrollBySingleLine = True
		.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
		.Columns.Add "Default"
		With .Items
			h = .Add("<c><img>p1</img><br><c>your caption1")
			.CellSingleLine(h,0) = False
			.CaptionFormat(h,0) = 1
			h = .Add("<c><img>p2</img><br><c>your caption2")
			.CellSingleLine(h,0) = False
			.CaptionFormat(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

456:
How can I add a vertical padding

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.DrawGridLines = -1
		With .Columns.Add("Padding")
			.Def(0) = True
			.Def(16) = False
			.Def(48) = 6
			.Def(49) = 6
			.Def(50) = 6
			.Def(51) = 6
		End With
		With .Items
			.Add "padding"
			.Add "padding"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

455:
How do you embed HTML options into the anchor click string

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_AnchorClick(AnchorID,Options)
	With List1
		alert( AnchorID )
		alert( Options )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns
			.Add("Car").Def(17) = 1
		End With
		With .Items
			.Add "<a mazda_1;options for 1>Mazda <b>1</b></a>"
			.Add "<a mazda_2;options for 2>Mazda <b>2</b></a>"
			.Add "<a mazda_3;options for 3a>Mazda <b>3.a</b></a>"
			.Add "<a mazda_3;options for 3b>Mazda <b>3.b</b></a>"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

454:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78e" & _
	"gBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRx" & _
	"LC8Mw3BDvYDkOAABAIgI="
		.SelBackColor = &H1fffffe
		.ShowFocusRect = False
		.Columns.Add "Items"
		With .Items
			.ItemBackColor(.Add("red")) = RGB(255,0,0)
			.ItemBackColor(.Add("blue")) = RGB(0,0,255)
			.ItemBackColor(.Add("green")) = RGB(0,255,0)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

453:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.SelBackMode = 1
		.ShowFocusRect = False
		.Columns.Add "Items"
		With .Items
			.ItemBackColor(.Add("red")) = RGB(255,0,0)
			.ItemBackColor(.Add("blue")) = RGB(0,0,255)
			.ItemBackColor(.Add("green")) = RGB(0,255,0)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

452:
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.SelBackColor = .BackColor
		.SelForeColor = .ForeColor
		.ShowFocusRect = True
		.Columns.Add "Items"
		With .Items
			.ItemBackColor(.Add("red")) = RGB(255,0,0)
			.ItemBackColor(.Add("blue")) = RGB(0,0,255)
			.ItemBackColor(.Add("green")) = RGB(0,255,0)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

451:
I am using the FormatColumn property, but is it also possible to have a blank field when the value is '0'. I've tried the 'leading zero' flag in the FormatColumn, but that did not work

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.Columns.Add("Currency").FormatColumn = "int(value) != 0 ? (value format `0||3|,`) : ``"
		.Items.Add 123456789
		.Items.Add 1234
		.Items.Add 0
		.Items.Add 2345
	End With
End Function
</SCRIPT>
</BODY>

450:
Do you have a VB sample on how to use .FormatColumn to show this number '123456789' like '123,456,789'

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.Columns.Add("Currency").FormatColumn = "value format `0||3|,`"
		.Items.Add 123456789
		.Items.Add 1234
	End With
End Function
</SCRIPT>
</BODY>

449:
Is it possible to change the image while do OLE Drag and Drop operations

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData(Items.FocusItem)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.Columns.Add "Default"
		.Items.Add "Item 1"
		.Items.Add "Item 2"
		.OLEDropMode = 1
		.HTMLPicture("OLEDragDropImage") = "C:\Program Files\Exontrol\ExList\Sample\VB\UNICODE\unicode.jpg"
	End With
End Function
</SCRIPT>
</BODY>

448:
Is it possible to change the image while do OLE Drag and Drop operations

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData(Items.FocusItem)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.Columns.Add "Default"
		.Items.Add "Item 1"
		.Items.Add "Item 2"
		.OLEDropMode = 1
		.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\xpbselIcon.ebn"
		.Background(34) = &H1000000
		.Background(33) = RGB(255,255,255)
	End With
End Function
</SCRIPT>
</BODY>

447:
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.HTMLPicture("p1") = "c:\exontrol\images\card.png"
		.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
		.AutoDrag = 11
		.ShowFocusRect = False
		.DefaultItemHeight = 26
		.Columns.Add "Task"
		With .Items
			.CaptionFormat(.Add("<img>p1:32</img> Group 1"),0) = 1
			.CaptionFormat(.Add("<img>p2:32</img> Group 2"),0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

446:
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.HTMLPicture("p1") = "c:\exontrol\images\card.png"
		.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
		.HeaderHeight = 24
		.DefaultItemHeight = 48
		.DrawGridLines = -2 ' &Hfffffffc Or GridLinesEnum.exVLines
		.GridLineColor = RGB(240,240,240)
		.SelBackMode = 1
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		.Columns.Item(0).Def(17) = 1
		.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
		.Columns.Item(0).Width = 112
		.AutoDrag = 10
		.SingleSel = False
		With .Items
			.SelectItem(1) = True
			.SelectItem(2) = True
			.SelectItem(3) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

445:
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		.AutoDrag = 9
		.SingleSel = False
		With .Items
			.SelectItem(1) = True
			.SelectItem(3) = True
			.SelectItem(4) = True
			.SelectItem(5) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

444:
How can I change the row's position to another, by drag and drop. Is it possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.AutoDrag = 1
		.Columns.Add "Task"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
			.Add "Item 4"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

443:
Does your control support subscript or superscript, in HTML captions

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.Columns.Add("Column").Def(17) = 1
		.Items.Add "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
	End With
End Function
</SCRIPT>
</BODY>

442:
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add "Column"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
		.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

441:
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add "Column"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
		End With
		.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" & _
	"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" & _
	"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

440:
Is there any public method to export the selected data

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns
			.Add "C1"
			.Add("C2").FormatColumn = "1 index `A-Z`"
			.Add("C3").FormatColumn = "100 index ``"
		End With
		With .Items
			.Add "Item 1"
			.SelectItem(.Add("Item 2")) = True
			.Add "Item 3"
		End With
		.EndUpdate 
		alert( "Export CSV Selected Items Only:" )
		alert( .Export("","sel") )
	End With
End Function
</SCRIPT>
</BODY>

439:
How can I change the visual aspect of the links in the sort bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		.SortBarHeight = 24
		.HeaderHeight = 24
		.BackColorSortBar = RGB(240,240,240)
		.BackColorSortBarCaption = .BackColor
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" & _
	"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" & _
	"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI"
		.SortBarVisible = True
		.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
		With .Columns.Item(1)
			.Alignment = 1
			.Def(4) = 15790320
			.SortOrder = True ' True
		End With
		With .Columns.Item(5)
			.Alignment = 1
			.Def(4) = 16119285
			.SortOrder = True ' True
		End With
		.Background(28) = &H1000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

438:
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			With .Add("Car")
				.DisplayFilterButton = True
				.FilterType = 240
				.Filter = "MAZDA"
			End With
			With .Add("Equipment")
				.DisplayFilterButton = True
				.DisplayFilterPattern = False
				.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
				.FilterType = 3
				.Filter = "AIR BAG"
			End With
		End With
		With .Items
			.Caption(.Add("Mazda"),1) = "Air Bag"
			.Caption(.Add("Toyota"),1) = "Air Bag,Air condition"
			.Caption(.Add("Ford"),1) = "Air condition"
			.Caption(.Add("Nissan"),1) = "Air Bag,ABS,ESP"
			.Caption(.Add("Mazda"),1) = "Air Bag, ABS,ESP"
			.Caption(.Add("Mazda"),1) = "ABS,ESP"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

437:
How can I have a case-sensitive filter

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			With .Add("Car")
				.DisplayFilterButton = True
				.FilterType = 496 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exFilter
				.Filter = "Mazda"
			End With
			With .Add("Equipment")
				.DisplayFilterButton = True
				.DisplayFilterPattern = False
				.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
				.FilterType = 259 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exPattern
				.Filter = "Air Bag"
			End With
		End With
		With .Items
			.Caption(.Add("Mazda"),1) = "Air Bag"
			.Caption(.Add("Toyota"),1) = "Air Bag,Air condition"
			.Caption(.Add("Ford"),1) = "Air condition"
			.Caption(.Add("Nissan"),1) = "Air Bag,ABS,ESP"
			.Caption(.Add("Mazda"),1) = "Air Bag, ABS,ESP"
			.Caption(.Add("Mazda"),1) = "ABS,ESP"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

436:
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Item")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.Filter = "Child 1"
			.FilterType = 240
		End With
		With .Columns.Add("Date")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.DisplayFilterDate = True
			.FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
			.Filter = #12/28/2010#
			.FilterType = 4
		End With
		.FilterCriteria = "%0 or %1"
		.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
		.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
		With .Items
			h = .Add("Root 1")
			.Caption(.Add("Child 1"),1) = #12/27/2010#
			.Caption(.Add("Child 2"),1) = #12/28/2010#
			h = .Add("Root 2")
			.Caption(.Add("Child 1"),1) = #12/29/2010#
			.Caption(.Add("Child 2"),1) = #12/30/2010#
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

435:
Is it possible exclude the dates being selected in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Date")
			.SortType = 2
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.DisplayFilterDate = True
			.FilterList = 9474 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
		End With
		With .Items
			.Add #12/27/2010#
			.Add #12/28/2010#
			.Add #12/29/2010#
			.Add #12/30/2010#
			.Add #12/31/2010#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

434:
How can I display a calendar control inside the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Date")
			.SortType = 2
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.DisplayFilterDate = True
			.FilterList = 1282 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exNoItems
		End With
		With .Items
			.Add #12/27/2010#
			.Add #12/28/2010#
			.Add #12/29/2010#
			.Add #12/30/2010#
			.Add #12/31/2010#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

433:
Is it possible to include the dates as checkb-boxes in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Dates")
			.SortType = 2
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.DisplayFilterDate = True
			.FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
			.Filter = "to 12/27/2010"
			.FilterType = 4
		End With
		With .Items
			.Add #12/27/2010#
			.Add #12/28/2010#
			.Add #12/29/2010#
			.Add #12/30/2010#
			.Add #12/31/2010#
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

432:
How can I filter items for dates before a specified date

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Dates")
			.SortType = 2
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.DisplayFilterDate = True
			.FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
			.Filter = "to 12/27/2010"
			.FilterType = 4
		End With
		With .Items
			.Add #12/27/2010#
			.Add #12/28/2010#
			.Add #12/29/2010#
			.Add #12/30/2010#
			.Add #12/31/2010#
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

431:
Is it possible to filter dates

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Dates")
			.SortType = 2
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.DisplayFilterDate = True
			.FilterList = 1026 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exNoItems
		End With
		With .Items
			.Add #12/27/2010#
			.Add #12/28/2010#
			.Add #12/29/2010#
			.Add #12/30/2010#
			.Add #12/31/2010#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

430:
Is it possible to change the Exclude field name to something different, in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Description(25) = "Leaving out"
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

429:
How can I display the Exclude field in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

428:
Is it possible to show and ensure the focused item from the control, in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 1280 ' FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
			.SelectItem(.Add("Child 2")) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

427:
Is it possible to show only blanks items with no listed items from the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 16386 ' FilterListEnum.exShowBlanks Or FilterListEnum.exNoItems
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
			.Add "Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

426:
How can I include the blanks items in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 16640 ' FilterListEnum.exShowBlanks Or FilterListEnum.exShowCheckBox
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
			.Add "Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

425:
How can I select multiple items in the drop down filter window, using check-boxes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 256
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
			.Add "Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

424:
Is it possible to allow a single item being selected in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 128
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
			.Add "Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

423:
How can I display no (All) item in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Description(0) = ""
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.FilterList = 2
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
			.Add "Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

422:
Is it possible to display no items in the drop down filter window, so only the pattern is visible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.FilterList = 2
		End With
		With .Items
			h = .Add("Root 1")
			.Add "Child 1"
			.Add "Child 2"
			h = .Add("Root 2")
			.Add "Child 1"
			.Add "Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

421:
How can I sort the value gets listed in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.MarkSearchColumn = False
		.Description(0) = ""
		.Description(1) = ""
		.Description(2) = ""
		With .Columns.Add("P1")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 16
		End With
		With .Columns.Add("P2")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 32
		End With
		With .Items
			h = .Add("Z3")
			.Caption(h,1) = "C"
			.Caption(.Add("Z1"),1) = "B"
			.Caption(.Add("Z2"),1) = "A"
		End With
	End With
End Function
</SCRIPT>
</BODY>

420:
How can I add or change the padding (spaces) for captions in the control's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Padding-Left").Def(52) = 18
		With .Columns.Add("Padding-Right")
			.Def(53) = 18
			.HeaderAlignment = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

419:
Do you have any plans to add cell spacing and cell padding to the cells

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.DrawGridLines = -2 ' &Hfffffffc Or GridLinesEnum.exVLines
		With .Columns.Add("Padding-Left")
			.Def(0) = True
			.Def(48) = 18
		End With
		.Columns.Add("No-Padding").Def(0) = True
		.Columns.Add("Empty").Position = 0
		With .Items
			.Caption(.Add("Item A.1"),1) = "Item A.2"
			.Caption(.Add("Item B.1"),1) = "Item B.2"
			.Caption(.Add("Item C.1"),1) = "Item C.2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

418:
Is it possible display numbers in the same format no matter of regional settings in the control panel

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Def").Def(17) = 1
		With .Items
			h = .Add(100000.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default positive)'"
			h = .Add(100000.27)
			.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
			h = .Add(-100000.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default negative)'"
			h = .Add(-100000.27)
			.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

417:
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Def").Def(17) = 1
		With .Items
			h = .Add(0.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
			h = .Add(0.27)
			.FormatCell(h,0) = "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

416:
How can I specify the format for negative numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Def").Def(17) = 1
		With .Items
			h = .Add(-100000.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
			h = .Add(-100000.27)
			.FormatCell(h,0) = "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

415:
Is it possible to change the grouping character when display numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Def").Def(17) = 1
		With .Items
			h = .Add(100000.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
			h = .Add(100000.27)
			.FormatCell(h,0) = "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

414:
How can I display numbers with 2 digits in each group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Def").Def(17) = 1
		With .Items
			h = .Add(100000.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
			h = .Add(100000.27)
			.FormatCell(h,0) = "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

413:
How can I display my numbers using a different decimal separator

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Def").Def(17) = 1
		With .Items
			h = .Add(100.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
			h = .Add(100.27)
			.FormatCell(h,0) = "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

412:
Is it possible to display the numbers using 3 (three) digits

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add("Def").Def(17) = 1
		With .Items
			h = .Add(100.27)
			.FormatCell(h,0) = "(value format '') +  ' <fgcolor=808080>(default)'"
			h = .Add(100.27)
			.FormatCell(h,0) = "(value format '3') +  ' <fgcolor=808080>(3 digits)'"
			h = .Add(100.27)
			.FormatCell(h,0) = "(value format 2) +  '  <fgcolor=808080>(2 digits)'"
			h = .Add(100.27)
			.FormatCell(h,0) = "(value format 1) +  ' <fgcolor=808080>(1 digit)'"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

411:
Is it possible to format numbers

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.MarkSearchColumn = False
		.SelBackColor = .BackColor
		.SelForeColor = .ForeColor
		.ShowFocusRect = True
		With .Columns
			.Add "Name"
			With .Add("A")
				.SortType = 1
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			End With
			With .Add("B")
				.SortType = 1
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' +'"
			End With
			With .Add("C")
				.SortType = 1
				.AllowSizing = False
				.Width = 36
				.FormatColumn = "len(value) ? value + ' ='"
			End With
			With .Add("A+B+C")
				.SortType = 1
				.Width = 64
				.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
				.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
	"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
				.Def(17) = 1
			End With
		End With
		With .Items
			h = .Add("Item")
			.CaptionFormat(h,4) = 2
			h = .Add("Item 1")
			.Caption(h,1) = 7
			.Caption(h,2) = 3
			.Caption(h,3) = 1
			h = .Add("Item 2")
			.Caption(h,1) = -2
			.Caption(h,2) = -2
			.Caption(h,3) = -4
			h = .Add("Item 3")
			.Caption(h,1) = 2
			.Caption(h,2) = 2
			.Caption(h,3) = -4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

410:
Is it possible background color displayed when the mouse passes over an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add "Def"
		.HotBackColor = RGB(0,0,128)
		.HotForeColor = RGB(255,255,255)
		With .Items
			.Add "Item A"
			.Add "Item B"
			.Add "Item C"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

409:
Is it possible to specify the cell's value but still want to display some formatted text instead the value

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Name"
			With .Add("Values")
				.SortType = 1
				.AllowSizing = False
				.Width = 64
				.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
				.Def(17) = 1
			End With
		End With
		With .Items
			.FormatCell(.Add("Item A"),1) = "`<none>`"
			.Caption(.Add("Item 1"),1) = 10
			.Caption(.Add("Item 2"),1) = 15
			.Caption(.Add("Item 3"),1) = 25
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

408:
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Name"
			With .Add("Values")
				.SortType = 1
				.AllowSizing = False
				.Width = 64
				.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
				.Def(17) = 1
			End With
		End With
		With .Items
			.FormatCell(.Add("Item A"),1) = " "
			.Caption(.Add("Item 1"),1) = 10
			.Caption(.Add("Item 2"),1) = 15
			.Caption(.Add("Item 3"),1) = 25
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

407:
I am using the FormatColumn to format my columns. Is it possible to ignore the SelForeColor, so the foreground color for selected items does not override my settings

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_SelectionChanged()
	With List1
		With .Items
			.ClearItemBackColor -1
			.ItemBackColor(.SelectedItem(0)) = RGB(128,255,255)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.MarkSearchColumn = False
		.SelForeColor = .ForeColor
		.SelBackColor = .BackColor
		.ShowFocusRect = False
		With .Columns
			With .Add("Format")
				.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
	"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
				.Def(17) = 1
			End With
		End With
		With .Items
			.Add 10
			.Add -8
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

406:
Is it possible to change the height for all items at once

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Columns.Add "Items"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
			.Add "Item 3"
			.Add "Item 4"
		End With
		.EndUpdate 
		.DefaultItemHeight = 12
		.Items.ItemHeight(-1) = 12
	End With
End Function
</SCRIPT>
</BODY>

405:
How can I change the shape of the line to be shown when user drag and drop data over the control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData("data to be dragged")
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.OLEDropMode = 1
		.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExList\Sample\VB\DragDrop\insert_bottom.ebn"
		.Background(96) = &H1000000
		.Columns.Add "Default"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>

404:
How can I highlight the item from cursor when the user drag and drop data over the control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData("data to be dragged")
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.OLEDropMode = 1
		.Background(96) = RGB(1,0,0)
		.Columns.Add "Default"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>

403:
How can I start drag and drop items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function List1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData("to be carried by drag and drop")
	With List1
		AllowedEffects = 1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.OLEDropMode = 1
		.Columns.Add "Default"
		With .Items
			.Add "Item 1"
			.Add "Item 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

402:
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		With .Columns
			.Add "Value"
			With .Add("CellSingleLine = False")
				.ComputedField = "%0"
				.Def(16) = False
			End With
			With .Add("FormatColumn/replace CRLF")
				.ComputedField = "%0"
				.FormatColumn = "value replace `\r\n` with ``"
			End With
			With .Add("FormatColumn/replace TAB,CRLF")
				.ComputedField = "%0"
				.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
			End With
		End With
		With .Items
			.Add "a\ta\r\nb\tb"
		End With
	End With
End Function
</SCRIPT>
</BODY>

401:
The Column.Alignment property does not seem to work for cells with images in them. What can be done

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1B0CA5A8-2107-4460-BBEE-F25F8801B2F6" id="List1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With List1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.DrawGridLines = -1
		.HeaderHeight = 24
		.DefaultItemHeight = 24
		With .Columns.Add("Image")
			.AllowSizing = False
			.Width = 32
			.HTMLCaption = "<img>1</img>"
			.HeaderAlignment = 1
			.Alignment = 1
			.Def(17) = 1
		End With
		.Columns.Add "Rest"
		With .Items
			.Add "<img>1</img>"
			.Add "<img>2</img>"
			.Add "<img>3</img>"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>