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

With List1
.BeginUpdate
With .Columns
With .Add("MultipleLine")
.Width = 32
.Def(exCellSingleLine) = False
.Def(exColumnResizeContiguously) = True
End With
With .Add("SingleLine")
.Def(exCellSingleLine) = 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

479:

How can I hide the cell's tooltip

' ToolTip event - Fired when the control prepares the object's tooltip.
Private Sub List1_ToolTip(ByVal ItemIndex As Long,ByVal ColIndex As Long,Visible As Boolean,X As Long,Y As Long,ByVal CX As Long,ByVal CY As Long)
With List1
Debug.Print( "The tooltip is about to be shown" )
Visible = False
End With
End Sub
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

478:

How can I find out if an item is selected or unselected

' MouseMove event - Occurs when the user moves the mouse.
Private Sub List1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
With List1
i = .ItemFromPoint(-1,-1,c,hit)
With .Items
Debug.Print( .SelectItem(i) )
End With
End With
End Sub
With List1
.Columns.Add "Header"
With .Items
.Add "Item 1"
.SelectItem(.Add("Item 2")) = True
.Add "Item 3"
End With
End With

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

467:

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

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

466:

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

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

465:

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

' Click event - Occurs when the user presses and then releases the left mouse button over the list control.
Private Sub List1_Click()
With List1
h = .ItemFromPoint(-1,-1,ColIndex,HitTestInfo)
.Items.Edit h,ColIndex
End With
End Sub
With List1
.AllowEdit = True
.Columns.Add "Default"
With .Items
.Add ""
.Add "Edit"
.Add ""
End With
End With

464:

How can I programmatically show the column's filter

' RClick event - Fired when right mouse button is clicked
Private Sub List1_RClick()
With List1
i = .ItemFromPoint(-1,-1,c,hit)
.Columns.Item(c).ShowFilter"-1,-1,128,128"
End With
End Sub
With List1
.BeginUpdate
.ShowFocusRect = False
With .Columns.Add("Items ")
.DisplayFilterPattern = False
.FilterList = 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

463:

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

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub List1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
With List1
Debug.Print( AnchorID )
Debug.Print( Options )
End With
End Sub
With List1
.BeginUpdate
With .Columns
.Add("Car").Def(exCaptionFormat) = 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

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)

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)

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)

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub List1_OLEStartDrag(ByVal Data As EXLISTLibCtl.IExDataObject,AllowedEffects As Long)
' Data.SetData("to be carried by drag and drop")
With List1
AllowedEffects = 1
End With
End Sub
With List1
.BeginUpdate
.OLEDropMode = exOLEDropManual
.Columns.Add "Default"
With .Items
.Add "Item 1"
.Add "Item 2"
End With
.EndUpdate
End With

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

With List1
With .Columns
.Add "Value"
With .Add("CellSingleLine = False")
.ComputedField = "%0"
.Def(exCellSingleLine) = 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

401:

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