|
79
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Items.ItemHeight(0) = View.DefaultItemHeight
' FilterBarFont.Size = Me.Font.Size
' ToolTipFont.Size = Me.Font.Size
With Excascadetree1
With .View
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.SortBarHeight = .DefaultItemHeight
.Indent = 26
.set_CheckImage(exontrol.EXCASCADETREELib.CheckStateEnum.Unchecked,16777216)
.set_CheckImage(exontrol.EXCASCADETREELib.CheckStateEnum.Checked,33554432)
.set_CheckImage(exontrol.EXCASCADETREELib.CheckStateEnum.PartialChecked,50331648)
.EnsureVisibleColumn("Function")
With .Columns.Item("Function")
End With
.Columns.Item(0).set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.ImageSize = 32
.Font.Size = 16
.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_Background(&H14,.SelBackColor)
.set_Background(&H15,.SelForeColor)
.set_Background(&H8 Or exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.BackColor)
.set_Background(&H9 Or exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.ForeColor)
.set_Background32(&H20,-1)
.set_Background32(&H0,&H4000000)
.set_Background32(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
.set_Background32(&H1,&H40000ff)
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Etched
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\MN"
.EndUpdate()
End With
|
|
78
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.EnsureVisibleColumn("Function")
With .Columns.Item("Function")
End With
.Columns.Item(0).set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.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(&H14,.SelBackColor)
.set_Background(&H15,.SelForeColor)
.set_Background(&H8 Or exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.BackColor)
.set_Background(&H9 Or exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.ForeColor)
.set_Background32(&H20,-1)
.set_Background32(&H0,&H4000000)
.set_Background32(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
.set_Background32(&H1,&H40000ff)
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Etched
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\MN"
.EndUpdate()
End With
|
|
77
|
Is it possible to highlight the column's header once a filter is applied
Dim h
With Excascadetree1
.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(&H0,&H1fefefe)
.set_Background32(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,&H1010101)
.set_Background32(&H20,-1)
.BackColorHeader = Color.FromArgb(255,255,255)
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.HeaderHeight = 28
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exRowLines
.HeaderVisible = True
With .Columns
.Add("C1").DisplayFilterButton = True
With .Add("C2")
.DisplayFilterButton = True
.Filter = "Item 2"
.FilterType = exontrol.EXCASCADETREELib.FilterTypeEnum.exFilter
End With
.Add("C3").DisplayFilterButton = True
End With
With .Items
h = .AddItem("Item 1")
.set_CellValue(h,1,"Item 2")
.set_CellValue(h,2,"Item 3")
h = .AddItem("Item 4")
.set_CellValue(h,1,"Item 5")
.set_CellValue(h,2,"Item 6")
End With
.ApplyFilter()
End With
.EndUpdate()
End With
|
|
76
|
Is it possible to show the filterbar on top of the rows
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.ColumnAutoResize = True
.FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarTop
.HeaderHeight = 24
.FilterBarHeight = .HeaderHeight
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Flat
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXCASCADETREELib.GridLinesStyleEnum.exGridLinesGeometric
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = exontrol.EXCASCADETREELib.FilterTypeEnum.exPattern
.Filter = "B*"
End With
With .Columns.Add("Index")
.FormatColumn = "1 index ``"
.Position = 0
.Width = 48
.AllowSizing = False
.SortType = exontrol.EXCASCADETREELib.SortTypeEnum.SortNumeric
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Items
.AddItem("A.1")
.AddItem("A.2")
.AddItem("B.1")
.AddItem("B.2")
.AddItem("B.3")
.AddItem("C")
End With
.ApplyFilter()
End With
.EndUpdate()
End With
|
|
75
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim k
With Excascadetree1
With .View
k = .ParentView.get_Value()
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add(k)
With .Items
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.AllowSort = False
.AllowDragging = False
End With
.Key = 0
With .Items
.AddItem("Item A")
.set_SelectItem(.AddItem("Item B"),True)
.AddItem("Item C")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
74
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim k
With Excascadetree1
With .View
k = .ParentView.get_Value()
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add(k)
With .Items
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_Background32(&H20,-1)
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
With .Items
.AddItem("Item A")
.set_SelectItem(.AddItem("Item B"),True)
.AddItem("Item C")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
73
|
Type of wraps the cell's caption support (Sample 2)
With Excascadetree1
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns
With .Add("Single-Line (exCaptionSingleLine)")
.Width = 96
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellValueFormat,1)
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellSingleLine,-1)
End With
With .Add("Word-Wrap (exCaptionWordWrap)")
.Width = 96
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellValueFormat,1)
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellSingleLine,0)
.FormatColumn = "%0"
End With
With .Add("Break-Wrap (exCaptionBreakWrap)")
.Width = 96
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellValueFormat,1)
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellSingleLine,1)
.FormatColumn = "%0"
End With
End With
With .Items
.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.AddItem("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
End With
|
|
72
|
Type of wraps the cell's caption support (Sample 1)
Dim h
With Excascadetree1
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.set_CellSingleLine(h,0,exontrol.EXCASCADETREELib.CellSingleLineEnum.exCaptionWordWrap)
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXCASCADETREELib.CellSingleLineEnum.exCaptionWordWrap)
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.set_CellSingleLine(h,0,exontrol.EXCASCADETREELib.CellSingleLineEnum.exCaptionBreakWrap)
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXCASCADETREELib.CellSingleLineEnum.exCaptionBreakWrap)
End With
.EndUpdate()
End With
End With
|
|
71
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
With Excascadetree1
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
.set_CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,exontrol.EXCASCADETREELib.CellSingleLineEnum.exCaptionBreakWrap)
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
End With
.EndUpdate()
End With
End With
|
|
70
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
With Excascadetree1
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns.Add("Default")
.Width = 128
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellSingleLine,1)
End With
With .Items
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
End With
.EndUpdate()
End With
End With
|
|
69
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
With Excascadetree1
.BeginUpdate()
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.EXCASCADETREELib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Etched
With .Columns
.Add("Column 1")
.Add("Column 2")
.Add("Column 3")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
68
|
DataSource (control, ADODB, ACCDB, x64)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim bColumnAutoResize,bSingle
With Excascadetree1
bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index)
bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag)
With .View
.ColumnAutoResize = False
.SingleSel = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "locktype=1;Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=Country" & _
"Code;Tag=Country;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Na" & _
"me=StateName;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Memb" & _
"er=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Na" & _
"me=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
67
|
DataSource (view, ADODB, ACCDB, x64)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim ado
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = New ADODB.Recordset()
With ado
.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,1,-1)
End With
With .get_DefaultView()
.DataSource = ado
.ColumnAutoResize = True
End With
.EndUpdate()
End With
|
|
66
|
Simple sample
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim bColumnAutoResize,bSingle
With Excascadetree1
bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index)
bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag)
With .View
.ColumnAutoResize = False
.SingleSel = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.EndUpdate()
End With
|
|
65
|
FilterBar sample
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.HeaderHeight = 20
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Etched
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country"
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .get_View("State")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "State"
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .get_View("City")
.BeginUpdate()
.Columns.Item("CountryCode").Visible = False
.Columns.Item("StateCode").Visible = False
With .Columns.Item("Name")
.HTMLCaption = "City"
.Width = 128
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.SearchColumnIndex = .Columns.Item("Name").Index
With .Columns.Item("Status")
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
With .Columns.Item("Function")
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "value replace 1 with `<img>1</img>` replace 2 with `<img>2</img>` replace 3 with `<img>3</img>` replace 4 with `<img>4</img>` r" & _
"eplace 5 with `<img>5</img>` replace 6 with `<img>6</img>` replace 7 with `<img>7</img>` replace 8 with `<img>8</img>` replace 9" & _
" with `<img>9</img>` replace `-` with `` "
End With
With .Columns.Add("Pos")
.AllowSizing = False
.Width = 32
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellBackColor,15790320)
.Position = 0
.FormatColumn = "1 pos ``"
.Alignment = exontrol.EXCASCADETREELib.AlignmentEnum.CenterAlignment
.HeaderAlignment = .Alignment
End With
.CountLockedColumns = 1
.Width = .WidthToFit
.EndUpdate()
End With
End With
With .View
.FilterBarHeight = 36
.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.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-01.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-02.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-03.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-04.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-05.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-06.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-07.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-08.ico")
.Images("C:\Program Files\Exontrol\ExCascadeTree\Sample\Bullets\Bullet-09.ico")
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Coun" & _
"try;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;" & _
"Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * F" & _
"ROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO\CJ"
With .get_DefaultView().get_View("City")
.FilterBarPromptPattern = "Tu"
End With
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
.Add(2,"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
.BackColorSortBar = .BackColor
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(4,0,0))
.set_Background32(&H0,&H1000000)
.set_Background32(&H1,&H2000000)
.set_Background32(&H20,-1)
.EndUpdate()
End With
|
|
64
|
GroupBy sample
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim bGroupBy,nSelected
With Excascadetree1
.View.HeaderHeight = 24
With .get_DefaultView()
With .get_View("State")
.BeginUpdate()
.SingleSel = False
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "State <off 4><fgcolor=808080>Name"
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.EndUpdate()
End With
With .get_View("City")
nSelected = .ParentView.Items.SelectCount
bGroupBy = Excascadetree1.FormatABC("value > 1 ? -1 : 0",nSelected)
.BeginUpdate()
.SingleSel = False
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.HasLines = exontrol.EXCASCADETREELib.HierarchyLineEnum.exSolidLine
.ColumnAutoResize = False
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exVLines
.GridLineStyle = exontrol.EXCASCADETREELib.GridLinesStyleEnum.exGridLinesVSolid
.Columns.Item("CountryCode").Visible = False
With .Columns.Item("Name")
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.SearchColumnIndex = 2
.TreeColumnIndex = .SearchColumnIndex
.SingleSort = False
.AllowGroupBy = False
.SortBarVisible = False
With .Columns.Item("StateCode")
.Visible = False
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.Width = .WidthToFit
.EndUpdate()
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\vistaselDark.ebn")
.Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\Assorted\bhframe.ebn")
End With
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Coun" & _
"try;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;" & _
"Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * F" & _
"ROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO\CJ|BV|GL|IL"
With .get_DefaultView().get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.EndUpdate()
End With
.SelBackColor32 = &H1000000
.SelForeColor = Color.FromArgb(255,255,255)
.BackColorHeader32 = &H2000000
.BackColorSortBar = .BackColor
.BackColorSortBarCaption = .BackColor
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(4,0,0))
.BackColorSortBar = .BackColor
.EndUpdate()
End With
|
|
63
|
Manual sample
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal V As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim k
With Excascadetree1
With .View
.BeginUpdate()
k = .ParentView.get_Value()
.HeaderVisible = False
.ColumnAutoResize = True
.ScrollBySingleLine = True
.Columns.Add("Default").set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellSingleLine,False)
.Key = 0
With .Items
.AddItem(Excascadetree1.FormatABC("A + `.Child 1`",k))
.AddItem(Excascadetree1.FormatABC("A + `.Child 2`",k))
.AddItem(Excascadetree1.FormatABC("A + `.Child 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With Excascadetree1
.BeginUpdate()
.BackColorAlternate32 = &H7ff0f0f0
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(240,240,240))
With .get_DefaultView()
.BeginUpdate()
.HeaderVisible = False
.ColumnAutoResize = True
.ScrollBySingleLine = True
.Columns.Add("Default").set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellSingleLine,False)
.Key = 0
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.EndUpdate()
End With
.Select = "Item A\Item*A*2\Item*A*2*3\"
.EndUpdate()
End With
|
|
62
|
Appearance sample
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim h
With Excascadetree1
.View.HeaderHeight = 24
With .get_DefaultView()
With .get_View("State")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "State <off 4><fgcolor=808080>Name"
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
With .Items
.set_LockedItemCount(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exTotalField Or exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"count(all,all,1)")
.set_FormatCell(h,0,"`<r>States: <b>`+ (value format `0`)")
End With
.EndUpdate()
End With
With .get_View("City")
.BeginUpdate()
.SingleSel = False
.ColumnAutoResize = False
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exVLines
.GridLineStyle = exontrol.EXCASCADETREELib.GridLinesStyleEnum.exGridLinesVSolid
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.SearchColumnIndex = 2
.ConditionalFormats.Add("%CS2 = 1").Bold = True
With .Items
.set_LockedItemCount(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exTotalField Or exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"count(all,all,1)")
.set_FormatCell(h,0,"`<r>Cities: <b>`+ (value format `0`)")
End With
.Width = .WidthToFit
.EndUpdate()
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim h
With Excascadetree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_select.ebn")
.Add(2,"C:\Program Files\Exontrol\ExCascadeTree\Sample\EBN\MSOffice-Ribbon\msor_background.ebn")
End With
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Coun" & _
"try;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;" & _
"Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select * F" & _
"ROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .get_DefaultView().get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
With .Items
.set_LockedItemCount(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exTotalField Or exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"count(all,all,1)")
.set_FormatCell(h,0,"`<r>Countries: <b>`+ (value format `0`)")
End With
.EndUpdate()
End With
.SelBackColor32 = &H1000000
.SelForeColor = Color.FromArgb(0,0,0)
.BackColorHeader32 = &H2000000
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(4,0,0))
.BackColorSortBar = .BackColor
.EndUpdate()
End With
|
|
61
|
How can I get the selected items (sample 2)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim k
With Excascadetree1
With .View
k = .ParentView.get_Value()
.BeginUpdate()
.ColumnAutoResize = True
.Key = -1
.Columns.Add(k)
With .Items
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
' ViewItemStateEndChanging event - Indicates that the state of the item has been changed.
Private Sub Excascadetree1_ViewItemStateEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewItemStateEnum,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Excascadetree1.ViewItemStateEndChanging
With Excascadetree1
Debug.Print( "End" )
Debug.Print( Operation )
With .View.Items
Debug.Print( "FocusItem" )
Debug.Print( .get_CellCaption(.FocusItem,0) )
Debug.Print( "SelectedItem" )
Debug.Print( .get_CellCaption(.get_SelectedItem(0),0) )
End With
End With
End Sub
' ViewItemStateStartChanging event - Indicates that the state of the item is about to be changed.
Private Sub Excascadetree1_ViewItemStateStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewItemStateEnum,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef Cancel As Object) Handles Excascadetree1.ViewItemStateStartChanging
With Excascadetree1
Debug.Print( "Start" )
Debug.Print( Operation )
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
.LinesAtRoot = exontrol.EXCASCADETREELib.LinesAtRootEnum.exLinesAtRoot
With .Items
.AddItem("Item A")
.set_SelectItem(.AddItem("Item B"),True)
.AddItem("Item C")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
60
|
How do I specify a foreground color for a particular view
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.get_DefaultView().ConditionalFormats.Add("1").ForeColor = Color.FromArgb(128,128,128)
.EndUpdate()
End With
|
|
59
|
How do display result/items in the view's filter bar
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .get_View("State")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "State <off 4><fgcolor=808080>Name"
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .get_View("City")
.BeginUpdate()
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
With .Columns.Add("Pos")
.AllowSizing = False
.Width = 32
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellBackColor,15790320)
.Position = 0
.FormatColumn = "1 pos ``"
End With
.CountLockedColumns = 1
.EndUpdate()
End With
End With
With .View
.FilterBarHeight = 36
.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)`) )))"
.FilterBarPromptType = exontrol.EXCASCADETREELib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(2,0,0))
.EndUpdate()
.BeginUpdate()
.MinColumnWidth = 348
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .get_DefaultView().get_View("City")
.FilterBarPromptPattern = "An"
End With
.EndUpdate()
End With
|
|
58
|
I am using the filter prompt feature, the question is how can I filter for items that starts with typed characters rather than contains
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.FilterBarPromptType = exontrol.EXCASCADETREELib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .get_DefaultView().get_View("City")
.FilterBarPromptPattern = "An"
With .Columns.Item("Name")
.Width = 128
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` "
End With
End With
.EndUpdate()
End With
|
|
57
|
FilterBarCaption Predefined Keywords
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.BackColorAlternate = Color.FromArgb(240,240,240)
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US"
With .get_DefaultView().get_View("Country")
With .Columns.Add("Pos")
.Position = 0
.Width = 32
.AllowSizing = False
.FormatColumn = "1pos ``"
End With
With .Columns.Item("CountryCode")
.Width = 32
.AllowSizing = False
.DisplayFilterButton = True
End With
With .Columns.Item("CountryName")
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = exontrol.EXCASCADETREELib.FilterTypeEnum.exFilter
.Filter = "Italy|Romania|Germany"
End With
.FilterBarPromptPattern = "a"
.ColumnAutoResize = True
.SearchColumnIndex = .Columns.Item("CountryName").Index
.FilterInclude = exontrol.EXCASCADETREELib.FilterIncludeEnum.exItemsWithChilds
.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>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
.FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
.ApplyFilter()
End With
.EndUpdate()
End With
|
|
56
|
How can I enable the column's filter bar (view)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
.View.FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .get_DefaultView().get_View("Country")
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
With .Columns.Item("CountryName")
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = exontrol.EXCASCADETREELib.FilterTypeEnum.exFilter
.Filter = "Romania|Germany"
End With
.ApplyFilter()
End With
.EndUpdate()
End With
|
|
55
|
How can I enable the column's filter bar
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.DisplayFilterButton = True
.FilterList = exontrol.EXCASCADETREELib.FilterListEnum.exShowExclude Or exontrol.EXCASCADETREELib.FilterListEnum.exShowFocusItem Or exontrol.EXCASCADETREELib.FilterListEnum.exShowCheckBox Or exontrol.EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
End With
With .get_DefaultView().get_View("Country")
With .Columns.Item(0)
.FilterType = exontrol.EXCASCADETREELib.FilterTypeEnum.exFilter
.Filter = "US|RO|GE"
End With
.ApplyFilter()
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
54
|
How can I enable the control's filter bar (view)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.get_DefaultView().FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
.EndUpdate()
End With
|
|
53
|
How can I enable the control's filter bar
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
.View.FilterBarPromptVisible = exontrol.EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
52
|
Aggregate sum, min, max, count, avg, divider, total (view)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim h
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(4,0,0))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO"
With .get_DefaultView().get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Items
.set_LockedItemCount(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exTotalField Or exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"count(all,all,1)")
.set_FormatCell(h,0,"`<r>Countries: <b>`+ (value format `0`)")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
51
|
Aggregate sum, min, max, count, avg, divider, total
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim h
With Excascadetree1
.View.HeaderVisible = False
With .get_DefaultView()
With .get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Items
.set_LockedItemCount(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exTotalField Or exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"count(all,all,1)")
.set_FormatCell(h,0,"`<r>Countries: <b>`+ (value format `0`)")
End With
.EndUpdate()
End With
With .get_View("State")
.BeginUpdate()
.SingleSel = False
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Items
.set_LockedItemCount(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exTotalField Or exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"count(all,all,1)")
.set_FormatCell(h,0,"`<r>States: <b>`+ (value format `0`)")
End With
.EndUpdate()
End With
With .get_View("City")
.BeginUpdate()
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.Width = 128
.HTMLCaption = "CityName"
End With
With .Items
.set_LockedItemCount(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXCASCADETREELib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXCASCADETREELib.ValueFormatEnum.exTotalField Or exontrol.EXCASCADETREELib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"count(all,all,1)")
.set_FormatCell(h,0,"`<r>Cities: <b>`+ (value format `0`)")
End With
.EndUpdate()
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(4,0,0))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
50
|
How can I add a check-box column (view)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exStatusBackColor,.BackColor)
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
.SelBackColor32 = &H1000000
.SelForeColor = .ForeColor
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .get_DefaultView().get_View("City")
.BeginUpdate()
.ShowFocusRect = False
.SingleSel = False
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.SearchColumnIndex = .Columns.Item("Name").Index
With .Columns.Add("Pos")
.Position = 0
.Width = 32
.FormatColumn = "1 pos ``"
End With
With .ConditionalFormats
.Add("%CS2 = 1").BackColor = Color.FromArgb(190,190,190)
With .Add("%CS2 = 1")
.Bold = True
.ApplyTo = &H8
End With
End With
With .Items
.set_CellState(.get_ItemByIndex(1),2,1)
.set_CellState(.get_ItemByIndex(3),2,1)
.set_CellState(.get_ItemByIndex(5),2,1)
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
49
|
How can I add a check-box column
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exVLines
.GridLineStyle = exontrol.EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.EndUpdate()
End With
With .get_View("State")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
.EndUpdate()
End With
With .get_View("City")
.BeginUpdate()
.ShowFocusRect = False
.SingleSel = False
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.SearchColumnIndex = .Columns.Item("Name").Index
With .Columns.Add("Pos")
.Position = 0
.Width = 32
.FormatColumn = "1 pos ``"
End With
With .ConditionalFormats
.Add("%CS2 = 1").BackColor = Color.FromArgb(190,190,190)
With .Add("%CS2 = 1")
.Bold = True
.ApplyTo = &H8
End With
End With
With .Items
.set_CellState(.get_ItemByIndex(1),2,1)
.set_CellState(.get_ItemByIndex(3),2,1)
.set_CellState(.get_ItemByIndex(5),2,1)
End With
.EndUpdate()
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exStatusBackColor,.BackColor)
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
.SelBackColor32 = &H1000000
.SelForeColor = .ForeColor
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
48
|
How can I access a view
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.HeaderAppearance = exontrol.EXCASCADETREELib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .get_View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.EndUpdate()
End With
With .get_View("State")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
.Columns.Item(2).HTMLCaption = "State <off 4><fgcolor=808080>Name"
.EndUpdate()
End With
With .get_View("City")
.BeginUpdate()
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellBackColor,15790320)
End With
.CountLockedColumns = 1
.EndUpdate()
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
47
|
Conditional Format (check)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
With .ConditionalFormats.Add("%CS0 = 1")
.Bold = True
End With
.Columns.Item(0).set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox,True)
With .Items
.set_CellState(.FocusItem,0,1)
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
46
|
Conditional Format (view)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .get_DefaultView().get_View("City")
With .ConditionalFormats.Add("(%0 = `US`) and (%2 like `Al*`)")
.Bold = True
.BackColor = Color.FromArgb(240,240,240)
End With
End With
.EndUpdate()
End With
|
|
45
|
Conditional Format
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
With .ConditionalFormats.Add("%0 = `US`")
.Bold = True
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
44
|
I've seen the AllowSplitView property, the question is how can I load data to
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.AllowSplitView = exontrol.EXCASCADETREELib.AllowSplitViewEnum.exAllowOneSplitView
.SplitViewHeight = 256
With .get_DefaultView(1)
End With
.EndUpdate()
End With
|
|
43
|
How can I group the items (view)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
.View.SingleSel = False
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIb" & _
"aIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZx" & _
"vGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQ" & _
"eJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBp" & _
"EYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=")
.Add(2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqb" & _
"ZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4" & _
"QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBa" & _
"BZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=")
End With
.SelBackColor32 = &H1000000
.SelForeColor = Color.FromArgb(0,0,0)
.BackColorHeader32 = &H2000000
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(2,0,0))
.BackColorSortBar = .BackColor
.EndUpdate()
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO\CJ|BV|CS"
With .get_DefaultView().get_View("City")
.BeginUpdate()
With .Columns
.Item("CountryCode").Visible = False
With .Item("Name")
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
.Width = 128
End With
End With
.SortBarVisible = True
.AllowGroupBy = True
.SingleSort = False
.Columns.Item("StateCode").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
.TreeColumnIndex = .Columns.Item("Name").Index
.EndUpdate()
End With
.EndUpdate()
End With
|
|
42
|
How can I group the items
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
' Columns("StateCode").SortOrder = nGroupByIfCity
Dim bColumnAutoResize,nGroupByIfCity
With Excascadetree1
nGroupByIfCity = .FormatABC("( A = `City`) ? 1 : 0",.View.Tag)
bColumnAutoResize = .FormatABC(" (A = `City`) ? 0 : -1",.View.Tag)
With .View
.BeginUpdate()
.SingleSel = False
.Columns.Item("CountryCode").Visible = False
.Columns.Item("CountryName").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
With .Columns.Item(2)
End With
.TreeColumnIndex = 2
.AllowGroupBy = True
.SingleSort = False
.SortBarVisible = False
.ColumnAutoResize = False
.EndUpdate()
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABa0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjJBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4yDA8GxCGSfIrjKiYbiGNY8RgZCiOMAFJSpC6gZRoSq4doGGJLQiDMaAdBNHyZKqpbQqeCZPDINQlWzbcrjKKFYQTOi7I4sCbYcqKA5PTbNdYyVBMWxfGIb" & _
"aIkXAcBjuO4hWbFdASRQdDYtHTIbzjCxLcgMD4gRwWCYNSAGRZJLDKK4gSh6eorHQAX4AGabFBOP5fC7TNJ0OKLRrkAJub5eFx3LJ97ohbLsOzYZK2ByDFqiMLGQZMZx" & _
"vGWUBAnYfJImcOwLEiBp0gaGpekSBxjE+WZ2jse5Im2S5ZkGYhdn4EY6A4Q4vAOWJ6H0V4oEgIgSFAGhGDGUB1ByBhVBUAwyhKMQIE2AgRjCWQJAoEIWk2SxCAGBBghQ" & _
"eJYkMZIYBYIYoHIG4HGICB+CKB4iEiBglgaUAzhiJAZA+Q4Qk2CxiniOgwgyYwolYMYNmMQw2CoGQihiLg5g+YxpAIOINiOOJ2CyEBkgkDhKhCJBQAI2IlAkJhMgqZBp" & _
"EYS4UiSGQ2E+FglHkdg5haI5pHIVoViYCQeF6vZJhYY4aCWWYqGyGpkimOhnhyZQ4nIToYGcSY+ESFQnHmGhwh+YpphYO4gmKOlEiGKIKBaCohmeQ4tkUQJQBAgI=")
.Add(2,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDYOMjwlDKEgADDFEgjDBkRxtDCPIDnGQoD" & _
"iGI4vSrCQ4zHQkOx9C6NKLjOQaMhwcJPABTZwRRQMUyLAiQRioGKKJgkC4cAxIFhRXSVIyhC6XRiGURbJquLw1DBbEI3BaUOS7HqOK7vCZ7cACVYqQjLMrzCK8ZxLPqb" & _
"ZznOjZXoCKJDQzVYADFRVd4rMK9QABWw4YqWZYXX7kUDxbTdEYzPQAMw1GCcbxmF6eWbCNq3LidXTnOK3dwkO55cyuA6oazi8T6Bi2M6DDQNGSzZiuGZ9YSOOIwHJIN4" & _
"QDSUpYmQOoJA6KxVlCDBsnwOx9iWUhfiCThzjUHZun2WgSAiBIUA0JgziGVJkGWUZAkEUoyBEN51BsDYQhCIQJGqHAUCAGBGA0RwtDcVIgkgNgOgOYQIDiXYEmESBWBa" & _
"BZhggTgSgYYZIHYGoDGGaIGBiBpiCiFJdgkIksiiChhliLgsgYYpoj4F4MGMKBWDSDRhngMg4gcIQYnYPoEE6N4ZAMQBAICA=")
End With
.SelBackColor32 = &H1000000
.SelForeColor = Color.FromArgb(0,0,0)
.BackColorHeader32 = &H2000000
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(2,0,0))
.BackColorSortBar = .BackColor
.EndUpdate()
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO\CJ|BV|CS"
.EndUpdate()
End With
|
|
41
|
How can I change the visual appearance of the selection/header
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
With Excascadetree1
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
.Columns.Item("CountryName").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
With .Columns.Item("Name")
End With
.EndUpdate()
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABWYDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCNAwgFBIcBhE4ZIKkEYoMiONoYR5Ac4yF" & _
"AcQxHE6TZRgeDZToWN48TZLEB0VRFGL1J4AKbfKKKBiqIZDTpMdKSHIIFQ4BiEaYkGjqQpKVIdDSJMwWTI4ahhNSEbauCZ7DhyXpLUbeNSyXJsXw7GSOZJvGZ5bjuIY+" & _
"RxQEK1NQkOyNOiOAosGCQWiDE4DWZZUT3XS+HgAGStY4rWCcSgOYIDZTPOT1DYtIY3NC5c7tS4bPq3NZHXTAeigBa4AZTQafcTvSA5OjOQQ2VhNWIXRxgAZ3YCNbzpTg" & _
"sHeD5DmUQh3jSTQ/DuIZBh0bJ8BsG4WlsYwXjEapphuXh/HsRQJAQQhKAaEwZlCahyDKchJlEIgRDedQbA2EIQiECR3BudAgBgRgBgSHZQFSCwzECV4DGCeA6BCBJhCg" & _
"VgRgWs4YkgNJKCOMJ2C0T4Dn4IIIiIGIOCaCRiy0HQ9iGIxMhgMAMmKZJ2D+SQThININgiM4In+DhPnIDJhD+RxzgCfwaE2c58F0N4PniSJ/guTJiCiOAygwCJODyDwI" & _
"FifhVD+R5JBQcIREYOQgFgNwPnkRJ/qOIgIjEMYMFOVg9hESA5BQfYSCbQx1DcZA5lAXQ2vURh4hoT55hiRgfEqYwMkUPQPnGahgiGJwpmAdYeAaWZgGINoPnEWoQBKa" & _
"QKAyf4gAwMZoisMIMGOTJ/B0KQK0EG5NhqDolBmKhRG6JQUX8GJYD+aZaBaGweAqEwEkYPNpDaL4u2kIJXi8a5xgKPwViucQuj8EBrnqXJ/i0DARlyJwwCyIYglaLxtD" & _
"GDpVjSRY7EwUY0kQexMD+MhrgsOJAB2LJzCKOAZG0O4gn8GANFuLptBaLpREKUwRG0MJylOOYPnuEpjjOTIamAYo7G/QxfDUMAsBAWI7ESe40ZuQ5bjafY+GycZcigMB" & _
"ODOZJ/CoTo8F8GZGDGI58iaRhKEwZIhkYSZ8GcFYQVeZIqDCThsFiMQ7g+fI8n8LAOlyTw1CuMxSjMNQqHMUojDWSxPnyKJDB8CpjBSag+iSE4/EmUpLh0KI2lKCxNCi" & _
"Mvkg0KxHhYNBSACMQyA6c5wn8MJrg2Axflga4DAaOAviuApyjgLorg0dJ/laDICAyNQyg8LR47INxznzfI3jOPkS4NQMDzCoPgMQUBNqzFyJAco0ROLRFOPkVIEB4v7F" & _
"WBAeT/xTB7E+OYR4MAzjzAMG8GIxgPj8CSJwIolxjCJTeB8cw7hIjVDqD0LwkA3BpAMNYFgbAxDGF8C0aYxw+gpA8GEeI/QgjJFeHcc4/xBjggePEYgfRPjnAOJAN4+Q" & _
"DjHCiN0TQhBMiODWOkA4+RqjGH0P4W4sRjCdB4GkaIxhOD6HiM0V4ehfCRFcEsDIZhkjcD4J8PwQR/j3D8Acf43x8h+B+Jkf49RPh/CCLIVIEwTBxFsP8L4+x/CAAgA4" & _
"AIQAsADACMoSA6wghEAYIAQBAQA==")
.Add(2,"gBFLBCJwBAEHhEJAAEhABEwFg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgkAoJDaMUjwlDiEgADCNAySCKkGRHG6MI6gOapC" & _
"gOIYjS7KYASTIMDw7EIZJ7jSioboKNo9ABQT71GAFJr/DChKIhWiKIoKI4hAZHAIQTR8QylKirIwlcYhVCWa5tS82CzoJrKdI4WZHFgwHR8cRxLKVJQlaDZSoIMQ2STf" & _
"V7TZLkQyZNSTJQpGq6HxWeIcETkMBlLIGNSrNCqIrwChach2XpLQjeYAZTAdR43TqBbLqeyYXq+dwAWxtdzXDacXy/TzWAA1LLMKr/EpZDhSxARVDbD4XY7TdBcDwsOY" & _
"AmQcohjyXQ8G6QRkgSa41H0WY+luSx1l6eZ2noLYFEePwDlUdQ8HufRsCSIBpDGHQOicIwtBoBguGuBAhDWfxGkMZAkCgeAQhcEQiAYEYDmABx8hANRYmQMhKHMTItB+" & _
"IRoGIF4GGEMoeBKBQhGGfRWgiYhIgYHYIE+c5Ym8P5OlMWgsguIpYj4KQ7mIExMi6CIVGOKJTD/OxyDuDxVDiWB/g2CAIgyZwzk+eQeEmEgkikBIuCADRJD4Iw5AyU5+" & _
"FSFYlFkXRThQZQJEkVg4gyM5+GCGImBmDhbhOTRCj4RRVg4Ewkn+GxmnmOhwhaZopiYaxUk4Awgn+Hhnjmah8h0JQJioI4fCgSZ6HqIAnGoDoGh8aJKCCMAgGiKgygUV" & _
"YNEoPoViQFRqE6E4WmkYpAgKJBpioHJ/iUSAqhKIIimeeoOh4NQLBIDoniSKgqjCA4szqYJoDcKxqmKN4uGkSo2oGKxam6Qoug2Sp0gRggiBaQYxCuGpyFuMhsgsKRTj" & _
"MbA7DqI40AsIgakuNQsEoUpZYIOxqlONRsDoUphjgCB7G6ZIxGWMpMgeOgsBMbo2jyDoLlCW45i6cpSmmOJvGuTpziUL4jFCNAiC8G56nWP5ljwDJVC0CIcBcB5Dm8dR" & _
"PZyTRSlcDY/DAa5ZFaRRxEKVIKkOL5blcG5Hg0UpYgsVYPhuVwpDaco87eSYyFyHRTkscoslcEQ/nMExYjYIwygyWw0k2c4iDCVgtkiXJ3CyT4yCUTxDCMdI9BsP5LjS" & _
"LQTEMI40m0IxAd4YxYjgI51NsXhVjWIg8leVp1lzLJYnYIpkhCWRzG2HxqDWS4SEcbJXlUPZAhGXAJC2TxQD+O8AwuQ6i8HMGcIItRKDwD4BcBIsx3j7HiCcTw8BeBvA" & _
"eLoS4RBMiwC6JITgZwEjLHgEoW4JglBzD4LcBozxNotBSM4eAPA7hBGiHMQo2QVjPDoWcU4yRJCmGCHgJYdRODHC4H8ewRGWhLHsL0H4XgvASHMMkPY3g6C9FuB4P4+A" & _
"vAJD0EwO4vA1CtHCBMDwEQZjmHwP4SIsgvh6D8C8II6h9geFyDUdQcwVCfF4G0C4xBvjBG2PwQg2RaBfH4MoTI9Rgh9HMNccY+BVDfC+NQL4kxFC3HOPgP4nwjjwBsIY" & _
"AAnQ/hPHqP0XwiABgABABMdwgBHj1H0MACItgYAEHoAMPwUAWjbGAPEHgNhjAIE+IIKAFR9AVBwDAE44B+AbEEIULQDxgiBCAP4Q4Sx5CFBGOoCowhMBIBgEUAA2wMBC" & _
"EMBQIQqA2gLBAKwGYhgoDRHuEIbAbwFigHoDMDYgwEBRCGFgOIERxAAH+IgMQiA3AMBwIsB4RhuAsEUCMUwKRZh4E2BMAwGBRiFAiFYFIRQRCtAmEUDgTQKCRDcC4YoS" & _
"BeBUHGBAbgGBIiMFSI8XAqQNiGG4HARwEQ/A1GMKEJQVRDjYHUBsSI5gejHFQPkDoBQWB2BUMMeAeAHCJASCEUgLBDiQAGHQMQig0gGB4AcHghBJAyCEEkCoaQMApFIL" & _
"wR4kg5BuCUJUHILwRgQHiFMSQUhHBKCSAkFgMQig8EYBUCQPA5hICSFpKgeBzCUHEKANwjAwhTBAMcPgrRLgjHkF0ZYmQWgtFKKwW4lApDCCuEwLIYQXjFCYLUCochwB" & _
"yGWMkTQOxzB4HKJccQrgyhMGSJ0Go5hCDTA2MMDwZRKgxH2DQEw+ByicBmIQVYTRYhXBsMUMIVhNjjEkHUZw0RvA5BOCgY4FRJiiDqE4BI7QcCmGSFMToExogVCcOkbI" & _
"OxzhaBmJ0AYnA1AMdoCsKIJQEgfHoB4QQDAJCtCGGgHoEQMDiFtPIKQrAdDNHiAMEAICAgA==")
End With
.SelBackColor32 = &H1000000
.SelForeColor = Color.FromArgb(0,0,0)
.BackColorHeader32 = &H2000000
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(2,0,0))
.BackColorSortBar = .BackColor
.EndUpdate()
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO\CJ"
.EndUpdate()
End With
|
|
40
|
How can I format a column so it display its content in a different way
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.BeginUpdate()
.ContinueColumnScroll = False
.ScrollBySingleLine = True
.DrawGridLines = exontrol.EXCASCADETREELib.GridLinesEnum.exAllLines
.EnsureVisibleColumn("Date")
.Columns.Item("CountryCode").Visible = False
With .Columns.Item("Date")
End With
With .Columns.Item("Function")
End With
With .Columns.Item("Coordinates")
End With
With .Columns.Item("Status")
End With
.EndUpdate()
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.FitCascadeColumns = 7
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.ScrollWidth = 4
.ScrollHeight = 4
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\OR"
.EndUpdate()
End With
|
|
39
|
How can I add a position column
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
With .Columns.Add("Pos")
.Width = 32
.AllowSizing = False
.Position = 0
.FormatColumn = "1 pos ``"
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellBackColor,15790320)
.Alignment = exontrol.EXCASCADETREELib.AlignmentEnum.RightAlignment
.HeaderAlignment = .Alignment
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellPaddingRight,2)
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exCellPaddingLeft,2)
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exHeaderPaddingLeft,2)
.set_Def(exontrol.EXCASCADETREELib.DefColumnEnum.exHeaderPaddingRight,2)
End With
.CountLockedColumns = 1
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\IA"
.EndUpdate()
End With
|
|
38
|
How can I display icons or images
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
With .View
.EnsureVisibleColumn("Function")
With .Columns.Item("Function")
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\MN"
.EndUpdate()
End With
|
|
37
|
How can I turn-on the control's status bar
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
With Excascadetree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
End With
End Sub
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarHeight = 24
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Name = "Romania\Cluj\Baciu*"
.EndUpdate()
End With
|
|
36
|
How can I disable incremental searching
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
.View.AutoSearch = False
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
35
|
ScrollBar extension
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(2,0,0))
.EndUpdate()
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.get_DefaultView().Columns.Item("CountryName").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
.get_DefaultView().NextView.Columns.Item("StateName").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
With .get_DefaultView().NextView.NextView
.ColumnAutoResize = False
With .Columns.Item("Name")
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
.Width = 128
End With
With .Items
.set_SelectItem(.get_FindItem("Anchorage","Name"),True)
End With
End With
.EndUpdate()
End With
|
|
34
|
How can I access the next/prev/parent/child view
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO\CJ"
.get_DefaultView().Columns.Item("CountryName").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
.get_DefaultView().NextView.Columns.Item("StateName").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
With .get_DefaultView().NextView.NextView
.BeginUpdate()
.ColumnAutoResize = False
With .Columns.Item("Name")
.Width = 128
.SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.SingleSort = False
.AllowGroupBy = True
.Columns.Item("Status").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortDescending
.TreeColumnIndex = .Columns.Item("Name").Index
.EndUpdate()
End With
.EndUpdate()
End With
|
|
33
|
Predefined Keywords of ShowContextMenu property
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
With Excascadetree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
.ExecuteContextMenu = 0
End With
End Sub
With Excascadetree1
.BeginUpdate()
.AllowSplitView = exontrol.EXCASCADETREELib.AllowSplitViewEnum.exAllowOneSplitView
.FitCascadeColumns = 3
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarHeight = 24
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exVScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exHScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXCASCADETREELib.ScrollBarEnum.exScroll,exontrol.EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,Color.FromArgb(2,0,0))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.ShowContextMenu = "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view "
.SplitViewHeight = "256"
.EndUpdate()
End With
|
|
32
|
How can I display the identifiers of the control's context menu (debug)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
With Excascadetree1
Debug.Print( .ExecuteContextMenu )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.ShowContextMenu = "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
.EndUpdate()
End With
|
|
31
|
ShowContextMenu usage
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
With Excascadetree1
Debug.Print( .ExecuteContextMenu )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
.EndUpdate()
End With
|
|
30
|
How can I resize automatically all views, when the control is resized
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
29
|
How can I hide some columns
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
' Columns("StateCode").Visible = False
With Excascadetree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
28
|
Is it possible to disable resizing the cascade columns
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
.View.ColumnAutoResize = True
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or exontrol.EXCASCADETREELib.CascadeModeEnum.exDisableResizeCascadeColumns Or exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
27
|
SplitFixCascadeMode Mode
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
26
|
FixCascadeMode Mode
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DefColumnWidth = 96
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
25
|
SplitEqualCascadeMode Mode
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
24
|
Default Mode
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.set_Background(exontrol.EXCASCADETREELib.BackgroundPartEnum.exSplitBar,Color.FromArgb(196,196,196))
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
23
|
SingleCascadeMode ( single-view )
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Cities Where CountryCode = 'RO' " & _
""
.AllowGroupBy = True
.SortBarVisible = True
.Columns.Item("StateCode").SortOrder = exontrol.EXCASCADETREELib.SortOrderEnum.SortAscending
.Name = "Name"
End With
.Name = "Isaccea"
.EndUpdate()
End With
|
|
22
|
How can I display the current selection, as a path
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
With Excascadetree1
.StatusBarLabel = .Name
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
With Excascadetree1
.StatusBarLabel = .Name
End With
End Sub
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
21
|
How can I add multiple-views to the control
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate()
End With
|
|
20
|
I wish I select items based on names, rather than keys. Is that possible
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim label
With Excascadetree1
.View.ColumnAutoResize = False
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
Dim label
With Excascadetree1
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
End With
End Sub
Dim dm1,dm2,dm3,ds
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
ds = .FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Sel" & _
"ect * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty;Name=Name"
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.Name = "Romania\Cluj\Baciu*"
.EndUpdate()
End With
|
|
19
|
I've noticed that I can't select multiple items. How can I do that
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim bColumnAutoResize,label
With Excascadetree1
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
With .View
.SingleSel = False
.ColumnAutoResize = False
End With
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
Dim label
With Excascadetree1
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
End With
End Sub
Dim dm1,dm2,dm3,ds
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarHeight = 48
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country;Name=CountryName"
ds = .FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateName;Tag=State ||| Member=Sel" & _
"ect * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name"
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty;Name=Name"
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.Select = "RO\CJ|D*"
.EndUpdate()
End With
|
|
18
|
How do I programmatically selects a path/item
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim bColumnAutoResize
With Excascadetree1
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
.View.ColumnAutoResize = False
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
With Excascadetree1
.StatusBarLabel = Excascadetree1.Select
End With
End Sub
Dim dm1,dm2,dm3,ds
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorBottom
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds = .FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Citi" & _
"es WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty"
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.Select = "RO\CJ"
.EndUpdate()
End With
|
|
17
|
DataSource/DataMember/Key/Tag
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim bColumnAutoResize,nWidth
With Excascadetree1
.StatusBarLabel = .FormatABC("value replace `data source` with `<b><fgcolor=808080>Source</fgcolor></b>` replace `Source` with `<b><fgcolor=808080>Source</fg" & _
"color></b>` replace `Member` with `<b><fgcolor=808080>Member</fgcolor></b>` replace `Key` with `<b><fgcolor=808080>Key</fgcolor>" & _
"</b>` replace `Tag` with `<b><fgcolor=808080>Tag</fgcolor></b>` replace `;` with `;<br>`",.View.DataSource)
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
nWidth = .FormatABC("A = `City` ? B : C",.View.Tag,.View.WidthToFit,.View.Width)
With .View
.ColumnAutoResize = False
.Width = nWidth
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim dm1,dm2,dm3,ds
With Excascadetree1
.BeginUpdate()
.StatusBarHeight = 58
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
ds = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm1 = "Member=Select * FROM Countries;Key=CountryCode;Tag=Country"
ds = .FormatABC("A + `;` + B",ds,dm1)
dm2 = "Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Tag=State ||| Member=Select * FROM Citi" & _
"es WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City"
ds = .FormatABC("A + ` >>> ` + B",ds,dm2)
dm3 = "Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=Ci" & _
"ty"
ds = .FormatABC("A + ` >>> ` + B",ds,dm3)
.DataSource = ds
.EndUpdate()
End With
|
|
16
|
DataSource (view, data source, data member, ACCDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim dm,ds
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm = "Data Member=Select * FROM Countries"
With .get_DefaultView()
.DataSource = Excascadetree1.FormatABC("A + `;` + B",ds,dm)
.ColumnAutoResize = True
End With
.EndUpdate()
End With
|
|
15
|
DataSource (view, data source, data member, MDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim dm,ds
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm = "Data Member=Select * FROM Countries"
With .get_DefaultView()
.DataSource = Excascadetree1.FormatABC("A + `;` + B",ds,dm)
.ColumnAutoResize = True
End With
.EndUpdate()
End With
|
|
14
|
DataSource (view, ADODB, ACCDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim ado
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = New ADODB.Recordset()
With ado
.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3)
End With
With .get_DefaultView()
.DataSource = ado
.ColumnAutoResize = True
End With
.EndUpdate()
End With
|
|
13
|
DataSource (view, ADODB, MDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim ado
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = New ADODB.Recordset()
With ado
.Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3)
End With
With .get_DefaultView()
.DataSource = ado
.ColumnAutoResize = True
End With
.EndUpdate()
End With
|
|
12
|
DataSource (control, data source, data member, ACCDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim dm,ds
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb"
dm = "Data Member=Select * FROM Countries"
.DataSource = .FormatABC("A + `;` + B",ds,dm)
.View.ColumnAutoResize = True
.EndUpdate()
End With
|
|
11
|
DataSource (control, data source, data member, MDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim dm,ds
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could ""Data Source=...;Data Member=..."" or ""Source=...;Member=..."" "
.DefColumnWidth = 336
ds = "Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb"
dm = "Data Member=Select * FROM Countries"
.DataSource = .FormatABC("A + `;` + B",ds,dm)
.View.ColumnAutoResize = True
.EndUpdate()
End With
|
|
10
|
DataSource (control, ADODB, ACCDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim ado
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = New ADODB.Recordset()
With ado
.Open("Countries","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb",3,3)
End With
.DataSource = ado
.View.ColumnAutoResize = True
.EndUpdate()
End With
|
|
9
|
DataSource (control, ADODB, MDB)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim ado
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = New ADODB.Recordset()
With ado
.Open("Countries","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.mdb",3,3)
End With
.DataSource = ado
.View.ColumnAutoResize = True
.EndUpdate()
End With
|
|
8
|
DataSource (view, XMLDOMDocument)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim xml
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
With .get_DefaultView()
xml = New MSXML2.FreeThreadedDOMDocument30()
With xml
.load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
End With
.DataSource = xml
.ColumnAutoResize = True
End With
.EndUpdate()
End With
|
|
7
|
DataSource (view, XML, file)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
With .get_DefaultView()
.DataSource = "http://www.exontrol.net/testing.xml"
.ColumnAutoResize = True
End With
.EndUpdate()
End With
|
|
6
|
DataSource (control, XMLDOMDocument)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
Dim xml
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
xml = New MSXML2.FreeThreadedDOMDocument30()
With xml
.load("C:\Program Files\Exontrol\ExCascadeTree\Sample\Testing.xml")
End With
.DataSource = xml
.View.ColumnAutoResize = True
.EndUpdate()
End With
|
|
5
|
DataSource (control, XML, file)
' Error event - An internal error occurs.
Private Sub Excascadetree1_Error(ByVal sender As System.Object,ByVal Err As Integer,ByVal Description As String) Handles Excascadetree1.Error
With Excascadetree1
Debug.Print( "Error" )
Debug.Print( Description )
End With
End Sub
With Excascadetree1
.BeginUpdate()
.StatusBarVisible = exontrol.EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
.DataSource = "http://www.exontrol.net/testing.xml"
.View.ColumnAutoResize = True
.EndUpdate()
End With
|
|
4
|
How can I get the selected items (sample 1)
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim k
With Excascadetree1
With .View
k = .ParentView.get_Value()
.BeginUpdate()
.ColumnAutoResize = True
.Key = -1
.Columns.Add(k)
With .Items
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewEndChanging
With Excascadetree1
Debug.Print( "End" )
Debug.Print( Operation )
With .View.Items
Debug.Print( "FocusItem" )
Debug.Print( .get_CellCaption(.FocusItem,0) )
Debug.Print( "SelectedItem" )
Debug.Print( .get_CellCaption(.get_SelectedItem(0),0) )
End With
End With
End Sub
' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub Excascadetree1_ViewStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXCASCADETREELib.ViewOperationEnum) Handles Excascadetree1.ViewStartChanging
With Excascadetree1
Debug.Print( "Start" )
Debug.Print( Operation )
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
.LinesAtRoot = exontrol.EXCASCADETREELib.LinesAtRootEnum.exLinesAtRoot
With .Items
.AddItem("Item A")
.set_SelectItem(.AddItem("Item B"),True)
.AddItem("Item C")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
3
|
Can I use this control as a simple tree
With Excascadetree1
.BeginUpdate()
.Mode = exontrol.EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = -1
.LinesAtRoot = exontrol.EXCASCADETREELib.LinesAtRootEnum.exLinesAtRoot
With .Items
.AddItem("Item A")
.InsertItem(.AddItem("Item B"),Nothing,"Child")
.AddItem("Item C")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
2
|
How can I use this control
' CreateView event - A view has been created.
Private Sub Excascadetree1_CreateView(ByVal sender As System.Object,ByVal View As exontrol.EXCASCADETREELib.View) Handles Excascadetree1.CreateView
Dim k
With Excascadetree1
With .View
k = .ParentView.get_Value()
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add(k)
With .Items
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(Excascadetree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With Excascadetree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
With .Items
.AddItem("Item A")
.set_SelectItem(.AddItem("Item B"),True)
.AddItem("Item C")
End With
.EndUpdate()
End With
.EndUpdate()
End With
|
|
1
|
How do I change the control's background color
With Excascadetree1
.BackColor = Color.FromArgb(240,240,240)
End With
|