|
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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Items.ItemHeight(0) = View.DefaultItemHeight
' FilterBarFont.Size = Me.Font.Size
' ToolTipFont.Size = Me.Font.Size
With AxCascadeTree1
With .View
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.SortBarHeight = .DefaultItemHeight
.Indent = 26
.CheckImage(EXCASCADETREELib.CheckStateEnum.Unchecked) = 16777216
.CheckImage(EXCASCADETREELib.CheckStateEnum.Checked) = 33554432
.CheckImage(EXCASCADETREELib.CheckStateEnum.PartialChecked) = 50331648
.EnsureVisibleColumn("Function")
With .Columns.Item("Function")
End With
.Columns.Item(0).Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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
.GetOcx().BackColorHeader = &H4c6c6c6
.GetOcx().SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.set_Background(&H14,.SelBackColor)
.set_Background(&H15,.SelForeColor)
.set_Background(&H8 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.BackColor)
.set_Background(&H9 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.ForeColor)
.set_Background(&H20,-1)
.set_Background(&H0,67108864)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,67174657)
.set_Background(&H1,67109119)
.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.EnsureVisibleColumn("Function")
With .Columns.Item("Function")
End With
.Columns.Item(0).Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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
.GetOcx().BackColorHeader = &H4c6c6c6
.GetOcx().SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.set_Background(&H14,.SelBackColor)
.set_Background(&H15,.SelForeColor)
.set_Background(&H8 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.BackColor)
.set_Background(&H9 Or EXCASCADETREELib.BackgroundPartEnum.exSplitBar,.ForeColor)
.set_Background(&H20,-1)
.set_Background(&H0,67108864)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,67174657)
.set_Background(&H1,67109119)
.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = 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 AxCascadeTree1
.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_Background(&H0,33488638)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHeaderFilterBarActive,16843009)
.set_Background(&H20,-1)
.BackColorHeader = RGB(255,255,255)
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.HeaderHeight = 28
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
.HeaderVisible = True
With .Columns
.Add("C1").DisplayFilterButton = True
With .Add("C2")
.DisplayFilterButton = True
.Filter = "Item 2"
.FilterType = EXCASCADETREELib.FilterTypeEnum.exFilter
End With
.Add("C3").DisplayFilterButton = True
End With
With .Items
h = .AddItem("Item 1")
.CellValue(h,1) = "Item 2"
.CellValue(h,2) = "Item 3"
h = .AddItem("Item 4")
.CellValue(h,1) = "Item 5"
.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 AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.ColumnAutoResize = True
.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarTop
.HeaderHeight = 24
.FilterBarHeight = .HeaderHeight
.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Flat
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesGeometric
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = EXCASCADETREELib.FilterTypeEnum.exPattern
.Filter = "B*"
End With
With .Columns.Add("Index")
.FormatColumn = "1 index ``"
.Position = 0
.Width = 48
.AllowSizing = False
.SortType = EXCASCADETREELib.SortTypeEnum.SortNumeric
.Def(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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim k
With AxCascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add(k)
With .Items
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.AllowSort = False
.AllowDragging = False
End With
.Key = 0
With .Items
.AddItem("Item A")
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim k
With AxCascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add(k)
With .Items
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_Background(&H20,-1)
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
With .Items
.AddItem("Item A")
.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 AxCascadeTree1
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns
With .Add("Single-Line (exCaptionSingleLine)")
.Width = 96
.Def(EXCASCADETREELib.DefColumnEnum.exCellValueFormat) = 1
.Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = -1
End With
With .Add("Word-Wrap (exCaptionWordWrap)")
.Width = 96
.Def(EXCASCADETREELib.DefColumnEnum.exCellValueFormat) = 1
.Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = 0
.FormatColumn = "%0"
End With
With .Add("Break-Wrap (exCaptionBreakWrap)")
.Width = 96
.Def(EXCASCADETREELib.DefColumnEnum.exCellValueFormat) = 1
.Def(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 AxCascadeTree1
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = 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.")
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exHTML
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 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.")
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exHTML
.CellSingleLine(h,0) = EXCASCADETREELib.CellSingleLineEnum.exCaptionWordWrap
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 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.")
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exHTML
.CellSingleLine(h,0) = 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 AxCascadeTree1
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 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 AxCascadeTree1
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns.Add("Default")
.Width = 128
.Def(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 AxCascadeTree1
.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_Background(EXCASCADETREELib.BackgroundPartEnum.exColumnsPositionSign,33554432)
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .get_DefaultView()
.BeginUpdate()
.HeaderAppearance = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim bColumnAutoResize,bSingle
With AxCascadeTree1
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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim ado
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim bColumnAutoResize,bSingle
With AxCascadeTree1
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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.HeaderHeight = 20
.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country"
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .View("State")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "State"
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .View("City")
.BeginUpdate()
.Columns.Item("CountryCode").Visible = False
.Columns.Item("StateCode").Visible = False
With .Columns.Item("Name")
.HTMLCaption = "City"
.Width = 128
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.SearchColumnIndex = .Columns.Item("Name").Index
With .Columns.Item("Status")
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
With .Columns.Item("Function")
.Def(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
.Def(EXCASCADETREELib.DefColumnEnum.exCellBackColor) = 15790320
.Position = 0
.FormatColumn = "1 pos ``"
.Alignment = 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 = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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().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(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
.set_Background(&H0,16777216)
.set_Background(&H1,33554432)
.set_Background(&H20,-1)
.EndUpdate()
End With
|
|
64
|
GroupBy sample
' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim bGroupBy,nSelected
With AxCascadeTree1
.View.HeaderHeight = 24
With .get_DefaultView()
With .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 = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.EndUpdate()
End With
With .View("City")
nSelected = .ParentView.Items.SelectCount
bGroupBy = AxCascadeTree1.FormatABC("value > 1 ? -1 : 0",nSelected)
.BeginUpdate()
.SingleSel = False
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.HasLines = EXCASCADETREELib.HierarchyLineEnum.exSolidLine
.ColumnAutoResize = False
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exVLines
.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesVSolid
.Columns.Item("CountryCode").Visible = False
With .Columns.Item("Name")
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.SearchColumnIndex = 2
.TreeColumnIndex = .SearchColumnIndex
.SingleSort = False
.AllowGroupBy = False
.SortBarVisible = False
With .Columns.Item("StateCode")
.Visible = False
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.Width = .WidthToFit
.EndUpdate()
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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().View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.EndUpdate()
End With
.GetOcx().SelBackColor = &H1000000
.SelForeColor = RGB(255,255,255)
.GetOcx().BackColorHeader = &H2000000
.BackColorSortBar = .BackColor
.BackColorSortBarCaption = .BackColor
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
.BackColorSortBar = .BackColor
.EndUpdate()
End With
|
|
63
|
Manual sample
' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim k
With AxCascadeTree1
With .View
.BeginUpdate()
k = .ParentView.Value()
.HeaderVisible = False
.ColumnAutoResize = True
.ScrollBySingleLine = True
.Columns.Add("Default").Def(EXCASCADETREELib.DefColumnEnum.exCellSingleLine) = False
.Key = 0
With .Items
.AddItem(AxCascadeTree1.FormatABC("A + `.Child 1`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `.Child 2`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `.Child 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.GetOcx().BackColorAlternate = &H7ff0f0f0
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,15790320)
With .get_DefaultView()
.BeginUpdate()
.HeaderVisible = False
.ColumnAutoResize = True
.ScrollBySingleLine = True
.Columns.Add("Default").Def(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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim h
With AxCascadeTree1
.View.HeaderHeight = 24
With .get_DefaultView()
With .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 = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
With .Items
.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
End With
.EndUpdate()
End With
With .View("City")
.BeginUpdate()
.SingleSel = False
.ColumnAutoResize = False
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exVLines
.GridLineStyle = 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
.Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.SearchColumnIndex = 2
.ConditionalFormats.Add("%CS2 = 1").Bold = True
With .Items
.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim h
With AxCascadeTree1
.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().View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
With .Items
.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
End With
.EndUpdate()
End With
.GetOcx().SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.GetOcx().BackColorHeader = &H2000000
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
.BackColorSortBar = .BackColor
.EndUpdate()
End With
|
|
61
|
How can I get the selected items (sample 2)
' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim k
With AxCascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate()
.ColumnAutoResize = True
.Key = -1
.Columns.Add(k)
With .Items
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(AxCascadeTree1.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 AxCascadeTree1_ViewItemStateEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewItemStateEndChangingEvent) Handles AxCascadeTree1.ViewItemStateEndChanging
With AxCascadeTree1
Debug.Print( "End" )
Debug.Print( e.operation )
With .View.Items
Debug.Print( "FocusItem" )
Debug.Print( .CellCaption(.FocusItem,0) )
Debug.Print( "SelectedItem" )
Debug.Print( .CellCaption(.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 AxCascadeTree1_ViewItemStateStartChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewItemStateStartChangingEvent) Handles AxCascadeTree1.ViewItemStateStartChanging
With AxCascadeTree1
Debug.Print( "Start" )
Debug.Print( e.operation )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
.LinesAtRoot = EXCASCADETREELib.LinesAtRootEnum.exLinesAtRoot
With .Items
.AddItem("Item A")
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 = RGB(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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .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 = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.EndUpdate()
End With
With .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
.Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
With .Columns.Add("Pos")
.AllowSizing = False
.Width = 32
.Def(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 = EXCASCADETREELib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
.EndUpdate()
.BeginUpdate()
.MinColumnWidth = 348
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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().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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.FilterBarPromptType = EXCASCADETREELib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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().View("City")
.FilterBarPromptPattern = "An"
With .Columns.Item("Name")
.Width = 128
.Def(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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.BackColorAlternate = RGB(240,240,240)
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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().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 = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = EXCASCADETREELib.FilterTypeEnum.exFilter
.Filter = "Italy|Romania|Germany"
End With
.FilterBarPromptPattern = "a"
.ColumnAutoResize = True
.SearchColumnIndex = .Columns.Item("CountryName").Index
.FilterInclude = 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 = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarVisible Or 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
.View.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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().View("Country")
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
With .Columns.Item("CountryName")
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.DisplayFilterButton = True
.FilterList = EXCASCADETREELib.FilterListEnum.exShowExclude Or EXCASCADETREELib.FilterListEnum.exShowFocusItem Or EXCASCADETREELib.FilterListEnum.exShowCheckBox Or EXCASCADETREELib.FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
End With
With .get_DefaultView().View("Country")
With .Columns.Item(0)
.FilterType = EXCASCADETREELib.FilterTypeEnum.exFilter
.Filter = "US|RO|GE"
End With
.ApplyFilter()
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
.View.FilterBarPromptVisible = EXCASCADETREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim h
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
.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().View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Items
.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim h
With AxCascadeTree1
.View.HeaderVisible = False
With .get_DefaultView()
With .View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Items
.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
End With
.EndUpdate()
End With
With .View("State")
.BeginUpdate()
.SingleSel = False
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Items
.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>States: <b>`+ (value format `0`)"
End With
.EndUpdate()
End With
With .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
.LockedItemCount(EXCASCADETREELib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXCASCADETREELib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXCASCADETREELib.ValueFormatEnum.exTotalField Or EXCASCADETREELib.ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,4)
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exStatusBackColor,.BackColor)
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
.GetOcx().SelBackColor = &H1000000
.SelForeColor = .ForeColor
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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().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
.Def(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 = RGB(190,190,190)
With .Add("%CS2 = 1")
.Bold = True
.ApplyTo = &H8
End With
End With
With .Items
.CellState(.ItemByIndex(1),2) = 1
.CellState(.ItemByIndex(3),2) = 1
.CellState(.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exVLines
.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.EndUpdate()
End With
With .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 .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
.Def(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 = RGB(190,190,190)
With .Add("%CS2 = 1")
.Bold = True
.ApplyTo = &H8
End With
End With
With .Items
.CellState(.ItemByIndex(1),2) = 1
.CellState(.ItemByIndex(3),2) = 1
.CellState(.ItemByIndex(5),2) = 1
End With
.EndUpdate()
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exStatusBackColor,.BackColor)
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI")
.GetOcx().SelBackColor = &H1000000
.SelForeColor = .ForeColor
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.HeaderAppearance = EXCASCADETREELib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = EXCASCADETREELib.GridLinesEnum.exAllLines
.GridLineStyle = EXCASCADETREELib.GridLinesStyleEnum.exGridLinesDash
End With
With .get_DefaultView()
With .View("Country")
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
.Columns.Item(1).HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.EndUpdate()
End With
With .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 .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
.Def(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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
With .ConditionalFormats.Add("%CS0 = 1")
.Bold = True
End With
.Columns.Item(0).Def(EXCASCADETREELib.DefColumnEnum.exCellHasCheckBox) = True
With .Items
.CellState(.FocusItem,0) = 1
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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().View("City")
With .ConditionalFormats.Add("(%0 = `US`) and (%2 like `Al*`)")
.Bold = True
.BackColor = RGB(240,240,240)
End With
End With
.EndUpdate()
End With
|
|
45
|
Conditional Format
' CreateView event - A view has been created.
Private Sub AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = 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 = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
.View.SingleSel = False
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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
.GetOcx().SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.GetOcx().BackColorHeader = &H2000000
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
.BackColorSortBar = .BackColor
.EndUpdate()
.BeginUpdate()
.Mode = 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().View("City")
.BeginUpdate()
With .Columns
.Item("CountryCode").Visible = False
With .Item("Name")
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
.Width = 128
End With
End With
.SortBarVisible = True
.AllowGroupBy = True
.SingleSort = False
.Columns.Item("StateCode").SortOrder = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
' Columns("StateCode").SortOrder = nGroupByIfCity
Dim bColumnAutoResize,nGroupByIfCity
With AxCascadeTree1
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 = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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
.GetOcx().SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.GetOcx().BackColorHeader = &H2000000
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
.BackColorSortBar = .BackColor
.EndUpdate()
.BeginUpdate()
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
With AxCascadeTree1
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
.Columns.Item("CountryName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
With .Columns.Item("Name")
End With
.EndUpdate()
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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
.GetOcx().SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.GetOcx().BackColorHeader = &H2000000
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
.BackColorSortBar = .BackColor
.EndUpdate()
.BeginUpdate()
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
With .View
.BeginUpdate()
.ContinueColumnScroll = False
.ScrollBySingleLine = True
.DrawGridLines = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.FitCascadeColumns = 7
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
With .Columns.Add("Pos")
.Width = 32
.AllowSizing = False
.Position = 0
.FormatColumn = "1 pos ``"
.Def(EXCASCADETREELib.DefColumnEnum.exCellBackColor) = 15790320
.Alignment = EXCASCADETREELib.AlignmentEnum.RightAlignment
.HeaderAlignment = .Alignment
.Def(EXCASCADETREELib.DefColumnEnum.exCellPaddingRight) = 2
.Def(EXCASCADETREELib.DefColumnEnum.exCellPaddingLeft) = 2
.Def(EXCASCADETREELib.DefColumnEnum.exHeaderPaddingLeft) = 2
.Def(EXCASCADETREELib.DefColumnEnum.exHeaderPaddingRight) = 2
End With
.CountLockedColumns = 1
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
With .View
.EnsureVisibleColumn("Function")
With .Columns.Item("Function")
End With
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.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 = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
With AxCascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarHeight = 24
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
.View.AutoSearch = False
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
.EndUpdate()
.BeginUpdate()
.Mode = 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 = EXCASCADETREELib.SortOrderEnum.SortAscending
.get_DefaultView().NextView.Columns.Item("StateName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
With .get_DefaultView().NextView.NextView
.ColumnAutoResize = False
With .Columns.Item("Name")
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
.Width = 128
End With
With .Items
.SelectItem(.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = 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 = EXCASCADETREELib.SortOrderEnum.SortAscending
.get_DefaultView().NextView.Columns.Item("StateName").SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
With .get_DefaultView().NextView.NextView
.BeginUpdate()
.ColumnAutoResize = False
With .Columns.Item("Name")
.Width = 128
.SortOrder = EXCASCADETREELib.SortOrderEnum.SortAscending
End With
.SingleSort = False
.AllowGroupBy = True
.Columns.Item("Status").SortOrder = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
With AxCascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
.ExecuteContextMenu = 0
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.AllowSplitView = EXCASCADETREELib.AllowSplitViewEnum.exAllowOneSplitView
.FitCascadeColumns = 3
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarHeight = 24
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exVScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exHScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(EXCASCADETREELib.ScrollBarEnum.exScroll,EXCASCADETREELib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb,8421504)
.ScrollHeight = 4
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSBack,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSThumb,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSThumb))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exVSBack))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exCSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exHSplitBar,.get_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar))
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBarSize,2)
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
With AxCascadeTree1
Debug.Print( .ExecuteContextMenu )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
With AxCascadeTree1
Debug.Print( .ExecuteContextMenu )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
' Columns("StateCode").Visible = False
With AxCascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitFixCascadeMode
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
.View.ColumnAutoResize = True
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.Mode = EXCASCADETREELib.CascadeModeEnum.exAutoFitOnResizeClient Or EXCASCADETREELib.CascadeModeEnum.exDisableResizeCascadeColumns Or 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.Mode = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.DefColumnWidth = 96
.Mode = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.Mode = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.set_Background(EXCASCADETREELib.BackgroundPartEnum.exSplitBar,12895428)
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = 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 = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
With AxCascadeTree1
.StatusBarLabel = .Name
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
With AxCascadeTree1
.StatusBarLabel = .Name
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.Mode = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.Mode = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim label
With AxCascadeTree1
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
Dim label
With AxCascadeTree1
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 AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim bColumnAutoResize,label
With AxCascadeTree1
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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
Dim label
With AxCascadeTree1
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 AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim bColumnAutoResize
With AxCascadeTree1
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
.View.ColumnAutoResize = False
End With
End Sub
' Error event - An internal error occurs.
Private Sub AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
' ViewEndChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
With AxCascadeTree1
.StatusBarLabel = AxCascadeTree1.Select
End With
End Sub
Dim dm1,dm2,dm3,ds
With AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSplitEqualCascadeMode
.StatusBarVisible = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim bColumnAutoResize,nWidth
With AxCascadeTree1
.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim dm1,dm2,dm3,ds
With AxCascadeTree1
.BeginUpdate()
.StatusBarHeight = 58
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarWordWrap Or 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim dm,ds
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = 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 = AxCascadeTree1.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim dm,ds
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = 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 = AxCascadeTree1.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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim ado
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim ado
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim dm,ds
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim dm,ds
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim ado
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim ado
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
ado = CreateObject("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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim xml
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = 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 = CreateObject("MSXML.DOMDocument")
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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = 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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
Dim xml
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = EXCASCADETREELib.StatusBarAnchorEnum.exStatusBarAnchorTop
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
xml = CreateObject("MSXML.DOMDocument")
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 AxCascadeTree1_Error(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ErrorEvent) Handles AxCascadeTree1.Error
With AxCascadeTree1
Debug.Print( "Error" )
Debug.Print( e.description )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
.StatusBarVisible = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim k
With AxCascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate()
.ColumnAutoResize = True
.Key = -1
.Columns.Add(k)
With .Items
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(AxCascadeTree1.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 AxCascadeTree1_ViewEndChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewEndChangingEvent) Handles AxCascadeTree1.ViewEndChanging
With AxCascadeTree1
Debug.Print( "End" )
Debug.Print( e.operation )
With .View.Items
Debug.Print( "FocusItem" )
Debug.Print( .CellCaption(.FocusItem,0) )
Debug.Print( "SelectedItem" )
Debug.Print( .CellCaption(.SelectedItem(0),0) )
End With
End With
End Sub
' ViewStartChanging event - Occurs once the user is about to change the view.
Private Sub AxCascadeTree1_ViewStartChanging(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_ViewStartChangingEvent) Handles AxCascadeTree1.ViewStartChanging
With AxCascadeTree1
Debug.Print( "Start" )
Debug.Print( e.operation )
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
.LinesAtRoot = EXCASCADETREELib.LinesAtRootEnum.exLinesAtRoot
With .Items
.AddItem("Item A")
.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 AxCascadeTree1
.BeginUpdate()
.Mode = EXCASCADETREELib.CascadeModeEnum.exSingleCascadeMode
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = -1
.LinesAtRoot = 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 AxCascadeTree1_CreateView(ByVal sender As System.Object, ByVal e As AxEXCASCADETREELib._ICascadeTreeEvents_CreateViewEvent) Handles AxCascadeTree1.CreateView
Dim k
With AxCascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add(k)
With .Items
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 1`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 2`",k))
.AddItem(AxCascadeTree1.FormatABC("A + `-> Sub-Item 3`",k))
End With
.EndUpdate()
End With
End With
End Sub
With AxCascadeTree1
.BeginUpdate()
With .View
.BeginUpdate()
.ColumnAutoResize = True
.Columns.Add("Default")
.Key = 0
With .Items
.AddItem("Item A")
.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 AxCascadeTree1
.BackColor = RGB(240,240,240)
End With
|