|
575
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
With Exlist1
.BeginUpdate()
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
With .Items
.Add("Spain")
.Add("Spain")
.Add("Spain")
.Add("Spain")
.Add("Germany")
.Add("Germany")
.Add("Germany")
.Add("Germany")
End With
.EndUpdate()
End With
|
|
574
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
With Exlist1
.BeginUpdate()
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.Columns.Add("Country").ShowIdem = " "
With .Items
.Add("Spain")
.Add("Spain")
.Add("Spain")
.Add("Spain")
.Add("Germany")
.Add("Germany")
.Add("Germany")
.Add("Germany")
End With
.EndUpdate()
End With
|
|
573
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
With Exlist1
.BeginUpdate()
With .VisualAppearance
.RenderType = &Hffffffffui
.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
.Add(2,"CP:1 -2 0 0 0")
End With
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXLISTLib.GridLinesStyleEnum.exGridLinesGeometric
.ShowFocusRect = False
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000001)
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.BackColorHeader = Color.FromArgb(255,255,255)
.HeaderHeight = 24
.HeaderVisible = True
With .Columns.Add("1st col")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.Filter = "Item B"
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
End With
.Columns.Add("2nd col")
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
572
|
How can I replace or add an icon at runtime
With Exlist1
.BeginUpdate()
.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
.ReplaceIcon("C:\images\favicon.ico",0)
.Columns.Add("Items").set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.Items.Add("Item <img>1</img>")
.EndUpdate()
End With
|
|
571
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
With Exlist1
.BeginUpdate()
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.HeaderHeight = 24
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = True
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exFilterPatternTemplate,"*<%filter%>*")
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exPattern
.Filter = "1"
End With
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
570
|
Disable temporarily the column's sort, resize and drag and drop
With Exlist1
.BeginUpdate()
.SortBarVisible = True
.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
.HeaderEnabled = False
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.Columns.Add("Index").FormatColumn = "1 index ``"
.Columns.Add("Pos").FormatColumn = "1 apos ``"
.Columns.Add("Edit")
.GridLineStyle = exontrol.EXLISTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exVLines
.GridLineColor = Color.FromArgb(224,224,224)
.EndUpdate()
End With
|
|
569
|
Expandable-caption
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exlist1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exlist1.AnchorClick
With Exlist1
Debug.Print( AnchorID )
End With
End Sub
Dim h
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXLISTLib.GridLinesStyleEnum.exGridLinesGeometric
.BackColorAlternate = Color.FromArgb(240,240,240)
.ShowFocusRect = False
.Columns.Add("Default")
With .Items
.Add("before item")
h = .Add("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==> " & _
"650;</a><br>+ withdraw(amount: Currency)")
.set_CaptionFormat(h,0,exontrol.EXLISTLib.CaptionFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXLISTLib.CellSingleLineEnum.exCaptionWordWrap)
.Add("after item")
End With
.EndUpdate()
End With
|
|
568
|
Expandable-caption
Dim h
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXLISTLib.GridLinesStyleEnum.exGridLinesGeometric
.BackColorAlternate = Color.FromArgb(240,240,240)
.ShowFocusRect = False
.Columns.Add("Default")
With .Items
.Add("before item")
h = .Add("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
.set_CaptionFormat(h,0,exontrol.EXLISTLib.CaptionFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXLISTLib.CellSingleLineEnum.exCaptionWordWrap)
.Add("after item")
End With
.EndUpdate()
End With
|
|
567
|
Force hover-all feature
With Exlist1
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With
|
|
566
|
Disable hover-all feature (Windows 11 or greater)
With Exlist1
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exScrollHoverAll,Color.FromArgb(1,0,0))
End With
|
|
565
|
Display a custom tooltip
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exlist1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exlist1.MouseMoveEvent
With Exlist1
.ShowToolTip("new content","",Nothing,"+8","+8")
End With
End Sub
|
|
564
|
Shows the tooltip of the object moved relative to its default position
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exlist1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exlist1.MouseMoveEvent
With Exlist1
.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
End With
End Sub
With Exlist1
.ColumnAutoResize = False
.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
|
|
563
|
How do I prevent changing the cell's state ( check-box state )
' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub Exlist1_CellStateChanging(ByVal sender As System.Object,ByVal ItemIndex As Integer,ByVal ColIndex As Integer,ByRef NewState As Integer) Handles Exlist1.CellStateChanging
With Exlist1
With .Items
NewState = .get_CellState(ItemIndex,ColIndex)
End With
End With
End Sub
With Exlist1
.BeginUpdate()
.FreezeEvents(True)
.Columns.Add("P1").set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.Columns.Add("P2").set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
With .Items
.Add("C1")
.set_CellState(.Add("C2"),0,1)
.set_CellState(.Add("C3"),0,1)
.Add("C4")
End With
.FreezeEvents(False)
.EndUpdate()
End With
|
|
562
|
ADOR, MDB (JET)
Dim rs
With Exlist1
.BeginUpdate()
.ColumnAutoResize = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\sample.mdb",3,3)
End With
.DataSource = rs
.EndUpdate()
End With
|
|
561
|
Highlight the match once the filter is applied
' FilterChange event - Occurs when filter was changed.
Private Sub Exlist1_FilterChange(ByVal sender As System.Object) Handles Exlist1.FilterChange
Dim format
With Exlist1
format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
.Columns.Item(0).FormatColumn = format
.Columns.Item(1).FormatColumn = format
.Columns.Item(2).FormatColumn = format
End With
End Sub
Dim h0
With Exlist1
.BeginUpdate()
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.ColumnAutoResize = True
.ContinueColumnScroll = False
.MarkSearchColumn = False
.SearchColumnIndex = 1
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.HeaderHeight = 23
.BackColorLevelHeader = .BackColor
.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarBackColor = .BackColor
.FilterBarPromptPattern = "and"
With .Columns
With .Add("Name")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.FormatColumn = "lower(value)"
End With
With .Add("Title")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.FormatColumn = "lower(value)"
End With
With .Add("City")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.FormatColumn = "lower(value)"
End With
End With
With .Items
h0 = .Add("Nancy Davolio")
.set_Caption(h0,1,"Sales Representative")
.set_Caption(h0,2,"Seattle")
h0 = .Add("Andrew Fuller")
.set_Caption(h0,1,"Vice President, Sales")
.set_Caption(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .Add("Janet Leverling")
.set_Caption(h0,1,"Sales Representative")
.set_Caption(h0,2,"Kirkland")
h0 = .Add("Margaret Peacock")
.set_Caption(h0,1,"Sales Representative")
.set_Caption(h0,2,"Redmond")
h0 = .Add("Steven Buchanan")
.set_Caption(h0,1,"Sales Manager")
.set_Caption(h0,2,"London")
h0 = .Add("Michael Suyama")
.set_Caption(h0,1,"Sales Representative")
.set_Caption(h0,2,"London")
h0 = .Add("Robert King")
.set_Caption(h0,1,"Sales Representative")
.set_Caption(h0,2,"London")
h0 = .Add("Laura Callahan")
.set_Caption(h0,1,"Inside Sales Coordinator")
.set_Caption(h0,2,"Seattle")
h0 = .Add("Anne Dodsworth")
.set_Caption(h0,1,"Sales Representative")
.set_Caption(h0,2,"London")
End With
.EndUpdate()
End With
|
|
560
|
Re-order the cell's caption, icons and images/pictures
Dim h
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
With .Columns.Add("ToLeft")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Columns.Add("ToRight")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellDrawPartsOrder,"caption,picture,icons,icon,check")
End With
.DefaultItemHeight = 32
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exVLines
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
With .Items
h = .Add("Caption")
.set_CellImage(h,0,2)
.set_CellImages(h,0,"1,2")
.set_CellPicture(h,0,Exlist1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
.set_Caption(h,1,.get_Caption(h,0))
.set_CellHAlignment(h,1,exontrol.EXLISTLib.AlignmentEnum.RightAlignment)
.set_CellImage(h,1,.get_CellImage(h,0))
.set_CellImages(h,1,"2,1")
.set_CellPicture(h,1,.get_CellPicture(h,0))
h = .Add("<b>HTML</b> <off 4>Caption")
.set_CaptionFormat(h,0,exontrol.EXLISTLib.CaptionFormatEnum.exHTML)
.set_CellImage(h,0,2)
.set_CellImages(h,0,"1,2")
.set_CellPicture(h,0,Exlist1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
.set_Caption(h,1,.get_Caption(h,0))
.set_CaptionFormat(h,1,exontrol.EXLISTLib.CaptionFormatEnum.exHTML)
.set_CellHAlignment(h,1,exontrol.EXLISTLib.AlignmentEnum.RightAlignment)
.set_CellImage(h,1,.get_CellImage(h,0))
.set_CellImages(h,1,"2,1")
.set_CellPicture(h,1,.get_CellPicture(h,0))
End With
.EndUpdate()
End With
|
|
559
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
' AddColumn event - Fired after a new column is added.
Private Sub Exlist1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXLISTLib.Column) Handles Exlist1.AddColumn
' Column.Def(48) = 2
' Column.Def(49) = 2
End Sub
Dim h
With Exlist1
.BeginUpdate()
.ImageSize = 32
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.SortBarHeight = .DefaultItemHeight
.Font.Size = 16
.FilterBarFont.Size = Exlist1.Font.Size
.ToolTipFont.Size = Exlist1.Font.Size
.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA==")
.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
End With
.BackColorHeader32 = &H4c6c6c6
.SelBackColor32 = &H4000000
.SelForeColor = Color.FromArgb(0,0,1)
.set_CheckImage(exontrol.EXLISTLib.CheckStateEnum.Unchecked,16777216)
.set_CheckImage(exontrol.EXLISTLib.CheckStateEnum.Checked,33554432)
.set_CheckImage(exontrol.EXLISTLib.CheckStateEnum.PartialChecked,50331648)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.ShowFocusRect = False
.SortBarVisible = True
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.FilterBarDropDownHeight = 1
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.Width = 128
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.FormatColumn = "1 pos ``"
.AllowSort = False
.Width = 48
.AllowSizing = False
.Alignment = exontrol.EXLISTLib.AlignmentEnum.CenterAlignment
.HeaderAlignment = exontrol.EXLISTLib.AlignmentEnum.CenterAlignment
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.Width = 128
.HeaderImage = 1
End With
With .Columns.Add("Images")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.Width = 196
.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
End With
.Columns.Item("Pos").Position = 3
With .Items
h = .Add("Child A")
.set_CellImage(h,2,1)
.set_CellImages(h,3,"1,2,3")
.set_Caption(h,3,"123")
h = .Add("Child B")
.set_CellState(h,0,1)
.set_CellImage(h,2,3)
.set_CellImages(h,3,"2,3,1")
.set_Caption(h,3,"231")
.set_SelectItem(h,True)
h = .Add("Child C")
.set_CellImage(h,2,2)
.set_CellState(h,3,1)
.set_Caption(h,3,"312")
.set_CellImages(h,3,"3,1,2")
End With
.EndUpdate()
End With
|
|
558
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
' AddColumn event - Fired after a new column is added.
Private Sub Exlist1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXLISTLib.Column) Handles Exlist1.AddColumn
' Column.Def(48) = 2
' Column.Def(49) = 2
End Sub
Dim h
With Exlist1
.BeginUpdate()
.ImageSize = 16
.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
With .VisualAppearance
.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
End With
.BackColorHeader32 = &H4c6c6c6
.SelBackColor32 = &H4000000
.SelForeColor = Color.FromArgb(0,0,1)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.ShowFocusRect = False
.SortBarVisible = True
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.FilterBarDropDownHeight = 1
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.Width = 128
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.FormatColumn = "1 pos ``"
.AllowSort = False
.Width = 48
.AllowSizing = False
.Alignment = exontrol.EXLISTLib.AlignmentEnum.CenterAlignment
.HeaderAlignment = exontrol.EXLISTLib.AlignmentEnum.CenterAlignment
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.Width = 128
.HeaderImage = 1
End With
With .Columns.Add("Images")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.Width = 196
.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
End With
.Columns.Item("Pos").Position = 3
With .Items
h = .Add("Child A")
.set_CellImage(h,2,1)
.set_CellImages(h,3,"1,2,3")
.set_Caption(h,3,"123")
h = .Add("Child B")
.set_CellState(h,0,1)
.set_CellImage(h,2,3)
.set_CellImages(h,3,"2,3,1")
.set_Caption(h,3,"231")
.set_SelectItem(h,True)
h = .Add("Child C")
.set_CellImage(h,2,2)
.set_CellState(h,3,1)
.set_Caption(h,3,"312")
.set_CellImages(h,3,"3,1,2")
End With
.EndUpdate()
End With
|
|
557
|
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set
' AddColumn event - Fired after a new column is added.
Private Sub Exlist1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXLISTLib.Column) Handles Exlist1.AddColumn
With Exlist1
With Column
End With
End With
End Sub
Dim rs
With Exlist1
.BeginUpdate()
.ColumnAutoResize = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\sample.accdb",3,3)
End With
.DataSource = rs
.Columns.Item("ShipVia").Position = 2
.EndUpdate()
End With
|
|
556
|
Is it possible to set from code, a column sort without being inserted in the sortbar
Dim rs
With Exlist1
.BeginUpdate()
.ColumnAutoResize = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3)
End With
.DataSource = rs
.SortBarVisible = True
.Layout = "singlesort=""C1:1"""
.EndUpdate()
End With
|
|
555
|
Is it possible to highligth the match while a filter is applied
' AddColumn event - Fired after a new column is added.
Private Sub Exlist1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXLISTLib.Column) Handles Exlist1.AddColumn
' Column.Def(17) = 1
End Sub
' FilterChange event - Occurs when filter was changed.
Private Sub Exlist1_FilterChange(ByVal sender As System.Object) Handles Exlist1.FilterChange
Dim format
With Exlist1
format = .FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
.Columns.Item(0).FormatColumn = format
.Columns.Item(1).FormatColumn = format
End With
End Sub
With Exlist1
.BeginUpdate()
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exVLines
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.Columns.Add("Col 1")
.Columns.Add("Col 2")
With .Items
.set_Caption(.Add("219 Smith"),1,"Ignacio 1234")
.set_Caption(.Add("1666 County Road 309A"),1,"897 Manassa")
.set_Caption(.Add("38 Lone Pine"),1,"Durango 11")
.set_Caption(.Add("612 Jachim Street"),1,"Lamar 222")
End With
.FilterBarPromptPattern = "1"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXLISTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXLISTLib.FilterPromptEnum.exFilterPromptContainsAll
.EndUpdate()
End With
|
|
554
|
Is it possible to highlight the column's header once a filter is applied
Dim h
With Exlist1
.BeginUpdate()
With .VisualAppearance
.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
.Add(1,"CP:2 -8 -4 2 4")
End With
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1fefefe)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H1010101)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.HeaderHeight = 28
.BackColorHeader = Color.FromArgb(255,255,255)
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.HeaderVisible = True
With .Columns
.Add("C1").DisplayFilterButton = True
With .Add("C2")
.DisplayFilterButton = True
.Filter = "Item 2"
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
End With
.Add("C3").DisplayFilterButton = True
End With
With .Items
h = .Add("Item 1")
.set_Caption(h,1,"Item 2")
.set_Caption(h,2,"Item 3")
h = .Add("Item 4")
.set_Caption(h,1,"Item 5")
.set_Caption(h,2,"Item 6")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
553
|
Is it possible to show the filterbar on top of the rows
With Exlist1
.BeginUpdate()
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarTop
.HeaderHeight = 24
.FilterBarHeight = .HeaderHeight
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Flat
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXLISTLib.GridLinesStyleEnum.exGridLinesGeometric
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exPattern
.Filter = "B*"
End With
With .Columns.Add("Index")
.FormatColumn = "1 index ``"
.Position = 0
.Width = 48
.AllowSizing = False
.SortType = exontrol.EXLISTLib.SortTypeEnum.SortNumeric
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Items
.Add("A.1")
.Add("A.2")
.Add("B.1")
.Add("B.2")
.Add("B.3")
.Add("C")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
552
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
With Exlist1
.BeginUpdate()
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
With .Columns
.Add("Item")
With .Add("Pos")
.Position = 0
.Width = 32
.AllowSizing = False
.FormatColumn = "1 index ``"
.AllowSort = False
.AllowDragging = False
End With
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.EndUpdate()
End With
|
|
551
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
With Exlist1
.BeginUpdate()
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
With .Columns
.Add("Item")
With .Add("Pos")
.Position = 0
.Width = 32
.AllowSizing = False
.FormatColumn = "1 index ``"
.AllowSort = False
.AllowDragging = False
End With
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.EndUpdate()
End With
|
|
550
|
How do I get notified once the user clicks the cell's button
' CellButtonClick event - Fired after the user clicks the cell's button.
Private Sub Exlist1_CellButtonClick(ByVal sender As System.Object,ByVal ItemIndex As Integer,ByVal ColIndex As Integer) Handles Exlist1.CellButtonClick
With Exlist1
With .Items
Debug.Print( .get_Caption(ItemIndex,0) )
End With
End With
End Sub
With Exlist1
.BeginUpdate()
.Columns.Add("Item")
With .Columns.Add("...")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasButton,True)
.Alignment = exontrol.EXLISTLib.AlignmentEnum.CenterAlignment
.HeaderAlignment = exontrol.EXLISTLib.AlignmentEnum.CenterAlignment
.FormatColumn = "` ... `"
.Width = 32
.AllowSizing = False
.Position = 0
End With
.SelBackMode = exontrol.EXLISTLib.BackModeEnum.exTransparent
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
.EndUpdate()
End With
|
|
549
|
How do I set an extra data for each item
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exlist1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exlist1.MouseMoveEvent
Dim c,hit,i
With Exlist1
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( i )
Debug.Print( .Items.get_ItemData(i) )
End With
End Sub
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
With .Items
.set_ItemData(.Add("method"),"your extra data of method")
End With
.EndUpdate()
End With
|
|
548
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically
With Exlist1
.BeginUpdate()
.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXLISTLib.GridLinesStyleEnum.exGridLinesVSolid
With .Columns
.Add("Item")
With .Add("Pos")
.Position = 0
.Width = 32
.AllowSizing = False
.FormatColumn = "1 index ``"
End With
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.EndUpdate()
End With
|
|
547
|
Can I sort the column by check-state
With Exlist1
.BeginUpdate()
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.SortType = exontrol.EXLISTLib.SortTypeEnum.exSortByState
End With
With .Items
.Add()
.set_CellState(.Add(),0,1)
.set_CellState(.Add(),0,1)
.Add()
End With
.Columns.Item(0).SortOrder = exontrol.EXLISTLib.SortOrderEnum.SortAscending
.EndUpdate()
End With
|
|
546
|
Can I sort the column by image
With Exlist1
.BeginUpdate()
.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("Image")
.SortType = exontrol.EXLISTLib.SortTypeEnum.exSortByImage
End With
With .Items
.set_CellImage(.Add(),0,3)
.Add()
.set_CellImage(.Add(),0,1)
.set_CellImage(.Add(),0,2)
End With
.Columns.Item(0).SortOrder = exontrol.EXLISTLib.SortOrderEnum.SortAscending
.EndUpdate()
End With
|
|
545
|
How can I display UNICODE characters
With Exlist1
.BeginUpdate()
With .Font
.Name = "Arial Unicode"
.Size = 22
End With
.HeaderVisible = False
.DefaultItemHeight = 48
.Columns.Add("").set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
With .Items
.Add("Ӓӓ")
.Add("ᦜᦝ;ᦞ")
.Add("ɮɭ;ɯ")
.Add("勳勴勵勶")
.set_FormatCell(.Add(Exlist1.Version),0,"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ")
End With
.EndUpdate()
End With
|
|
544
|
How do I display the position of the item with 0-padding
With Exlist1
.BeginUpdate()
.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value"
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
.Add("Item D")
End With
.EndUpdate()
End With
|
|
543
|
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do
With Exlist1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" & _
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" & _
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" & _
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" & _
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" & _
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" & _
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" & _
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" & _
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" & _
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=")
.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" & _
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" & _
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" & _
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" & _
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" & _
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==")
End With
.BackColorHeader32 = &H1000000
.ForeColorHeader = Color.FromArgb(128,128,128)
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(0,0,1))
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exSelBackColorFilter,&H1ff8000)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exSelForeColorFilter,Color.FromArgb(240,240,240))
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.HeaderHeight = 24
.BackColorLevelHeader = .BackColor
With .Columns.Add("Filter")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exHeaderPaddingLeft,2)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exHeaderPaddingRight,2)
End With
With .Items
.Add("A")
.Add("B")
.Add("C")
.Add("D")
End With
.EndUpdate()
End With
|
|
542
|
Type of wraps the cell's caption support (Sample 2)
With Exlist1
.BeginUpdate()
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns
With .Add("Single-Line (exCaptionSingleLine)")
.Width = 96
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellSingleLine,-1)
End With
With .Add("Word-Wrap (exCaptionWordWrap)")
.Width = 96
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellSingleLine,0)
.FormatColumn = "%0"
End With
With .Add("Break-Wrap (exCaptionBreakWrap)")
.Width = 96
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellSingleLine,1)
.FormatColumn = "%0"
End With
End With
With .Items
.Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.Add("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
End With
.EndUpdate()
End With
|
|
541
|
Type of wraps the cell's caption support (Sample 1)
Dim h
With Exlist1
.BeginUpdate()
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
h = .Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h = .Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CaptionFormat(h,0,exontrol.EXLISTLib.CaptionFormatEnum.exHTML)
h = .Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.set_CellSingleLine(h,0,exontrol.EXLISTLib.CellSingleLineEnum.exCaptionWordWrap)
h = .Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CaptionFormat(h,0,exontrol.EXLISTLib.CaptionFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXLISTLib.CellSingleLineEnum.exCaptionWordWrap)
h = .Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.set_CellSingleLine(h,0,exontrol.EXLISTLib.CellSingleLineEnum.exCaptionBreakWrap)
h = .Add("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CaptionFormat(h,0,exontrol.EXLISTLib.CaptionFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXLISTLib.CellSingleLineEnum.exCaptionBreakWrap)
End With
.EndUpdate()
End With
|
|
540
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
With Exlist1
.BeginUpdate()
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
.set_CellSingleLine(.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,exontrol.EXLISTLib.CellSingleLineEnum.exCaptionBreakWrap)
.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
End With
.EndUpdate()
End With
|
|
539
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
With Exlist1
.BeginUpdate()
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns.Add("Default")
.Width = 128
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellSingleLine,1)
End With
With .Items
.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.Add("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
End With
.EndUpdate()
End With
|
|
538
|
How can I change the visual appearance/color of the Filter For ... field
With Exlist1
.BeginUpdate()
.BackColorHeader = Color.FromArgb(1,0,0)
.ForeColorHeader = Color.FromArgb(255,255,255)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exBackColorFilter,.BackColorHeader)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exForeColorFilter,.ForeColorHeader)
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exHeaderFilterBarButton,Color.FromArgb(240,240,240))
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Bump
With .Columns.Add("Items")
.FilterOnType = True
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exNoItems
End With
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
.EndUpdate()
End With
|
|
537
|
How can I display the cell's caption without spaces on both sides
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.FormatColumn = "((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
End With
With .Items
.Add("")
.Add("Item A")
.Add(" Item B")
.Add(" Item C ")
End With
.EndUpdate()
End With
|
|
536
|
How can I highlight the spaces within the column (sample 2)
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
End With
With .Items
.Add("")
.Add("Item A")
.Add(" Item B")
.Add(" Item C ")
End With
.EndUpdate()
End With
|
|
535
|
How can I highlight the spaces within the column (sample 1)
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
End With
With .Items
.Add("")
.Add("Item A")
.Add(" Item B")
.Add(" Item C ")
End With
.EndUpdate()
End With
|
|
534
|
How can I change the visual aspect of the drop down filter-calendar
With Exlist1
.BeginUpdate()
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(0,0,1))
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exDateScrollRange,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exDateHeader,.get_Background(exontrol.EXLISTLib.BackgroundPartEnum.exBackColorFilter))
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exDateScrollThumb,Color.FromArgb(128,128,128))
With .Columns.Add("Date")
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exDate
.DisplayFilterButton = True
.DisplayFilterDate = True
.DisplayFilterPattern = False
End With
.EndUpdate()
End With
|
|
533
|
Export Data in HTML format
Dim sFile
With Exlist1
.BeginUpdate()
.BackColorAlternate = Color.FromArgb(240,240,240)
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXLISTLib.FilterPromptEnum.exFilterPromptContainsAny
With .ConditionalFormats
.Add("%0 like `*AA*`","aa").BackColor = Color.FromArgb(192,192,192)
With .Add("%0 like `*D*`","d")
.ForeColor = Color.FromArgb(255,128,128)
.ApplyTo = exontrol.EXLISTLib.FormatApplyToEnum.exFormatToColumns
End With
With .Add("%0 like `*b*`","b")
.ForeColor = Color.FromArgb(0,0,255)
.Bold = True
.Italic = True
.ApplyTo = exontrol.EXLISTLib.FormatApplyToEnum.exFormatToColumns
End With
End With
With .Columns
With .Add("Value")
.Width = 128
.HTMLCaption = "<b>VA</b><r>sko"
End With
With .Add("APos")
.FormatColumn = "0 apos ``"
.AllowSort = False
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellBackColor,15790320)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXLISTLib.DefColumnEnum.exCellForeColor))
.Position = 0
End With
With .Add("RPos")
.FormatColumn = "0 rpos ``"
.AllowSort = False
.Position = 1
End With
With .Add("Index")
.FormatColumn = "0 index ``"
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
.Position = 2
End With
With .Add("Data 1")
.FormatColumn = "0 index `A-Z`"
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Data 2")
.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellSingleLine,False)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasRadioButton,True)
End With
With .Add("Data 3")
.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
End With
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
.set_CellState(2,4,1)
.Add("Item AA")
.Add("Item BB")
.Add("Item CC")
.set_CellState(5,5,1)
.Add("Item D")
.Add("Item EE")
.Add("Item FFF")
End With
.EndUpdate()
sFile = "c:/temp/export.html"
.Export(sFile,"vis")
With New SHDocVw.ShellBrowserWindow()
.Navigate2(sFile)
End With
End With
|
|
532
|
Export Data in CSV format
With Exlist1
.BeginUpdate()
.BackColorAlternate = Color.FromArgb(240,240,240)
.DrawGridLines = exontrol.EXLISTLib.GridLinesEnum.exAllLines
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXLISTLib.FilterPromptEnum.exFilterPromptContainsAny
With .ConditionalFormats
.Add("%0 like `*AA*`","aa").BackColor = Color.FromArgb(192,192,192)
With .Add("%0 like `*D*`","d")
.ForeColor = Color.FromArgb(255,128,128)
.ApplyTo = exontrol.EXLISTLib.FormatApplyToEnum.exFormatToColumns
End With
With .Add("%0 like `*b*`","b")
.ForeColor = Color.FromArgb(0,0,255)
.Bold = True
.Italic = True
.ApplyTo = exontrol.EXLISTLib.FormatApplyToEnum.exFormatToColumns
End With
End With
With .Columns
With .Add("Value")
.Width = 128
.HTMLCaption = "<b>VA</b><r>sko"
End With
With .Add("APos")
.FormatColumn = "0 apos ``"
.AllowSort = False
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellBackColor,15790320)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXLISTLib.DefColumnEnum.exCellForeColor))
.Position = 0
End With
With .Add("RPos")
.FormatColumn = "0 rpos ``"
.AllowSort = False
.Position = 1
End With
With .Add("Index")
.FormatColumn = "0 index ``"
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
.Position = 2
End With
With .Add("Data 1")
.FormatColumn = "0 index `A-Z`"
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Data 2")
.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellSingleLine,False)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasRadioButton,True)
End With
With .Add("Data 3")
.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCaptionFormat,1)
End With
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
.set_CellState(2,4,1)
.Add("Item AA")
.Add("Item BB")
.Add("Item CC")
.set_CellState(5,5,1)
.Add("Item D")
.Add("Item EE")
.Add("Item FFF")
End With
.EndUpdate()
Debug.Print( .Export("","vis") )
End With
|
|
531
|
How can I get the icon from the cell when using the Items.CellImages property (icon index)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exlist1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exlist1.MouseMoveEvent
Dim c,hit,i
With Exlist1
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,.Items.get_CellImages(i,c)) )
End With
End Sub
With Exlist1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Default")
With .Items
.set_CellImages(.Add("Item 1"),0,"3,2,1")
.set_CellImages(.Add("Item 2"),0,"2,3")
.set_CellImages(.Add("Item 3"),0,"2,")
End With
.EndUpdate()
End With
|
|
530
|
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exlist1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exlist1.MouseMoveEvent
Dim c,hit,i
With Exlist1
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
End With
End Sub
With Exlist1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Default")
With .Items
.set_CellImages(.Add("Item 1"),0,"3,2,1")
.set_CellImages(.Add("Item 2"),0,"2,3")
.set_CellImages(.Add("Item 3"),0,"2")
End With
.EndUpdate()
End With
|
|
529
|
How can I get the index of icon from the cell, if using the CellImages property
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exlist1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exlist1.MouseMoveEvent
Dim c,hit,i
With Exlist1
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
End With
End Sub
With Exlist1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Default")
With .Items
.set_CellImages(.Add("Item 1"),0,"1,2,3")
.set_CellImages(.Add("Item 2"),0,"2,3,1")
.set_CellImages(.Add("Item 3"),0,"3,2,1")
End With
.EndUpdate()
End With
|
|
528
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
With Exlist1
.BeginUpdate()
.HeaderAppearance = exontrol.EXLISTLib.AppearanceEnum.Etched
With .Columns
.Add("Column 1")
.Add("Column 2")
.Add("Column 3")
End With
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
.Add(2,"CP:1 0 -36 0 0")
End With
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
.EndUpdate()
End With
|
|
527
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
With Exlist1
.BeginUpdate()
.ColumnAutoResize = True
.DefaultItemHeight = 20
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
.Columns.Add("Default").set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
With .Columns.Add("Position")
.FormatColumn = "1 rindex ``"
.Visible = False
End With
With .ConditionalFormats.Add("%C1 mod 2")
.BackColor32 = &H1000000
End With
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
End With
.EndUpdate()
End With
|
|
526
|
Is it possible to change the caption from a column without to remove the column and add it with the new caption
With Exlist1
.Columns.Add("ColumnName").Caption = "NewName"
.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
End With
|
|
525
|
FilterBarCaption ALL Keyword ( sample 2, result )
' AddItem event - Occurs after a new Item is inserted to Items collection.
Private Sub Exlist1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exlist1.AddItem
' i = FormatABC("value + 1", Items.ItemToIndex(Item))
Dim i
With Exlist1
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Exlist1
.BeginUpdate()
.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("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
h = .Add("Item B")
.set_Caption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
|
524
|
FilterBarCaption ALL Keyword ( sample 1 )
' AddItem event - Occurs after a new Item is inserted to Items collection.
Private Sub Exlist1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exlist1.AddItem
' i = FormatABC("value + 1", Items.ItemToIndex(Item))
Dim i
With Exlist1
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Exlist1
.BeginUpdate()
.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("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
h = .Add("Item B")
.set_Caption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "all"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
|
523
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
' AddItem event - Occurs after a new Item is inserted to Items collection.
Private Sub Exlist1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exlist1.AddItem
' i = FormatABC("value + 1", Items.ItemToIndex(Item))
Dim i
With Exlist1
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Exlist1
.BeginUpdate()
.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("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
h = .Add("Item B")
.set_Caption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
|
522
|
FilterBarCaption ALLUI Keyword ( sample 1 )
' AddItem event - Occurs after a new Item is inserted to Items collection.
Private Sub Exlist1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exlist1.AddItem
' i = FormatABC("value + 1", Items.ItemToIndex(Item))
Dim i
With Exlist1
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Exlist1
.BeginUpdate()
.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("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
h = .Add("Item B")
.set_Caption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "allui"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
|
521
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
' AddItem event - Occurs after a new Item is inserted to Items collection.
Private Sub Exlist1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exlist1.AddItem
' i = FormatABC("value + 1", Items.ItemToIndex(Item))
Dim i
With Exlist1
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Exlist1
.BeginUpdate()
.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("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
h = .Add("Item B")
.set_Caption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
|
520
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
' AddItem event - Occurs after a new Item is inserted to Items collection.
Private Sub Exlist1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exlist1.AddItem
' i = FormatABC("value + 1", Items.ItemToIndex(Item))
Dim i
With Exlist1
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Exlist1
.BeginUpdate()
.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("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exImage
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
h = .Add("Item B")
.set_Caption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "value + ` ` + available"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
|
519
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
With Exlist1
.BeginUpdate()
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
.set_Caption(.Add("Item B"),1,"Sub-Item B")
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exPattern
.Filter = "*B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
518
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
With Exlist1
.BeginUpdate()
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
.set_Caption(.Add("Item B"),1,"Sub-Item B")
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exPattern
.Filter = "*B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
517
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
With Exlist1
.BeginUpdate()
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_Caption(.Add("Item A"),1,"Sub-Item A")
.set_Caption(.Add("Item B"),1,"Sub-Item B")
.set_Caption(.Add("Item C"),1,"Sub-Item C")
End With
.set_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXLISTLib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exPattern
.Filter = "*B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
516
|
Is it possible to automatically displays the control's filter label to the right
With Exlist1
.BeginUpdate()
With .Columns.Add("Item")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarCaption = "`<r>` + value"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
515
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
With Exlist1
.BeginUpdate()
With .Columns.Add("Item")
.DisplayFilterButton = True
.FilterList = exontrol.EXLISTLib.FilterListEnum.exShowExclude Or exontrol.EXLISTLib.FilterListEnum.exShowFocusItem Or exontrol.EXLISTLib.FilterListEnum.exShowCheckBox Or exontrol.EXLISTLib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarFont = .Font
.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.EndUpdate()
End With
|
|
514
|
How can I get the number of results being shown in the control's filter bar (sample 3)
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : ``)"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
513
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
512
|
How can I get the number of results being shown in the control's filter bar (sample 1)
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
511
|
FilterBarCaption Predefined Keywords
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Check")
.set_Def(exontrol.EXLISTLib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
510
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
509
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
.EndUpdate()
End With
|
|
508
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
With Exlist1
.BeginUpdate()
.RightToLeft = True
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.EndUpdate()
End With
|
|
507
|
How can I change the visual appearance of the filter bar's close button (EBN)
With Exlist1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exFooterFilterBarButton,&H1000000)
.EndUpdate()
End With
|
|
506
|
How can I change the visual appearance of the filter bar's close button (solid)
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.set_Background(exontrol.EXLISTLib.BackgroundPartEnum.exFooterFilterBarButton,Color.FromArgb(255,0,0))
.EndUpdate()
End With
|
|
505
|
Is it possible to prevent definitely showing the filter bar's close button
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.set_Background32(exontrol.EXLISTLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
.EndUpdate()
End With
|
|
504
|
Is it possible to show the close button only if there is a filter applied
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.EndUpdate()
End With
|
|
503
|
The control's filter bar is not closed once I click the close button (toggle)
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarCaption = "`<r><fgcolor=808080>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
502
|
How can I display the control's filter on a single line
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
501
|
How can I display the control's filter on a single line (prompt-combined)
With Exlist1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
.FilterBarCaption = "`<r>` + value"
.FilterBarPromptVisible = exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXLISTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = exontrol.EXLISTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|