|
79
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Items.ItemHeight(0) = View.DefaultItemHeight
' FilterBarFont.Size = Me.Font.Size
' ToolTipFont.Size = Me.Font.Size
With CascadeTree1
With .View
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.SortBarHeight = .DefaultItemHeight
.Indent = 26
.CheckImage(0) = 16777216
.CheckImage(1) = 33554432
.CheckImage(2) = 50331648
.EnsureVisibleColumn "Function"
With .Columns.Item("Function")
End With
.Columns.Item(0).Def(0) = True
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
.BackColorHeader = &H4c6c6c6
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.Background(20) = .SelBackColor ' &H14
.Background(21) = .SelForeColor ' &H15
.Background(26) = .BackColor ' &H8 Or BackgroundPartEnum.exSplitBar
.Background(27) = .ForeColor ' &H9 Or BackgroundPartEnum.exSplitBar
.Background(32) = -1 ' &H20
.Background(0) = &H4000000 ' &H0
.Background(41) = &H4010101
.Background(1) = &H40000ff ' &H1
.HeaderAppearance = 4
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
78
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.EnsureVisibleColumn "Function"
With .Columns.Item("Function")
End With
.Columns.Item(0).Def(0) = True
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
.BackColorHeader = &H4c6c6c6
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.Background(20) = .SelBackColor ' &H14
.Background(21) = .SelForeColor ' &H15
.Background(26) = .BackColor ' &H8 Or BackgroundPartEnum.exSplitBar
.Background(27) = .ForeColor ' &H9 Or BackgroundPartEnum.exSplitBar
.Background(32) = -1 ' &H20
.Background(0) = &H4000000 ' &H0
.Background(41) = &H4010101
.Background(1) = &H40000ff ' &H1
.HeaderAppearance = 4
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
77
|
Is it possible to highlight the column's header once a filter is applied
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
.Background(0) = &H1fefefe ' &H0
.Background(41) = &H1010101
.Background(32) = -1 ' &H20
.BackColorHeader = RGB(255,255,255)
.Mode = 1
With .DefaultView()
.HeaderHeight = 28
.DrawGridLines = -2
.HeaderVisible = 1
With .Columns
.Add("C1").DisplayFilterButton = True
With .Add("C2")
.DisplayFilterButton = True
.Filter = "Item 2"
.FilterType = 240
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
End Function
</SCRIPT>
</BODY>
|
|
76
|
Is it possible to show the filterbar on top of the rows
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 1
With .DefaultView()
.ColumnAutoResize = True
.FilterBarPromptVisible = 8192
.HeaderHeight = 24
.FilterBarHeight = .HeaderHeight
.HeaderAppearance = 1
.DrawGridLines = -1
.GridLineStyle = 512
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = 3
.Filter = "B*"
End With
With .Columns.Add("Index")
.FormatColumn = "1 index ``"
.Position = 0
.Width = 48
.AllowSizing = False
.SortType = 1
.Def(0) = 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
End Function
</SCRIPT>
</BODY>
|
|
75
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = True
.Columns.Add k
With .Items
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
End Function
</SCRIPT>
</BODY>
|
|
74
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = True
.Columns.Add k
With .Items
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Background(32) = -1 ' &H20
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
End Function
</SCRIPT>
</BODY>
|
|
73
|
Type of wraps the cell's caption support (Sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.Mode = 1
With .DefaultView()
.BeginUpdate
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = -2
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns
With .Add("Single-Line (exCaptionSingleLine)")
.Width = 96
.Def(17) = 1
.Def(16) = -1
End With
With .Add("Word-Wrap (exCaptionWordWrap)")
.Width = 96
.Def(17) = 1
.Def(16) = 0
.FormatColumn = "%0"
End With
With .Add("Break-Wrap (exCaptionBreakWrap)")
.Width = 96
.Def(17) = 1
.Def(16) = 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
End Function
</SCRIPT>
</BODY>
|
|
72
|
Type of wraps the cell's caption support (Sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.Mode = 1
With .DefaultView()
.BeginUpdate
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = -2
.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) = 1
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 0
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) = 1
.CellSingleLine(h,0) = 0
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.CellSingleLine(h,0) = 1
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) = 1
.CellSingleLine(h,0) = 1
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
71
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.Mode = 1
With .DefaultView()
.BeginUpdate
.DrawGridLines = -2
.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) = 1
.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
End Function
</SCRIPT>
</BODY>
|
|
70
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.Mode = 1
With .DefaultView()
.BeginUpdate
.DrawGridLines = -2
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns.Add("Default")
.Width = 128
.Def(16) = 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
End Function
</SCRIPT>
</BODY>
|
|
69
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
.Background(182) = &H2000000
.Mode = 1
With .DefaultView()
.BeginUpdate
.HeaderAppearance = 4
With .Columns
.Add "Column 1"
.Add "Column 2"
.Add "Column 3"
End With
.EndUpdate
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
68
|
DataSource (control, ADODB, ACCDB, x64)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index)
bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag)
With .View
.ColumnAutoResize = bColumnAutoResize
.SingleSel = bSingle
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 515 ' CascadeModeEnum.exAutoFitOnResizeClient Or 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
End Function
</SCRIPT>
</BODY>
|
|
67
|
DataSource (view, ADODB, ACCDB, x64)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
Set 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 .DefaultView()
.DataSource = ado
.ColumnAutoResize = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
66
|
Simple sample
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
bSingle = .FormatABC("value > 0 ? 0 : -1",.View.Index)
bColumnAutoResize = .FormatABC("value = `City` ? 0 : -1",.View.Tag)
With .View
.ColumnAutoResize = bColumnAutoResize
.SingleSel = bSingle
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 515 ' CascadeModeEnum.exAutoFitOnResizeClient Or 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
End Function
</SCRIPT>
</BODY>
|
|
65
|
FilterBar sample
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.HeaderHeight = 20
.HeaderAppearance = 4
.DrawGridLines = -1
.GridLineStyle = 12
End With
With .DefaultView()
With .View("Country")
.BeginUpdate
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country"
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
.SearchColumnIndex = .Columns.Item("Name").Index
With .Columns.Item("Status")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
With .Columns.Item("Function")
.Def(17) = 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(4) = 15790320
.Position = 0
.FormatColumn = "1 pos ``"
.Alignment = 1
.HeaderAlignment = .Alignment ' .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 = 515 ' FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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 .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
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(4,0,0)
.Background(0) = &H1000000 ' &H0
.Background(1) = &H2000000 ' &H1
.Background(32) = -1 ' &H20
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
64
|
GroupBy sample
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.HeaderHeight = 24
With .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 = 1
End With
.EndUpdate
End With
With .View("City")
nSelected = .ParentView.Items.SelectCount
bGroupBy = CascadeTree1.FormatABC("value > 1 ? -1 : 0",nSelected)
.BeginUpdate
.SingleSel = False
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.HasLines = 1
.ColumnAutoResize = False
.DrawGridLines = 2
.GridLineStyle = 32
.Columns.Item("CountryCode").Visible = False
With .Columns.Item("Name")
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.SortOrder = 1
End With
.SearchColumnIndex = 2
.TreeColumnIndex = .SearchColumnIndex
.SingleSort = False
.AllowGroupBy = bGroupBy
.SortBarVisible = bGroupBy
With .Columns.Item("StateCode")
.Visible = bGroupBy
.SortOrder = 1
End With
.Width = .WidthToFit
.EndUpdate
End With
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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 .DefaultView().View("Country")
.BeginUpdate
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = 1
End With
.EndUpdate
End With
.SelBackColor = &H1000000
.SelForeColor = RGB(255,255,255)
.BackColorHeader = &H2000000
.BackColorSortBar = .BackColor
.BackColorSortBarCaption = .BackColor
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(4,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
63
|
Manual sample
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(V)
With CascadeTree1
With .View
.BeginUpdate
k = .ParentView.Value()
.HeaderVisible = False
.ColumnAutoResize = True
.ScrollBySingleLine = True
.Columns.Add("Default").Def(16) = False
.Key = 0
With .Items
.AddItem CascadeTree1.FormatABC("A + `.Child 1`",k)
.AddItem CascadeTree1.FormatABC("A + `.Child 2`",k)
.AddItem CascadeTree1.FormatABC("A + `.Child 3`",k)
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.BackColorAlternate = &H7ff0f0f0
.Background(18) = RGB(240,240,240)
With .DefaultView()
.BeginUpdate
.HeaderVisible = False
.ColumnAutoResize = True
.ScrollBySingleLine = True
.Columns.Add("Default").Def(16) = 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
End Function
</SCRIPT>
</BODY>
|
|
62
|
Appearance sample
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.HeaderHeight = 24
With .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 = 1
End With
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or 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 = 2
.GridLineStyle = 32
.Columns.Item(0).Visible = False
.Columns.Item(1).Visible = False
With .Columns.Item(2)
.HTMLCaption = "City <off 4><fgcolor=808080>Name"
.Width = 128
.Def(0) = True
.SortOrder = 1
End With
.SearchColumnIndex = 2
.ConditionalFormats.Add("%CS2 = 1").Bold = True
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or 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 Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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 .DefaultView().View("Country")
.BeginUpdate
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Columns.Item(1)
.HTMLCaption = "Country <off 4><fgcolor=808080>Name"
.SortOrder = 1
End With
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
.CellValue(h,0) = "count(all,all,1)"
.FormatCell(h,0) = "`<r>Countries: <b>`+ (value format `0`)"
End With
.EndUpdate
End With
.SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = &H2000000
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(4,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
61
|
How can I get the selected items (sample 2)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = True
.Key = -1
.Columns.Add k
With .Items
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewItemStateEndChanging(Operation,Item,ColIndex)
With CascadeTree1
alert( "End" )
alert( Operation )
With .View.Items
alert( "FocusItem" )
alert( .CellCaption(.FocusItem,0) )
alert( "SelectedItem" )
alert( .CellCaption(.SelectedItem(0),0) )
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewItemStateStartChanging(Operation,Item,ColIndex,Cancel)
With CascadeTree1
alert( "Start" )
alert( Operation )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
With .View
.BeginUpdate
.ColumnAutoResize = True
.Columns.Add "Default"
.Key = 0
.LinesAtRoot = -1
With .Items
.AddItem "Item A"
.SelectItem(.AddItem("Item B")) = True
.AddItem "Item C"
End With
.EndUpdate
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
60
|
How do I specify a foreground color for a particular view
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.DefaultView().ConditionalFormats.Add("1").ForeColor = RGB(128,128,128)
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
59
|
How do display result/items in the view's filter bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.HeaderAppearance = 4
.HeaderHeight = 24
.DrawGridLines = -1
.GridLineStyle = 12
End With
With .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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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(0) = True
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
With .Columns.Add("Pos")
.AllowSizing = False
.Width = 32
.Def(4) = 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 = 3
.FilterBarPromptVisible = 515 ' FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(2,0,0)
.EndUpdate
.BeginUpdate
.MinColumnWidth = 348
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .DefaultView().View("City")
.FilterBarPromptPattern = "An"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.FilterBarPromptType = 3
.FilterBarPromptVisible = 1
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .DefaultView().View("City")
.FilterBarPromptPattern = "An"
With .Columns.Item("Name")
.Width = 128
.Def(17) = 1
.FormatColumn = "value replace `An` with `<bgcolor=000000><fgcolor=FFFFFF>An</fgcolor></bgcolor>` "
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
57
|
FilterBarCaption Predefined Keywords
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.BackColorAlternate = RGB(240,240,240)
.Mode = 1
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US"
With .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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = 240
.Filter = "Italy|Romania|Germany"
End With
.FilterBarPromptPattern = "a"
.ColumnAutoResize = True
.SearchColumnIndex = .Columns.Item("CountryName").Index
.FilterInclude = 1
.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 = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
.ApplyFilter
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
56
|
How can I enable the column's filter bar (view)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.FilterBarPromptVisible = 1
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .DefaultView().View("Country")
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
With .Columns.Item("CountryName")
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
.FilterType = 240
.Filter = "Romania|Germany"
End With
.ApplyFilter
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
55
|
How can I enable the column's filter bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.FilterBarPromptVisible = 1
With .Columns.Item(0)
.DisplayFilterButton = True
.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
.FilterBarDropDownWidth = 2
End With
End With
With .DefaultView().View("Country")
With .Columns.Item(0)
.FilterType = 240
.Filter = "US|RO|GE"
End With
.ApplyFilter
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
54
|
How can I enable the control's filter bar (view)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.DefaultView().FilterBarPromptVisible = 1
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
53
|
How can I enable the control's filter bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.FilterBarPromptVisible = 1
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
52
|
Aggregate sum, min, max, count, avg, divider, total (view)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 2
.Background(18) = RGB(196,196,196)
.Background(170) = RGB(4,0,0)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "RO"
With .DefaultView().View("Country")
.BeginUpdate
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or 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
End Function
</SCRIPT>
</BODY>
|
|
51
|
Aggregate sum, min, max, count, avg, divider, total
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.HeaderVisible = False
With .DefaultView()
With .View("Country")
.BeginUpdate
.ColumnAutoResize = True
.Columns.Item(0).Visible = False
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or 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(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or 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(0) = 1
h = .LockedItem(0,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or 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 Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.Background(170) = RGB(4,0,0)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
50
|
How can I add a check-box column (view)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.Background(168) = .BackColor
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI"
.SelBackColor = &H1000000
.SelForeColor = .ForeColor
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .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(0) = 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 = 8 ' &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
End Function
</SCRIPT>
</BODY>
|
|
49
|
How can I add a check-box column
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.HeaderAppearance = 4
.HeaderHeight = 24
.DrawGridLines = 2
.GridLineStyle = 12
End With
With .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(0) = 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 = 8 ' &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 Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<c>Select multiple-items in the City view, and press <b>SPACE</b> key"
.Background(168) = .BackColor
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABO0GACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEhqGiUBihaQhRgyJI3RlJGaoD" & _
"iKIokShKEpDLKlCx3H6OKQjOZgAoySo4SbDMp0NAkRBlFqcJCCCLAUgmTpQUBOYyiLKNRxQGoYLIlayZIiSIpMRbWcB3BYEOSFFasAAleYZTg2Jp1TbPAAYFL1ISDKSi" & _
"IZqTA6PheT5yUzCNazbgEMTvRKqcSnO6bOgnEKQZKAGg4bg1RTVAYZLKtPR7aqyUJvZ5sMB6DiuLYRPKXZoucaNExSS5ebJtOzQJbEXBpXSpBwzSieBozIaQcJUOoaVx" & _
"PFkaJrGuIx3h2BZPgOUIQmUcIwDARAkiAaQxh0DonCMLAeBKZobBCCY+niWJaBIKJJH4MoBgiQpCmmUR/ooBgCgCYBIBYBoBmCBYAn+ApgkgNgOgOYQIEYBIEGESBWBS" & _
"BJhGgZgZgYIYoHYEIHCGaIGAuCAiCgegkgkYYoh4KIFiKKIuBeAJimiGgwgwYoYk4NILCCGJmDqDpjkidg+gGTo1jUAxAEAgI"
.SelBackColor = &H1000000
.SelForeColor = .ForeColor
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
48
|
How can I access a view
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.HeaderAppearance = 4
.HeaderHeight = 24
.DrawGridLines = -1
.GridLineStyle = 12
End With
With .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(4) = 15790320
End With
.CountLockedColumns = 1
.EndUpdate
End With
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
47
|
Conditional Format (check)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
With .ConditionalFormats.Add("%CS0 = 1")
.Bold = True
End With
.Columns.Item(0).Def(0) = True
With .Items
.CellState(.FocusItem,0) = 1
End With
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
46
|
Conditional Format (view)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
With .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
End Function
</SCRIPT>
</BODY>
|
|
45
|
Conditional Format
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
With .ConditionalFormats.Add("%0 = `US`")
.Bold = True
End With
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
44
|
I've seen the AllowSplitView property, the question is how can I load data to
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.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 = 1
.SplitViewHeight = 256
With .DefaultView(1)
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
43
|
How can I group the items (view)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.SingleSel = False
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
.SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = &H2000000
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(2,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
.BeginUpdate
.Mode = 3
.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 .DefaultView().View("City")
.BeginUpdate
With .Columns
.Item("CountryCode").Visible = False
With .Item("Name")
.SortOrder = 1
.Width = 128
End With
End With
.SortBarVisible = True
.AllowGroupBy = True
.SingleSort = False
.Columns.Item("StateCode").SortOrder = 1
.TreeColumnIndex = .Columns.Item("Name").Index
.EndUpdate
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
42
|
How can I group the items
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
' Columns("StateCode").SortOrder = nGroupByIfCity
With CascadeTree1
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 = 1
With .Columns.Item(2)
End With
.TreeColumnIndex = 2
.AllowGroupBy = True
.SingleSort = False
.SortBarVisible = nGroupByIfCity
.ColumnAutoResize = bColumnAutoResize
.EndUpdate
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
.SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = &H2000000
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(2,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
.BeginUpdate
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
41
|
How can I change the visual appearance of the selection/header
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
' Columns("StateName").SortOrder = 1
With CascadeTree1
With .View
.BeginUpdate
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
.Columns.Item("CountryName").SortOrder = 1
With .Columns.Item("Name")
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
.SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.BackColorHeader = &H2000000
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(2,0,0)
.BackColorSortBar = .BackColor
.EndUpdate
.BeginUpdate
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
40
|
How can I format a column so it display its content in a different way
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
With .View
.BeginUpdate
.ContinueColumnScroll = False
.ScrollBySingleLine = True
.DrawGridLines = -1
.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 Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.FitCascadeColumns = 7
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
39
|
How can I add a position column
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
With .Columns.Add("Pos")
.Width = 32
.AllowSizing = False
.Position = 0
.FormatColumn = "1 pos ``"
.Def(4) = 15790320
.Alignment = 2
.HeaderAlignment = .Alignment ' .Alignment
.Def(49) = 2
.Def(48) = 2
.Def(52) = 2
.Def(53) = 2
End With
.CountLockedColumns = 1
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
38
|
How can I display icons or images
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
.EnsureVisibleColumn "Function"
With .Columns.Item("Function")
End With
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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 = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
37
|
How can I turn-on the control's status bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarHeight = 24
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
36
|
How can I disable incremental searching
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.AutoSearch = False
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
35
|
ScrollBar extension
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(2,0,0)
.EndUpdate
.BeginUpdate
.Mode = 3
.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"
.DefaultView().Columns.Item("CountryName").SortOrder = 1
.DefaultView().NextView.Columns.Item("StateName").SortOrder = 1
With .DefaultView().NextView.NextView
.ColumnAutoResize = False
With .Columns.Item("Name")
.SortOrder = 1
.Width = 128
End With
With .Items
.SelectItem(.FindItem("Anchorage","Name")) = True
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
34
|
How can I access the next/prev/parent/child view
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 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 = "RO\CJ"
.DefaultView().Columns.Item("CountryName").SortOrder = 1
.DefaultView().NextView.Columns.Item("StateName").SortOrder = 1
With .DefaultView().NextView.NextView
.BeginUpdate
.ColumnAutoResize = False
With .Columns.Item("Name")
.Width = 128
.SortOrder = 1
End With
.SingleSort = False
.AllowGroupBy = True
.Columns.Item("Status").SortOrder = 2
.TreeColumnIndex = .Columns.Item("Name").Index
.EndUpdate
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
33
|
Predefined Keywords of ShowContextMenu property
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
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 Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
.StatusBarLabel = .FormatABC("`<b>` + ( value replace `\\` with ` </b><font ;6><off 4>` )",.Name)
.ExecuteContextMenu = 0
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.AllowSplitView = 1
.FitCascadeColumns = 3
.Mode = 2
.StatusBarVisible = 2
.StatusBarHeight = 24
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.Background(18) = RGB(196,196,196)
.Background(142) = .Background(18)
.Background(141) = .Background(18)
.Background(170) = RGB(2,0,0)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.ShowContextMenu = "`vlevels=` + vlevels + `,vlevel=` + vlevel + `,hlevels=` + hlevels + `,hlevel=` + hlevel + `,view=` + view "
.SplitViewHeight = "256"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
32
|
How can I display the identifiers of the control's context menu (debug)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
alert( .ExecuteContextMenu )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.ShowContextMenu = "[debug]Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
31
|
ShowContextMenu usage
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
alert( .ExecuteContextMenu )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
30
|
How can I resize automatically all views, when the control is resized
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 515 ' CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exSplitFixCascadeMode
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
29
|
How can I hide some columns
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
' Columns("StateCode").Visible = False
With CascadeTree1
With .View
.ColumnAutoResize = True
.Columns.Item("CountryCode").Visible = False
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
28
|
Is it possible to disable resizing the cascade columns
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.ColumnAutoResize = True
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Background(18) = RGB(196,196,196)
.Mode = 771 ' CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or 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
End Function
</SCRIPT>
</BODY>
|
|
27
|
SplitFixCascadeMode Mode
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Background(18) = RGB(196,196,196)
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
26
|
FixCascadeMode Mode
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Background(18) = RGB(196,196,196)
.DefColumnWidth = 96
.Mode = 0
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
25
|
SplitEqualCascadeMode Mode
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Background(18) = RGB(196,196,196)
.Mode = 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"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
24
|
Default Mode
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Background(18) = RGB(196,196,196)
.DataSource = "Source=C:\Program Files\Exontrol\ExCascadeTree\Sample\Access\cities.accdb;Member=Select * FROM Countries;Key=CountryCode;Tag=Co" & _
"untry;Name=CountryName >>> Member=Select * FROM States WHERE CountryCode IN (<%Parent.CountryCode%>);Key=StateCode;Name=StateNam" & _
"e;Tag=State ||| Member=Select * FROM Cities WHERE CountryCode IN (<%Parent.CountryCode%>);Tag=City;Name=Name >>> Member=Select *" & _
" FROM Cities WHERE CountryCode IN (<%Parent.Parent.CountryCode%>) AND StateCode IN (<%Parent.StateCode%>);Tag=City;Name=Name"
.Select = "US\AK"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
23
|
SingleCascadeMode ( single-view )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 1
With .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 = 1
.Name = "Name"
End With
.Name = "Isaccea"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
22
|
How can I display the current selection, as a path
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.StatusBarLabel = .Name
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
.StatusBarLabel = .Name
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
21
|
How can I add multiple-views to the control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 3
.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
End Function
</SCRIPT>
</BODY>
|
|
20
|
I wish I select items based on names, rather than keys. Is that possible
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.View.ColumnAutoResize = CascadeTree1.FormatABC("not(A = `City`)",.View.Tag)
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 2
.StatusBarVisible = 18 ' StatusBarAnchorEnum.exStatusBarWordWrap Or 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
End Function
</SCRIPT>
</BODY>
|
|
19
|
I've noticed that I can't select multiple items. How can I do that
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
With .View
.SingleSel = False
.ColumnAutoResize = bColumnAutoResize
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 Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
label = .FormatABC("`<b>Select = </b>` + value",.Select)
label = .FormatABC("A + `<br>` + `<b>Name = </b>` + B replace `|` with ` `",label,.Name)
.StatusBarLabel = label
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 2
.StatusBarVisible = 18 ' StatusBarAnchorEnum.exStatusBarWordWrap Or 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
End Function
</SCRIPT>
</BODY>
|
|
18
|
How do I programmatically selects a path/item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
bColumnAutoResize = .FormatABC("not(A = `City`)",.View.Tag)
.View.ColumnAutoResize = bColumnAutoResize
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
.StatusBarLabel = CascadeTree1.Select
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 2
.StatusBarVisible = 1
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
End Function
</SCRIPT>
</BODY>
|
|
17
|
DataSource/DataMember/Key/Tag
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
.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 = bColumnAutoResize
.Width = nWidth
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarHeight = 58
.StatusBarVisible = 18 ' StatusBarAnchorEnum.exStatusBarWordWrap Or 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
End Function
</SCRIPT>
</BODY>
|
|
16
|
DataSource (view, data source, data member, ACCDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.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 .DefaultView()
.DataSource = CascadeTree1.FormatABC("A + `;` + B",ds,dm)
.ColumnAutoResize = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
15
|
DataSource (view, data source, data member, MDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.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 .DefaultView()
.DataSource = CascadeTree1.FormatABC("A + `;` + B",ds,dm)
.ColumnAutoResize = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
14
|
DataSource (view, ADODB, ACCDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
Set 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 .DefaultView()
.DataSource = ado
.ColumnAutoResize = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
13
|
DataSource (view, ADODB, MDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
Set 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 .DefaultView()
.DataSource = ado
.ColumnAutoResize = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
12
|
DataSource (control, data source, data member, ACCDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.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
End Function
</SCRIPT>
</BODY>
|
|
11
|
DataSource (control, data source, data member, MDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.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
End Function
</SCRIPT>
</BODY>
|
|
10
|
DataSource (control, ADODB, ACCDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
Set 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
End Function
</SCRIPT>
</BODY>
|
|
9
|
DataSource (control, ADODB, MDB)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be string (Source/Member), ADO or DAO objects"
.DefColumnWidth = 336
Set 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
End Function
</SCRIPT>
</BODY>
|
|
8
|
DataSource (view, XMLDOMDocument)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
With .DefaultView()
Set 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
End Function
</SCRIPT>
</BODY>
|
|
7
|
DataSource (view, XML, file)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
With .DefaultView()
.DataSource = "http://www.exontrol.net/testing.xml"
.ColumnAutoResize = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
6
|
DataSource (control, XMLDOMDocument)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.StatusBarLabel = "<b>DataSource</b> could be a XML file name, a URL, an IStream, an IXMLDOMDocument"
.DefColumnWidth = 336
Set 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
End Function
</SCRIPT>
</BODY>
|
|
5
|
DataSource (control, XML, file)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_Error(Error,Description)
With CascadeTree1
alert( "Error" )
alert( Description )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.StatusBarVisible = 2
.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
End Function
</SCRIPT>
</BODY>
|
|
4
|
How can I get the selected items (sample 1)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = True
.Key = -1
.Columns.Add k
With .Items
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewEndChanging(Operation)
With CascadeTree1
alert( "End" )
alert( Operation )
With .View.Items
alert( "FocusItem" )
alert( .CellCaption(.FocusItem,0) )
alert( "SelectedItem" )
alert( .CellCaption(.SelectedItem(0),0) )
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_ViewStartChanging(Operation)
With CascadeTree1
alert( "Start" )
alert( Operation )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
With .View
.BeginUpdate
.ColumnAutoResize = True
.Columns.Add "Default"
.Key = 0
.LinesAtRoot = -1
With .Items
.AddItem "Item A"
.SelectItem(.AddItem("Item B")) = True
.AddItem "Item C"
End With
.EndUpdate
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
3
|
Can I use this control as a simple tree
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BeginUpdate
.Mode = 1
With .View
.BeginUpdate
.ColumnAutoResize = True
.Columns.Add "Default"
.Key = -1
.LinesAtRoot = -1
With .Items
.AddItem "Item A"
.InsertItem .AddItem("Item B"),,"Child"
.AddItem "Item C"
End With
.EndUpdate
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2
|
How can I use this control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeTree1_CreateView(View)
With CascadeTree1
With .View
k = .ParentView.Value()
.BeginUpdate
.ColumnAutoResize = True
.Columns.Add k
With .Items
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 1`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 2`",k)
.AddItem CascadeTree1.FormatABC("A + `-> Sub-Item 3`",k)
End With
.EndUpdate
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.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
End Function
</SCRIPT>
</BODY>
|
|
1
|
How do I change the control's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:4DD131BB-181C-428B-B0F3-8449ADA3AF49" id="CascadeTree1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CascadeTree1
.BackColor = RGB(240,240,240)
End With
End Function
</SCRIPT>
</BODY>
|