|
110
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.ImageSize = 32
.Font.Size = 16
.CheckBoxWidth = 32
.CheckBoxHeight = 32
.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=")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
109
|
ImageSize property on 16 (default) (specifies the size of control' icons)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.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 .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A<img>1</img>,Check B<img>2</img>,Check C<img>3</img>"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
108
|
How can I add a hierarchy (multiple-columns), using the Item.ToString method
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add(1).Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.Columns.Add(2).Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.Columns.Add(3).Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.Items.ToString = "Root 1;Root 2;Root 3(Child1.1;Child2.1;Child3.1(SubChild 1.1;SubChild 2.1;SubChild 3.1,SubChild 2.1;SubChild 2.2;SubChild 2.3)," & _
"Child 1.2;Child 2.2;Child 3.2)"
.Items.ExpandAll()
Debug.Print( .Items.Item(0).ToString )
End With
End With
|
|
107
|
How can I add a hierarchy (single column), using the Item.ToString method
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.Items.Count = 1
.Items.Item(0).ToString = "Root(Child1(SubChild 1,SubChild 2),Child2)"
.Items.ExpandAll()
Debug.Print( .Items.Item(0).ToString )
End With
End With
|
|
106
|
How can add items to a list
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.Columns.Add("Pos").FormatColumn = "1 pos ``"
.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
End With
End With
|
|
105
|
How can I split a cell
Dim s
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.set_HTMLPicture("P1","c:\exontrol\images\zipdisk.gif")
.set_HTMLPicture("P2","c:\exontrol\images\auction.gif")
.set_HTMLPicture("P3","c:\exontrol\images\colorize.gif")
.set_HTMLPicture("P4","c:\exontrol\images\auction.gif")
With .FrontFace
With .CreateTree()
.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Choose your quick actions")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 48
s = 0
.set_Value(s,"<c><img>P1</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
.set_Value(s,"<c><img>P2</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
.set_Value(s,"<c><img>P3</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
.set_Value(s,"<c><img>P4</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
End With
.Expanded = True
End With
End With
End With
End With
.EndUpdate()
End With
|
|
104
|
I've noticed that the Face has no background color. Still, can I change the face's background color
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .FrontFace
With .CreateCalendar()
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = .MinMonthX
.MaxMonthY = .MinMonthY
.ShowTodayButton = False
End With
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackColor,15790320)
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHeight,"height")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceVisible,1)
End With
.EndUpdate()
End With
|
|
103
|
How can I change the +/- expanding/collapsing buttons
With Extreecube1
.TexturePicturePath = ""
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABDgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
"IUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6" & _
"PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWTo" & _
"HE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmH5+i8X4bluaJyHgGB9mQHx3JjBpViqJRHmueZ7H8Xo3i2fYAl+d5tncMRfDcdZeDMDIjCCJwokoEoQiEJ4KCIfIdgU" & _
"SZIAWaoGCEUh2BIJ4gnKBgMDICAnHoCggg0Aw4k0KAJkIagaguYwIj4LAmiKEw2CUIIiHMUJSDQSYyGCFYMGQCJCD0JRjiMRg3gmTYjGSVgmgkchSD4JJklIRIXCSSQY" & _
"j4U4UgkQhGE+EwJEkJJWhGpgGGIOBNmMdhPg8SRiHCGAlibNhohqJpJi4T4ZA2WYIgEYInGOGJlDkCQyECDoTEkKQ+E+C5oCIVhQCUCQpnSDoeg4SZZH8YdhjibQ7AiU" & _
"gkgcJFyiyEYmGmOhqhyJ5pmILoYCKaRSB6Eg7CcZgZggaRqHqNoTiuDpKkKMormsQ4xiUYgYiKEo6CCWgWiqPovloZoGjoKQYiOLR1ECUAQIC")
.Add(2,"gBFLBCJwBAEHhEJAADhABDwCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzX" & _
"IUBxAAqXZZFUaKAgOMJDTLBAzUSAAYhtHqeJBjID4JA6UJXRpIAIQSSBUjGOg6TiMUYZAguAxCEzZUT0fAYUQSCC3ZzDCKoRpiCT7Xg8V5OVbjUz9P7AMBwLA7erxap6" & _
"PJeD54QymGp/R5eMhyLI8UxXFqRY6veKtJhGDIrT5CEIQVA9EyXJqnahqOiaCguPorQy/dYYdg2BYBPS6MAvG4bVrOd59XrgN42fY2ByzAqlMQwS7rOqiY6YWTnehWTo" & _
"HE+JZUmoLB5CufQuAkBYkGO+ZrDWAo7keZZyHmPQ+g8X4fluYBhneEB9l0Iwpg6RRWiqFQfg+V5nnefh/GAB5yAIfRMFeRZdHeDJDCiSApkoMoEiQKBJmKCIfCcYQiHI" & _
"FYFkmeBaBOA5JmgsICEyAgJl6AZICMQJODMSgCHCGg/mKSI2C6C5jAiNgpCaIhjDYIggiIQxQlINBJjIYIVgwZAJAYPQlGOIxGDeCQNiMZJWCaCRyFIPgkmSUhEhcJJl" & _
"CkUhThUZQiFCEYTmSQhSEkNYkHYBIBhiTgTHiXYTmOUhYhwJgJGmJhuhsJoZi4bYbCSeYUl2GJIBYCh4DmDhThCEwkAiaQ0hKE5oEIVITiEaB6BqAofkiaZwmSHgXnYG" & _
"h4DuDpTjCDQiEgchAg0IpJBobodicKZqgaIAimmIguhcIZpEOMh4GGGIGhaKYrmkWpAmyLIrEqRo2DsGhWCGCgpCuQgNiEaosAsBYmGga5ChGCg6lcVANAEgI")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exTreeGlyphCollapsed,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exTreeGlyphExpanded,&H2000000)
With .FrontFace.CreateTree()
.ExpandOnDblClick = True
.ItemPadding = 16
.HeaderVisible = False
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLinesInside
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.Columns.Add("Def").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.Items.ToString = "Root 1(Child 1,Child 2),Root 2(Child 3,Child 4)"
.get_ItemByIndex(3).Expanded = True
End With
.EndUpdate()
End With
|
|
102
|
How can I use the ToString property
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.Columns.ToString = "Column 1,Column 2,Column 3,Column 4"
.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
End With
End With
|
|
101
|
How can I use the Background property
With Extreecube1
.BeginUpdate()
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn")
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H1000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250))
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250))
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255))
.TexturePicturePath = ""
With .FrontFace.CreateCalendar()
.Date = #1/1/2016#
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = .MinMonthX
.MaxMonthY = .MinMonthY
End With
.EndUpdate()
End With
|
|
100
|
How can I display two lists of radio-buttons
' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub Extreecube1_FaceTreeStateChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeStateChanged
With Extreecube1
With .FrontFace.FaceTree.get_ItemByIndex(Item)
Debug.Print( "State" )
Debug.Print( .get_State(0) )
End With
End With
End Sub
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.HeaderVisible = False
.ItemPadding = 16
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.Columns.Add("Radio").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Group A")
With .Items
With .Add("Radio <b>1")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
End With
With .Add("Radio <b>2")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
.set_State(0,1)
End With
With .Add("Radio <b>3")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
End With
End With
.Expanded = True
End With
With .Add("Group B")
With .Items
With .Add("Radio <b>1")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
End With
With .Add("Radio <b>2")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
End With
With .Add("Radio <b>3")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
.set_State(0,1)
End With
End With
.Expanded = True
End With
End With
End With
End With
|
|
99
|
How can I display a list of check-boxes
' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub Extreecube1_FaceTreeStateChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeStateChanged
With Extreecube1
With .FrontFace.FaceTree.get_ItemByIndex(Item)
Debug.Print( "State" )
Debug.Print( .get_State(0) )
End With
End With
End Sub
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.HeaderVisible = False
.ItemPadding = 16
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.Columns.Add("Check").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
.Add("Check <b>1").set_HasCheckBox(0,True)
.Add("Check <b>2").set_HasCheckBox(0,True)
With .Add("Check <b>3")
.set_HasCheckBox(0,True)
.set_State(0,1)
End With
.Add("Check <b>4").set_HasCheckBox(0,True)
End With
End With
End With
|
|
98
|
How do I get the selected caption
' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub Extreecube1_FaceTreeSelectionChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree) Handles Extreecube1.FaceTreeSelectionChanged
With Extreecube1
Debug.Print( "Value" )
Debug.Print( .FrontFace.FaceTree.Value )
Debug.Print( "Caption" )
Debug.Print( .FrontFace.FaceTree.Caption )
End With
End Sub
With Extreecube1
.TexturePicturePath = ""
With .FrontFace
With .CreateTree()
.ItemPadding = 20
.Columns.Count = 5
.HeaderVisible = False
.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
End With
End With
End With
|
|
97
|
How do I get the selected value
' FaceTreeSelectionChanged event - Notifies that the user selects a new item/column into a face of tree type.
Private Sub Extreecube1_FaceTreeSelectionChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree) Handles Extreecube1.FaceTreeSelectionChanged
With Extreecube1
Debug.Print( "Value" )
Debug.Print( .FrontFace.FaceTree.Value )
Debug.Print( "Caption" )
Debug.Print( .FrontFace.FaceTree.Caption )
End With
End Sub
With Extreecube1
.TexturePicturePath = ""
With .FrontFace
With .CreateTree()
.ItemPadding = 20
.Columns.Count = 5
.HeaderVisible = False
.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
End With
End With
End With
|
|
96
|
How can I add buttons on the face
' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub Extreecube1_FaceTreeButtonClick(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeButtonClick
With Extreecube1
Debug.Print( Item )
Debug.Print( Column )
End With
End Sub
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.ItemPadding = 16
With .Columns.Add("Buttons")
.FormatColumn = "1 index `A-Z`"
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasButton,True)
End With
.Items.Count = 4
End With
End With
|
|
95
|
How do I programmatically selects a date (method 2)
With Extreecube1
With .FrontFace.CreateCalendar()
.Value = "Jan 21"
End With
End With
|
|
94
|
How do I programmatically selects a date (method 1)
With Extreecube1
With .FrontFace.CreateCalendar()
.Date = #1/1/2001#
.SelDate = .Date
End With
End With
|
|
93
|
How can I display a hyperlink element
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Extreecube1_AnchorClick(ByVal sender As System.Object,ByVal Face As exontrol.EXTREECUBELib.FaceEnum,ByVal AnchorID As String,ByVal Options As String) Handles Extreecube1.AnchorClick
With Extreecube1
Debug.Print( Face )
Debug.Print( AnchorID )
Debug.Print( Options )
End With
End Sub
With Extreecube1
With .FrontFace.CreateTree()
.ShowSelection = False
.HeaderVisible = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.Items.ToString = "<a A1\;options1>Item 1</a>,<a A2\;options2>Item 2</a>"
End With
End With
|
|
92
|
Can I display image and multiple-lines items
Dim s
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.set_HTMLPicture("DriveC","c:\exontrol\images\zipdisk.gif")
.set_HTMLPicture("DriveD","c:\exontrol\images\auction.gif")
.set_HTMLPicture("DriveE","c:\exontrol\images\colorize.gif")
With .TopFace
.RelativeMargins = "0,32,0,0"
With .CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.ItemPadding = 24
.HeaderVisible = False
.ShowSelection = True
.SelBackColor = Color.FromArgb(240,240,240)
.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Storage")
.Divider = 0
.Bold = True
.Selectable = False
End With
With .Add("Choose a drive to see what's taking up space.")
.Selectable = False
.set_SingleLine(0,False)
With .Items.Add("<img>DriveC:64</img>")
.Height = 68
.set_BackgroundExt(0,"none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>LROG (C:)<br>58.7 GB used out of 150 GB")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"39%")
End With
With .Items.Add("<img>DriveD:64</img>")
.Height = 68
.set_BackgroundExt(0,"none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>System (D:)<br>112 MB used out of 144 GB")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"1%")
End With
With .Items.Add("<img>DriveD:64</img>")
.Height = 68
.set_BackgroundExt(0,"none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>Work (E:)<br>53.0 GB used out of 635 GB")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"8%")
End With
With .Items.Add("<img>DriveE:64</img>")
.Height = 68
.set_BackgroundExt(0,"none[(76,4,100%-76,100%-8)](client[text=``],bottom[16,back=RGB(204,204,204)](left[0%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExtWordWrap,True)
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,"<fgcolor=000000>DVD RW Drive (G:)<br>0.0 GB used out of 0.0 GB")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"0%")
End With
.Expanded = True
End With
With .Add("Save Locations")
.Divider = 0
.Bold = True
.Selectable = False
End With
With .Add("Change where your apps, documents, music, pictures and videos are saved by default.")
.Selectable = False
.set_SingleLine(0,False)
With .Items.Add("New apps will save to:")
.Selectable = False
With .Items.Add("Drive C")
.Selectable = False
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
.set_State(0,1)
s = .get_SplitCell(0)
.set_Value(s,"Drive D")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1234)
s = .get_SplitCell(s)
.set_Value(s,"Drive E")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1234)
End With
.Expanded = True
End With
With .Items.Add("New documents will save to:")
.Selectable = False
With .Items.Add("Drive C")
.Selectable = False
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
s = .get_SplitCell(0)
.set_Value(s,"Drive D")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1235)
.set_State(s,1)
s = .get_SplitCell(s)
.set_Value(s,"Drive E")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1235)
End With
.Expanded = True
End With
With .Items.Add("New music will save to:")
.Selectable = False
With .Items.Add("Drive C")
.Selectable = False
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1236)
s = .get_SplitCell(0)
.set_Value(s,"Drive D")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1236)
.set_State(s,1)
s = .get_SplitCell(s)
.set_Value(s,"Drive E")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1236)
End With
.Expanded = True
End With
With .Items.Add("New pictures will save to:")
.Selectable = False
With .Items.Add("Drive C")
.Selectable = False
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1237)
s = .get_SplitCell(0)
.set_Value(s,"Drive D")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1237)
.set_State(s,1)
s = .get_SplitCell(s)
.set_Value(s,"Drive E")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1237)
End With
.Expanded = True
End With
With .Items.Add("New videos will save to:")
.Selectable = False
With .Items.Add("Drive C")
.Selectable = False
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1238)
s = .get_SplitCell(0)
.set_Value(s,"Drive D")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1238)
.set_State(s,1)
s = .get_SplitCell(s)
.set_Value(s,"Drive E")
.set_HasRadioButton(s,True)
.set_RadioGroup(s,1238)
End With
.Expanded = True
End With
.Expanded = True
End With
End With
.EnsureVisibleItem(0)
End With
End With
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exTopFace)
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
.EndUpdate()
End With
|
|
91
|
How can I use the BackgroundExt/BackgroundExtValue properties
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .BottomFace
.RelativeMargins = "0,32,0,0"
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Battery Saver")
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
With .CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.ItemPadding = 24
.HeaderVisible = False
.ShowSelection = False
.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Overview")
.Divider = 0
.Bold = True
End With
With .Add("Batter level (charging):")
.set_SingleLine(0,False)
With .Items.Add("")
.set_BackgroundExt(0,"none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"65%")
.set_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(0,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
End With
.Expanded = True
End With
With .Add("Estimated time to full charge:")
With .Items.Add(0.15125)
.set_FormatCell(0,"((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')")
.Height = 24
End With
.Expanded = True
End With
With .Add("Battery Saver")
.Divider = 0
.Bold = True
End With
With .Add("Extends battery life by limiting background activity and push notifications. ")
.set_SingleLine(0,False)
End With
With .Add("Batter saver is currently:")
.Enabled = False
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,2)
.set_FormatCell(0,"state = 1 ? `On` : `Off`")
.Enabled = False
End With
.Expanded = True
End With
.Add("Battery Saver is off while charging. Choose, when battery saver turns on automatically and how it affects your system.").set_SingleLine(0,False)
With .Add("<c>Battery Saver Settings")
.set_SingleLine(0,False)
.set_HasButton(0,True)
End With
End With
End With
End With
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exBottomFace)
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
.EndUpdate()
End With
|
|
90
|
How can I change the visual appearance for check and radio buttons
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 44
.CheckBoxHeight = 20
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIU" & _
"GJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUI" & _
"tlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgW" & _
"X4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1" & _
"noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6A" & _
"ogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwB" & _
"wJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC")
.Add(2,"gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRi" & _
"GDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5" & _
"YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFO" & _
"GIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJIS" & _
"y0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmd" & _
"x1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA==")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H1f0f0f0)
.RadioButtonWidth = 23
.RadioButtonHeight = 23
With .VisualAppearance
.Add(3,"gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPzi" & _
"Lp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4" & _
"rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBE" & _
"OJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJk" & _
"kkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUY" & _
"g6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLF" & _
"aJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA=")
.Add(4,"gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIY" & _
"W5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBp" & _
"cG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFO" & _
"aJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYV" & _
"mOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkN" & _
"hImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkC" & _
"wKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI" & _
"+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgY" & _
"c4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=" & _
"=")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState0,&H3000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState1,&H4000000)
With .RightFace
.RelativeMargins = "0,32,0,0"
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Table mode")
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
With .CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.ItemPadding = 24
.HeaderVisible = False
.ShowSelection = False
.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Make windows more touch-friendly when using your device as a table")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,0)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("When I sign in")
.set_SingleLine(0,False)
With .Items.Add("Automatically swicth to table mode")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
End With
With .Items.Add("Go to the desktop")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
End With
With .Items.Add("Remember what I used last")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
.set_State(0,1)
End With
.Expanded = True
End With
With .Add("When this device automatically switches table mode on or off")
.set_SingleLine(0,False)
With .Items.Add("Don't ask me and dont' switch")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
End With
With .Items.Add("Always ask me before switching")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
.set_State(0,1)
End With
With .Items.Add("Don't ask me and always' switch")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
End With
.Expanded = True
End With
With .Add("Hide app icons on the taskbar in table mode")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,0)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
End With
End With
End With
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exRightFace)
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
.EndUpdate()
End With
|
|
89
|
How can I display more group of radio-buttons
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .LeftFace
.RelativeMargins = "0,32,0,0"
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Multitasking")
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
With .CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.ItemPadding = 24
.HeaderVisible = False
.ShowSelection = False
.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Snap")
.Divider = 0
.Bold = True
End With
With .Add("Arrange windows automatically by dragging them to the sides of corners of the scree")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,1)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("When I snap more than one window, automatically adjust the size of the windows")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,1)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("When I snap a window, show what I can snap next to it")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("Virtual desktops")
.Divider = 0
.Bold = True
End With
With .Add("On the taskbar, show windows that are open on:")
.set_SingleLine(0,False)
With .Items.Add("Only the desktop I'm using")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
.set_State(0,1)
End With
With .Items.Add("All desktops")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
End With
.Expanded = True
End With
With .Add("Pressing ALT+TAB, show windows that are open on:")
.set_SingleLine(0,False)
With .Items.Add("Only the desktop I'm using")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
.set_State(0,1)
End With
With .Items.Add("All desktops")
.Height = 24
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1235)
End With
.Expanded = True
End With
End With
End With
End With
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exLeftFace)
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
.EndUpdate()
End With
|
|
88
|
How can I use images with the control
' FaceTreeButtonClick event - Notifies that a cell of button's type has been clicked.
Private Sub Extreecube1_FaceTreeButtonClick(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeButtonClick
With Extreecube1
Debug.Print( "FaceTreeButtonClick" )
End With
End Sub
' FaceTreeStateChanged event - Notifies that a cell changes its state into a face of tree type.
Private Sub Extreecube1_FaceTreeStateChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer,ByVal Column As Integer) Handles Extreecube1.FaceTreeStateChanged
With Extreecube1
Debug.Print( "FaceTreeStateChanged" )
End With
End Sub
Dim s
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.set_HTMLPicture("P1","c:\exontrol\images\zipdisk.gif")
.set_HTMLPicture("P2","c:\exontrol\images\auction.gif")
.set_HTMLPicture("P3","c:\exontrol\images\colorize.gif")
.set_HTMLPicture("P4","c:\exontrol\images\auction.gif")
With .FrontFace
.RelativeMargins = "0,32,0,0"
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<c><font ;18>Notifications")
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceBackgroundExt,"bottom[2],bottom[4,back=RGB(0,0,0)]")
With .CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exNoLine
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.ItemPadding = 24
.HeaderVisible = False
.ShowSelection = False
.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Choose your quick actions")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 48
s = 0
.set_Value(s,"<c><img>P1</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
.set_Value(s,"<c><img>P2</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
.set_Value(s,"<c><img>P3</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
.set_Value(s,"<c><img>P4</img>")
.set_CellWidth(s,48)
.set_HasButton(s,True)
s = .get_SplitCell(s)
End With
.Expanded = True
End With
With .Add("Show me tips about Windows")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,1)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("Show app notifications ")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,1)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("Show notifications on lock screen")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("Show alarms, reminders and incomming VOIP calls on the lock screen")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,1)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
With .Add("Hide notications while presentation")
.set_SingleLine(0,False)
With .Items.Add("")
.Height = 24
.set_HasCheckBox(0,True)
.set_State(0,0)
.set_FormatCell(0,"state = 0 ? `Off` : `On`")
End With
.Expanded = True
End With
End With
End With
End With
.EnsureVisibleFaceMargin = 0
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exFrontFace)
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
.EndUpdate()
End With
|
|
87
|
How do I display a progress bar
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.ItemPadding = 16
With .Columns.Add("Pos")
.FormatColumn = "1 pos ``"
.Width = 8
End With
.Columns.Add("Progress").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("")
.set_BackgroundExt(1,"none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"25%")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
End With
With .Add("")
.set_BackgroundExt(1,"none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"15%")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exBackColorExt,65280)
End With
With .Add("")
.set_BackgroundExt(1,"none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"75%")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
End With
With .Add("")
.set_BackgroundExt(1,"none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"85%")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
End With
With .Add("")
.set_BackgroundExt(1,"none[(2,2,100%-4,100%-4)](top[24,text=`10%`],bottom[6,back=RGB(204,204,204)](left[10%,back=RGB(0,120,215)]))")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt,"5%")
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt2,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exTextExt,.get_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exClientExt))
.set_BackgroundExtValue(1,exontrol.EXTREECUBELib.IndexExtEnum.exIndexExt4,exontrol.EXTREECUBELib.BackgroundExtPropertyEnum.exBackColorExt,255)
End With
End With
End With
End With
|
|
86
|
I have a column of check box type, the question if I can automatically display on/off when user changes the check's state
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 29
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQ" & _
"IAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQS" & _
"CmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIX" & _
"oDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIB" & _
"wU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRw" & _
"SkSYhDi0ERCFAECAg")
.Add(2,"gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDa" & _
"ChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAu" & _
"EcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiA" & _
"wZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkk" & _
"CaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhp" & _
"rBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDG" & _
"K4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfG" & _
"ADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+B" & _
"vBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4Fw" & _
"AIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==")
.Add(3,"gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmG" & _
"AYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhy" & _
"FYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkEN" & _
"gKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMh" & _
"GegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg" & _
"/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8" & _
"TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB" & _
"+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovB" & _
"IhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8" & _
"ZI1hEChBQAggI")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
With .FrontFace.CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Partial Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
.FormatColumn = "`Check <b>` + 1 rpos `` + '</b> ' + (state=0 ? `<off 4>(off)` : (state=1 ? `<off 4>(on)` : ``))"
.PartialCheck = True
End With
.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
With .get_ItemByIndex(1)
.Items.Count = 3
.Expanded = True
.set_State(0,1)
End With
With .get_ItemByIndex(2)
.Items.Count = 3
.Expanded = True
.Items.Item(1).set_State(0,1)
End With
End With
.EndUpdate()
End With
|
|
85
|
How do I print the control
With Extreecube1
With .FrontFace.CreateCalendar()
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = 1
.MaxMonthY = 1
End With
' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
With New exontrol.EXPRINTLib.exprint()
.PrintExt = Extreecube1
.Preview()
End With
End With
|
|
84
|
How can I get the caption from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
With Extreecube1
Debug.Print( .FrontFace.FaceTree.get_CaptionFromPoint(-1,-1) )
End With
End Sub
With Extreecube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
With .FrontFace.CreateTree()
.ItemPadding = 16
.HeaderVisible = False
.ForeColor = Color.FromArgb(255,255,255)
.Items.ToString = "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place " & _
"<b>D,<sha \;\;0><font \;18>Place <b>E"
End With
End With
|
|
83
|
How can I get the value from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
With Extreecube1
Debug.Print( .FrontFace.FaceTree.get_ValueFromPoint(-1,-1) )
End With
End Sub
With Extreecube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
With .FrontFace.CreateTree()
.ItemPadding = 16
.HeaderVisible = False
.ForeColor = Color.FromArgb(255,255,255)
.Items.ToString = "<sha \;\;0><font \;18>Place <b>A,<sha \;\;0><font \;18>Place <b>B,<sha \;\;0><font \;18>Place <b>C,<sha \;\;0><font \;18>Place " & _
"<b>D,<sha \;\;0><font \;18>Place <b>E"
End With
End With
|
|
82
|
How can I get the column from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
With Extreecube1
Debug.Print( .FrontFace.FaceTree.get_ColumnFromPoint(-1,-1) )
End With
End Sub
With Extreecube1
With .FrontFace.CreateTree()
.FullRowSelect = True
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
.Items.Count = 4
End With
End With
|
|
81
|
How can I get the item from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
With Extreecube1
Debug.Print( .FrontFace.FaceTree.get_ItemFromPoint(-1,-1) )
End With
End Sub
With Extreecube1
With .FrontFace.CreateTree()
.FullRowSelect = True
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.Columns.Add("A").FormatColumn = "0 pos `A-Z`"
.Columns.Add("B").FormatColumn = "0 pos `B-Z`"
.Columns.Add("C").FormatColumn = "0 pos `C-Z`"
.Columns.Add("D").FormatColumn = "0 pos `D-Z`"
.Items.Count = 4
End With
End With
|
|
80
|
How can I get the value from the point (calendar's date)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
With Extreecube1
Debug.Print( "Date:" )
Debug.Print( .FrontFace.FaceCalendar.get_ValueFromPoint(-1,-1) )
End With
End Sub
With Extreecube1
With .FrontFace.CreateCalendar()
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = 1
.MaxMonthY = 1
End With
End With
|
|
79
|
How can I get the date from the point (calendar's date)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
With Extreecube1
Debug.Print( "Date:" )
Debug.Print( .FrontFace.FaceCalendar.get_DateFromPoint(-1,-1) )
End With
End Sub
With Extreecube1
With .FrontFace.CreateCalendar()
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = 1
.MaxMonthY = 1
End With
End With
|
|
78
|
How can I get the face from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extreecube1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extreecube1.MouseMoveEvent
With Extreecube1
Debug.Print( "Face:" )
Debug.Print( .get_FaceFromPoint(-1,-1) )
End With
End Sub
With Extreecube1
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
End With
|
|
77
|
Does your control support partial-check feature
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 29
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQ" & _
"IAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQS" & _
"CmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIX" & _
"oDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIB" & _
"wU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRw" & _
"SkSYhDi0ERCFAECAg")
.Add(2,"gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDa" & _
"ChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAu" & _
"EcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiA" & _
"wZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkk" & _
"CaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhp" & _
"rBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDG" & _
"K4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfG" & _
"ADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+B" & _
"vBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4Fw" & _
"AIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==")
.Add(3,"gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmG" & _
"AYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhy" & _
"FYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkEN" & _
"gKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMh" & _
"GegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg" & _
"/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8" & _
"TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB" & _
"+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovB" & _
"IhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8" & _
"ZI1hEChBQAggI")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
With .FrontFace.CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Partial Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
.FormatColumn = "`Check <b>` + 1 rpos ``"
.PartialCheck = True
End With
.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
With .get_ItemByIndex(1)
.Items.Count = 3
.Expanded = True
.set_State(0,1)
End With
With .get_ItemByIndex(2)
.Items.Count = 3
.Expanded = True
.Items.Item(1).set_State(0,1)
End With
End With
.EndUpdate()
End With
|
|
76
|
I am using the Items.ToString, just wondering if I can use it for multiple columns
With Extreecube1
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
.HeaderVisible = False
.Columns.Count = 4
.Items.ToString = "1;2;3;4,5;6;7;8,9;10;11;12,13;14;15;16,17;18;29;20,21;22;23;24,25;26;27;28,29;30;31;32"
End With
End With
|
|
75
|
How can I show the item on multiple-lines
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 12
With .Columns.Add("<c><b>Items")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellSingleLine,False)
End With
With .Items
.Add("Short")
.Add("The eXTreeCube library provides fish-eye representation / cube map texturing of different components such as calendar, multiple" & _
" - columns tree view and so on. Cube map texturing is a form of environment texture mapping that uses a viewing direction (3D ve" & _
"ctor) to map into a view plane the six 2D textures arranged like the faces of a cube. ")
.Add("Short")
End With
End With
.EndUpdate()
End With
|
|
74
|
How can I change the visual appearance for the control's radio buttons
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.RadioButtonWidth = 23
.RadioButtonHeight = 23
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABNoCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1BKmHZDQRAApqXIjVDAYIQSSBUlkHScRijDICXSIIQmbajIZoJCiVZ3VaGETnRQlJQuEgOHZwDAsBwPBqBPzi" & _
"Lp4WzmGqhR5ichYHI8RYVTKXYy3DxZW7OO4PQjQM7hHL8fwlfTuagyGpZOxjP5cdrYHw2J7NUzJeDxbhrTb6Zh7ILVX7TNIwXAdD4PIKmNryORsC4XG5pZ7oOh6Lo3G4" & _
"rhWZI2nOL4eBON4LkeRJvHWDxvB6G5Lmac56D0OY3hMU5bm6bRoiAeA9DMX5riydJ+D8P4vEeO4xkEcQfCYBZrHKXgzlme4BmCB4eAUZRbAaAZeGsDg4EYCYEmERoaBE" & _
"OJaiMIY2EIXo2FYFYHmIBp1j8OoQhcYZNDiIgIiYE4Jl2BAlj0agOmiKgyH6Xo2jECYGE8WJmDODpehgFgZEIXI3DyfoQmQSQWEaEZkgkJhKhKZA2hmSxCEyGREnSFJk" & _
"kkVhWwCCAthFKRjiIXhpiXOhihGYwJESSRCFuIxqGoPomkmDhuhWT45kSXYcl8UxdAkbgPBaMhTD0JApj4foRBoaJ5iqAxdmadhzDcWxpgIf4bhsY4Gg6GYYDcegNGUY" & _
"g6VMIsBBmNg8CmRwuCOJBgBaAgXh6JQzl6JocE+OQQn+KpqkqNouivgQiiaLJPHaMZYHwQAHHIdRrA6ep2jMbYqx2RxzmqBpajOLxOnacYPHcHZnHGOlynmbo0jSbRLF" & _
"aJoJlyNpplyKArhcGZcgMWpGjCXo4liM4ukiHpngkeJojiTZphmLIDG2Nwak2N4vEaAJsj2bpLgWFxlGGExOn4dgvHOMpxGgbwkAyaxEFCFAEICA=")
.Add(2,"gBFLBCJwBAEHhEJAADhABCEMACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADINI0R7UAABPBIMSjAamHZDQRAApqXIjVaAhySQKksg6TiMUYZAbaRBCEzbUZDNBIopUQLVU5ABbUEqBIipIrEQLHNwPBaEYZiOIY" & _
"W5re4cfzIMhyLI8Ob3CqHZhleTwTjWGYvSp1dBbTQ2QyVRanMDqOjsKxmW5Gbh5NhfHY8dxnDKcZ5jGSudrjEZ9VpmG74JzeEbjRj8chxT4PDxnBK/YDSWgdLo8VzXBp" & _
"cG2MY4maXxzFKQRxHgOQeC8H4TkuZhzHoNR9kaXpNnONZsGGMo9B4A5bmuFZ7n4Pw/i+XpFmSVB/mAB41hsQJfBYOJXgGXAHm4CoCmCtYAHqXRWBGWB/F2Z5UnaAxZFO" & _
"aJ2DuTpzHCOQ5gwcg8veDBjlCaA0mGBg6BYapcEONZiHYHADg4MoKE+U4QkEIINAISAig4Y44moPIPA4EpoHSBoOngNgyDiW5jCGShCF+VouA2EQNhKHBMg+Y5pFYPYV" & _
"mOQxYiAD4kEgNZRHSTokCWax4A4KA2DaDglGkUhYhoZRph4DYZB6NAllEbwOmgKhEhqJ4JjIa4ek8c48mGAoflcAQJhITxaBYCoHEuGZmHuIooioIgKgWJIUCWXh4hkN" & _
"hImkM4JloMh6iaJRzhySAkCkVhFhUd4QhMJomD0KtvBCCJMGocouh6KIKiifoKlodAmAAOgrgYVoVD7Y5AlMJhDAqPoLh6D4DkCYosicSoYkkQhcmMapOD6LQKkqHgkC" & _
"wKhwmILpHFqSJ7jaTZbHYBw1lCFwwnEcAqgOUoUGSa5DxkLQGHsVhWhQRJKkmFYkBuaI1lgdBtlMdZKi6LoKnSZQwggOp+kGJpjiufIDiyGQXCiYZCmyJxeAQYQi0YYI" & _
"+lieoqmmKwpHIdoskIGQGFWSg8DIBx6GCQ4AAYXhHjlo5fCqNpPjYRJ/kucwMkcMpM9GMwqk2Tx3AGa4AnIVpkm2N5cAgcJvk2XIsjGeYlF53hKk2dAnEGJR7nCdxlgY" & _
"c4ajmEplk4NYNGcWpKiYRx5k4dYhC0RxggsTpXAGQA3jaBoEmuUIuFuCo4DoNoDHqShwCKXYPCSXYzmOMx6lwOwZoawrgkE0HwBY1xegdE2MMWQhBOhoEUBIQAgCAgA=" & _
"=")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exRadioButtonState1,&H2000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 12
With .Columns.Add("<c><b>Radio")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasRadioButton,True)
End With
.Items.ToString = "Radio 1,Radio 2,Radio 3,Radio 4"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
73
|
How can I change the visual appearance for the control's check boxes (6)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 16
.CheckBoxHeight = 16
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABKMGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9Hp" & _
"viMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8soBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gW" & _
"YJ2F4FwdhsJpuBQfRiAWdQJDqUQUCUASAgA==")
.Add(2,"gBFLBCJwBAEHhEJAADhABV0GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IACxfFoWRrnaA5QoGM4EDTRYADCKsaQ/J0LcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7C" & _
"cDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDx" & _
"QjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBi" & _
"eYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgW" & _
"mUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCE4tBEQhQBAgI=")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A,Check B,Check C,Check D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
72
|
How can I change the visual appearance for the control's check boxes (5)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 24
.CheckBoxHeight = 24
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABO8GACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7E" & _
"MRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fwnC59YLheK5Li9Q4jLbMdByXLMDx" & _
"HiuRJpnWOw7k6RxrjuM5pj+PA+C8H4TkuZpznoPQ+H8B4rlubp3nsfYfA+H5Tl2cp6n4Pw+C+P5rnucx/B+aAFmqAAgCgFZlHSVZICYCoCmCSA2A6A5hAgPZTGWIQYFY" & _
"FoFmCVsjj2YZIHYHoHmICIGCKCJiEiCZBGMTJjiIKoJGKSI2C6CBOjiRYSEITp4lWIgyhiOJmDqDpYHiIYgDqEITi0ERCFAECAg==")
.Add(2,"gBFLBCJwBAEHhEJAADhABA4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKQobh2A42SDAcgSF" & _
"IADRfFoWmxTdAcYSCGSZZrGOiQADIM40R7UAABPBNKR1DZ+KxAB76cheIIgAhCJQGSYZaDqOQyRhkBTqEIITZsRoNUIiRStayuDCLTwoSooXayfjHYAwOBYHgmC4NQ7E" & _
"MRxLAmOw1ZKPQjgDDvDilM4tS7MMxzLK8cx3FjqaAyWhQTgePZNU7UNLwPRMCb3LqvbBsOxbHqma5tWjVYDwPZ9cz3Pq9biAG57fq7ZLEYziOR4Hg+JzFbDVKq0aYjA5" & _
"RlCU5mm8OR6l6Q53pqaAkgQXgBBMeRmGabhtjsTAeGuaZsm+aQMDwfwvAuJYch2dBsj0XJWkqHIZnMCIOEMBICHiXwHFWVx+A+V5pj4eRGGefJvDcC4WjyXArEWF4OAy" & _
"AgghYCYsDAT5oHYHoHmGU5sncPANGKAA+HiXJyi4IA/g8U4klQfAeDeVIdgqYxIlWaoNGMQ5gnAOIOHMIIQg4IZonSEIBB0OIInCEAjGgaY6GCJIJDYQIRiEOBVmEN5L" & _
"EGHhOggIx5F4WoKmKWI9lOCgdAkahZhaZhIH4QoRAMCQaE2GJmFmFhQgUJQZgoShwiSSY2HaBxllmFZqFcJ5JnYfofmgCgGgKIJoCeKYWiEKIKCaCogBqd4oneI5pAoR" & _
"oSiSaRKFaFolmkVwFg0M4OgodoYieagKgaFA6moRhJAkO5qgaCJKGKapKjaLhhmmNoAmoQhOjQRQJEAQCAg==")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A,Check B,Check C,Check D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
71
|
How can I change the visual appearance for the control's check boxes (4)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 32
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABfICg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
.Add(2,"gBFLBCJwBAEHhEJAADhABcoFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/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+QvhrHoHERggR4A2GKMQH4FwBD0CgAgAAkAFhAEwEYAoYAiBeEUBEAYEBRI8EUCIcAVAEDQG0PcZYIBVgSHEAEGojB4j1AeFkHQ+wsBDBQGQTwy" & _
"BdDREMAwNAjQhh+BoMYZA1wNhjEIG8QwwROAmEGCgBQCBgBQHKBoUYDQqiNEGNgGgowQjZA0MMHAZwWBgGsD4I4QBqAfDGJAMgrhAiRBGKQQgPRJAyB8EkJIWQUglGOB" & _
"gZYFgGBYAIDsACmRgjgH0B4EYnQljIBiJwOwRh8DZA2CIGAOwDhRGEDQQwLAulGACJwZYOQ2gtDKMQWglwpDeC6AoUIJgPBiGAAACgggoBDAUPEHgJwShIGwDsEYtBnA" & _
"JHiBoEQxRgCqAoCkeAbBUAhE2C8EwxBcibBkO0TgjxQjIBkIMIATwDCuGAB0QQEAJAtEKDgUQHgBi0DsJ0SI9AygkAwM0KQ4wIBcAUOEfQPRDgSB8BoZIrg1jNFSP0G4" & _
"KACCzA4GMHgWqnjwHYAMDATgDhDHYMATokhpA9AaEAYoFwhDkHmAcHIogUBHAANsDIpR+B0EoEEbIRxUgAH+KMegihIDSB0E2X44BNgRFmAEZINhYhYBQIQYoDgUCFHs" & _
"IgG1hQZhmDgIwCIoRwA7CQGMdYTxniVCAD4OQGhOiHDAJ4BowQSAFAIIAGAcxHBBGGEwRYVB3gfBmDAOoURIi0BsAYQA0KlA0DMA0IImQrhqH6F4VgFRHCxCtLYKwxgy" & _
"hYYGFgNYjQQidCCICllpJUjVAUOwLwxQ2gwEwDUcwmBrh6H4F4BY6A02kAaNjMYYADBrH6IkF4FVPiDGgEgAYWwkUIGAGIYoWQpDuDkMUVARwCjgDMMMAIoRBAuAKIkN" & _
"gHQyBEEIJACBAQA==")
.Add(3,"gBFLBCJwBAEHhEJAADhABQ4Fg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRijDIAbAZAYhCZqaKhWgkKI/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" & _
"QuFFBaDOASPcAALgChUDyB4cYtgiiOEyCcEopRCCvEsFIKomQEjnB4L8YgQBfgWEEMgPADhojaDsEcaIlBFiDBqEcRgQQ4ArEOPAfYQhUjmCsMsHIYwShmDmAoDYsRqj" & _
"xAUAkHwPwDjYH2DsEopA9AaECIoFwhRkjmAcHIUAUBHABFsDMJY+B0goEGLIOozhoj/B2CcPg7hPATGdduAALgiiEBsBkd4Fg2iUCEPsG4RxKDDEoMIGARhDiAHaBcZ4" & _
"rbeBUBQPkYo+gFAdE+AwKAEQhjGEUE8aQ1QYBQFCJwTgww1BDEaAEVQMwjBgGoBkSghhIjSBUEkJI6QagpFIHQPgZgojaBsDgIw8BvBgHYAG3QeAUhFFSMQfonwxg2D6" & _
"E8ZQcwnjLG6DYCgjoAitB0IEKIyxigUA8DQZoq5tgiBICoIoUQXDjDgG4BouhFZdBQJEDYQw0BsEsMEawRAkBJACQEA==")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A,Check B,Check C,Check D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
70
|
How can I change the visual appearance for the control's check boxes (3)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 32
.CheckBoxHeight = 29
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABQACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonefApC2BQglWHIKAAPx/D4FoyHgTZsAIXwYAWYR8kMR5YAAP4PmOdZ7H8X54AoDhziASAaAiAoeAecZ+CQ" & _
"IAID4GhwGEF5eBOAphHgZgbgiWQYHYB4CGICA2CSCpPnMYIjgEYZoiIFYDCGCIyCsNgKCCRgSgyHZ4FoKoNiGOJgDKDphEidg0giJEnDiDojBkFZXg+IxZCYGoLgMOQS" & _
"CmFBlCgOJZCmA4jDiCYJmSZw6FCEglheRhbA4ZZpgIV4ZCYV4+GeGhhniTghhsYAps+HBkGmTh0hmChpiId4PCSeQeHuHwnmmKhyg+aA3gYdohh2cxUhwCJNBIRZuiIX" & _
"oDGiJwOkyWR9nkPwoiKFA2G2YBznaHIlB0cxGBiAYfAONJUCgIBmlAFg6k0AhaioJ5OkMTIdi0axzEyHmEBIYJpDMCJanyDowiwQwyq0LBbB6Sowg6KwYmoMxI26GwIB" & _
"wU4Mj0GpgCOCI6BmG4mmYX4mG2a4GmCOAmhuFhfjmAALiKao5m6S4ml8bpNmKQBQgkFpzjSbg1koc44lYKQviKFp9j+TRrnsAZADALAXASQZwDwJp8xQc4uiSQ5xAwRw" & _
"SkSYhDi0ERCFAECAg")
.Add(2,"gBFLBCJwBAEHhEJAADhABZ8MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePwfA6fx7n2MIkBqM4REAB5vnOQpWCeAhnjACR9B4IoEC0OQMAGSZ0H2AxHmQAA/g+Y51n6AAgCgEZLDa" & _
"ChgmCUQkACAw8g4AJgjKEgNH6IQIEmYB/mAEhCAOBYZDMZIlA2TQSEQCheAGiwKDmTBiAWYYDCCaIWBOChijiMJ/DYXx4loNINBsQBdkWDpiCidgRg+YRYFoRANCMEAu" & _
"EcXhlHiVISAMTgSlwXh1mOSISE+CZhEiKgLCiQw5FYWYaleFpQBiA4PhOSJhHMJgYD4Yx3mKn5fDYCgwkiUQkiUaRigIYhoEkZZUASTRiHAIodCSWYKCaHgmFkBh0CiA" & _
"wZn6AYhGaUhcBiEhmkoEJQCOQBTiiTQjlwGZwDOE4oncXh5hmHIzGCIgMCkah0lMJYBFeMAHiyQRqmKMomiCY5wnoPUzFyuIMmIJh2ioXJqi6Ehkg0coEC6H7zHSUgkk" & _
"CaxA42ToDmydw7GCahygODQNCIVASgoGQ7GyWAyEeaA9n2GQkAsBgGjQKBqGmwxNiKHA7HATxjiSTgzGwaY6h2J5AGOiwfFkM4UkEHQPiWQhQisD5zFyHwKimcAWgZhp" & _
"rBQAA6AyAgVleHILlucAAj+KA5joDhjg0VhOBEPpwjkBgQD+H5wh2bACBmYBBlwAQPGOKJRH0DwTHiNpHjICgSjiLYkCUGrzk4ApUFoNRJjCBxBGQTwjgCOpPBsWRnDG" & _
"K4DAiMxDlKXp3ECRpFiuKgOh8AZODKcBqH0NR9GGdA+A6YxplMdRlHmPY4DsTRig2YXfECDg2lmJAjnCeQ8meOANwYwSBXEsDUeQZxdDxDgGwbY3QjjmHiKUcIwQnBfG" & _
"ADYZowR7B6E6E4MI2g1AUAsOkFwCwOhmECC0ZYkxzhhFME4egXQThHGkPUDoPwqtkE6E8LQaQJiHDiK4KYaBCiwFwOkaYVROhqXoIcdw9BzAcCKNAZg3Qbg2BsD0cY+B" & _
"vBPEWOUfIHgziVHMOMYwWQEAACGAEZYgg7gaGKCUXQ6hoD7F2JwW5txIhPHYBQTwwQljzD6AYW4zx6h9B+F8bo9h/AfDONUZwkhziJF8FwHALBaCTAwIEG4CASDfC4Fw" & _
"AIRRHuhBAOUUwAxoAQH6C0eACgDAeAMGoGgGREDPAiKAAIVwBgYA2AUZ4QgEAOEGMANwCwIjWCIEgJIASAg==")
.Add(3,"gBFLBCJwBAEHhEJAADhABT0MACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFIYRoAmCYZRnAYZIpjOZ5B" & _
"iKAwgQiHMbwTLjfyMACjH7nnJEEigNIxToOU4jFDGIAWArAZBEbTENBtBIUIRoCA6CgOCAYRa4AJTdL1Er2ex2G7WMpWURkHTUJgGN4BVbdeoxPi/b6wDA8CwXAaHXpf" & _
"baKYQ7brYaikchyLI8Tq9bDNIgADLoYADJIoCRqEyudKQcrXJakaZqOoaXo+W5VVzWLpDVo0XBdTiLAAzKDgA6bRqBSjgMjuIpcbABazPJTwPJcXxnGyMehyWJ47KoKZ" & _
"OkoNRTiIRoCDgCZXm+eA6m0dQQj8MRInCUY7CIVoCEAFZonePR+D6d57GESA1GcIoAA+X5fgW2oJh6QAlnMdZHlgFIogGXw3lQNB+AAA54n4PxflefgBgCXIyBIFgZmG" & _
"AYOBqAhKEgLZ5gOIQHgGfoAAkCAKBQZJIDiJBogqRwYjYGAZksGJFmGAogkiAgRgkIhohyfwgiOSIsGiCxkAGRBwhCRgZBYM4HGMWA+DeBJhEIBhOg+JAZEYQAaGUQhy" & _
"FYdZjEgfhKgiIQohWc4TggGRCFKGJkCkDBehmTpJiWTIWGCWRtl+CJkkcfIAhyZgphIdoLEaWZkHeHpmjkIhaggZp5HYORzCcMgCHWFIkDGQBviKZx4jQZIjkuKhFkEN" & _
"gKDCThJiAHR5kIXhykeeh2geFBGmqBBmiiaI6hQb4diiGYcF4PgqkYTJXCgApDDiCYbGmBw6hqIJZCGeo6hUBoZlgaovmOY5CkIPQsEqKoJh2J4RjQeYylkM5cm0NgMh" & _
"GegNH8JZImGE4BEeWpygiEJhiGDIGjeXATgaYgXG4SweGQGRugKOpqGSThTAQdA+hcCQuhsP5HjuVoPBkJQqhaZAXEsO52hkNYNGEcwCjmJAaCaew5HCBhOA8PpvJQDg" & _
"/iyMZmiMGYGv4dw4jGB5MlKRpwCEcwEhAKhcE4OhRisdwEhmSZHGyJwjGQTRMjcHZHmKXBUGuJxHniHwlkqXpzG8Oo+moWRKmgGRKC0BZzk2c/FmiUZkFGBohBuJQhH8" & _
"TgxjUB4ElUJwCDMRIRHuNBYhyd5WmuTJKECQYuEuCJhHWTYShQNhtm0M5zFmSpvFGbgvkgKI9DgXw8jcRwwm0GoCgEAxhoAWB0MwgQWi7EmOcMIpgnDwC4CcA4wh4gcB" & _
"+BUYYcROBPA0GkCYhw4iuCmDgEg1wWAwDmBQJwlw9ifD4OsTAcQLhDBmHQbg1gzBvCWNMegnQnhNGqHUDoXwujWHqAYLICAAAbCKDAOQ4BMD9GaFUUo2QYjzFcLcTovB" & _
"IhODuBoYoJxEBSHwP4JIrRyB5D8FcTI5x8jeEeJsco7xSC5HEG8S4DgEjnHaNQWIfRJheDaH8BgTgoB8EqFYMoFxPg/CeMUeovAMDBGKJkBgXxGgLHsH4R4QQpj7EyP8" & _
"ZI1hEChBQAggI")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState2,&H3000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A,Check B,Check C,Check D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
69
|
How can I change the visual appearance for the control's check boxes (2)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 44
.CheckBoxHeight = 20
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABJACg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3OyaN5EbbgZz9P7AMBwLA8EwXBqHYIU" & _
"GJGbhlbTnR7HMhvDIsPDnFqIZhmOZZXjlfh7T7KNByO6LcI3AiDagtWpNTpjf5dV7YNh2LY9UzXNq3bI1W5aUqyAZ9QQpeB0LILYDbRp/FzyO5NNrHG6dZ7oOh1doOUI" & _
"tlaP5lgcPA7hEJ47H8SD0l4LwfhOSJ9nOIh9DefBREMKYMDaX59nsVhvlKdBpCGfgIl+L43lGG5lH+YAGlWZw/EYOAVH8ZQXncdBJDwIJGkiGYDlmUh2BKABhEgVJpgW" & _
"X4BA4BxcAeWB1H8KJiAaSJJgiWZWAmVA0CEWIln8JYikWfZpCIXARE0fw3GMRpJnaCRYBGWg6gqI5HgoJxfkYCQFlkX5PhkFYyBAJIImGABpGOWQ1k8OxlAWfZ6BGJA1" & _
"noRQ+GQeQmEoX4kkkOheG2JQDjYUh+iMGJODUbBjHkbAzg6BxpH4bhsmOdZ6EEGAbmIAR/gSCZWkmfYShwYJYlOH5mnoBYvCSaBFnyDYhlcKAll2AwPAaSggCiWZaD6A" & _
"ogiEc4mBmBpYnePZxGMHw3lUeoGGUN5aH8NJpDoBgDgERg6GGFICh2d4GiWK5cngDgvHqWInG0cIfFyBwpjqLArkcTZVHWV5nGaNhxA6VoVicahajaNo9gUHI2nIdRwB" & _
"wJoOkSMJlFmKpWjWWY2HwPYwm2SxJHIe5sGsYpiGcXpHj6XYxA6NBFAkQBAIC")
.Add(2,"gBFLBCJwBAEHhEJAADhABB4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIxDFIsBxPFKCQChEZBUjKAwyDBIUzSD" & _
"IUBhZBIKI7hGa3NBwJAAUTRch0j4iCRQGiYZyHKcxMYgIYCUBkERtMw0GyERQhGb4DoGA4IBhFZQVVLsRBIDh2bbuG4LSrWdJ3Oy3KKiQy5cABPq/b6wDA8CwXAaHYRi" & _
"GDYThmF4dRQAG6RcTLWrPFqVZheGYua4CLBxRrINA0LD9DyHJKnaZkDgpUQGN5dTS4GwPQCN3xRWzUyBaQzJfAZV7Lbw3PadX4XRLHcLwfAXFqWaaNZLneh5DouDz3P5" & _
"YMuaRBicQ4nl6bpuBwKYRnuUY2jsfg9B0b43hOH5KjucQPnwOpMi+A4pnab5qB0a4znuf57n4f5gAeeJqC4R42mEcg5AoIRBnUfggkgLJiCaRA4AYEoEl+Y4AhcDpaFO" & _
"GIrBgDYyBwHICmIB5djge4hEilY8g0MotiUZICkMYB6AEIgYDYIh0g+Q5cm+CYjgOfJ6DuDZ2hSWggkESI6DCDJjCkFZDg0Yx4mYJYOmOVoiD8BQhlgfhEgwZRGBoJIS" & _
"y0IgqGoIpDhCJAVCUWQaFMY5fAkYgBD+D5TmyYAlENPBnCsRhFkoYYcmYMAAmkLRHDmGZ9h2Rw4BkeBnFmeZWHSGIYHeQZuHoHonjGboamaVwYmIJwEEYbZNiCaRKAmd" & _
"x1hyNZChWIQpjcKZYHAKQ6FqHIoh0Vp6hkcBqgoAodikKgmi2LYnmsCohkAXoXkqMojgMIpKh2Gw6lEFAlAEgIA==")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 16
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A,Check B,Check C,Check D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
68
|
How can I change the visual appearance for the control's check boxes (1)
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.CheckBoxWidth = 37
.CheckBoxHeight = 15
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj" & _
"6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLEzsXi8FwvK67cr2fp/YBgOBYHbdcJ5Oxk" & _
"bouPC7Sa0AKKYywGRNFijV4se7MHzzLKHXxZa6UNJhGhaHomCYkYDILhxfDMGx7GqvbBsOxPXj2DZLW7cNIyDS3NyfLqzcBwOZZdrPC6NPzTdSuHQOC43Tqgcb0PDaVg" & _
"hmOVpnHYOAcE6FxzEuCAAGGOw+C2HhzjuZpRGGAAXj8H4zGWZ53mEPAXgyZ43kWZZ4H4L4ehwRp/muTh2l+F5ll8cpZEeeZYHQIEZEoW5MBgNZ9gGGpzioEoCF+GA0kG" & _
"ApYlYnY6iAaBtjaBQfAabYpgMIJWgIGx9BmNhiBsNBikiAZwgWIg2DoMRkAyKJWB+C4fAYGg1DKIw2DAAA6lEFAlAEgI=")
.Add(2,"gBFLBCJwBAEHhEJAADhABC4Cg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjQAsTRQFocAChEYxXjKBA1SJNUgyj" & _
"6WCQPR7CM5OaDgSABIijJDoGAwIgkUBpGKdBynEYoYxAYySQAIIjaYhoNoJChCM7QHQEBwQDCLUgrGbIbCQHDtW5cFr3DaLKI0J5kUBENhjaBafJ+XzfeBYDgmAYNQbD" & _
"cJxDC8KwWeQjXYTdyXHilZLaADJcqZVChSwzCafZ5oOK6Bodfq0VY2HabNgnYbNbT7bBrLq6UwWTjZTYZMxuHKMVyLJK/b5wOi3axKBBJWjYOR5Li+MbvNLFCRmO6Obp" & _
"jgWHxsCiS5vleW5dkCOBBHWPA4F4Rw3kuZpYG0NwbjuD4LAyWhUho9BnmueZ4nof5+BwS40E+Nx9jYeaKAWNhulkF41m8fBfDOVJoDWDJCCALw7g0cphngP5OEMBISH8" & _
"Wg3hI05ckaUYRAAGL8H4PpPgOVJnDUTIiBAKRfkwcZ0BuBAhCeYgVgWXA3AEfRsiGSJlkobIYnAAgYAWDJyEQPgyAgAIFh6CxBjOMJUCyrQckcJxjniahSHMF54gGRoP" & _
"l4EZsBgOpNAKMhNDGSZnjYOIUmGRo0mwdAAAgFg1hYGIpGiagzgqE5onMOoelgahkgAIZll2U4bCMaZ2AYagnHgbgDFuXQ2GwM4fCiCYtmMapoBgdJaDAaBni2PYiifS" & _
"R8HQDpqD6AYmEwFxBlIboWnoGoJiUahGHmNonCYZwmGaJwNiKKBriQWRaEmFooA6UxQhsFAdAqDo6iViJYFCLQdCOLQREIUAQICA=")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 12
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Check A,Check B,Check C,Check D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
67
|
How can I display an item to fit the control's width
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exThinLine
.ItemPadding = 10
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.Columns.Add("<c>Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Columns.Add("Pos")
.Position = 0
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.FormatColumn = "1 rpos ``"
.Width = 24
End With
With .Columns.Add("Pos")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.FormatColumn = "1 rpos ``"
.Width = 24
End With
With .Items
With .Add("<r>Root 1")
.Bold = True
.Divider = 0
.BackColor = Color.FromArgb(240,240,240)
.Selectable = False
With .Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
End With
With .Add("<r>Root 2")
.Bold = True
.Divider = 0
.BackColor = Color.FromArgb(240,240,240)
.Selectable = False
With .Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
End With
.ExpandAll()
End With
End With
.EndUpdate()
End With
|
|
66
|
Is it possible to prevent showing the selecting item ( hide )
With Extreecube1
.BeginUpdate()
.CheckBoxWidth = 32
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 10
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Item A,Item B,Item C,Item D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
65
|
Is it possible to provide a few radio-buttons only, not for entire column
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 10
With .Columns.Add("<c><b>Def")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellPaddingLeft,4)
End With
With .Items
.Add("Item 1")
With .Add("Radio 1")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
End With
With .Add("Radio 2")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
.set_State(0,True)
End With
With .Add("Radio 3")
.set_HasRadioButton(0,True)
.set_RadioGroup(0,1234)
End With
.Add("Item 1")
End With
End With
.EndUpdate()
End With
|
|
64
|
Is it possible to provide a few check box only, not for entire column
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 10
With .Columns.Add("<c><b>Def")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellPaddingLeft,4)
End With
With .Items
.Add("Item 1")
.Add("Check 1").set_HasCheckBox(0,True)
With .Add("Check 2")
.set_HasCheckBox(0,True)
.set_State(0,1)
End With
.Add("Item 1")
End With
End With
.EndUpdate()
End With
|
|
63
|
How can I show radio-buttons for the entire column
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 10
With .Columns.Add("<c><b>Radio")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasRadioButton,True)
End With
.Items.ToString = "Item A,Item B,Item C,Item D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
62
|
How can I show check-boxes for the entire column
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .FrontFace.CreateTree()
.ShowSelection = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.ItemPadding = 10
With .Columns.Add("<c><b>Check")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.set_Def(exontrol.EXTREECUBELib.DefColumnEnum.exCellHasCheckBox,True)
End With
.Items.ToString = "Item A,Item B,Item C,Item D"
.get_ItemByIndex(1).set_State(0,1)
End With
.EndUpdate()
End With
|
|
61
|
How do I select programmatically a value in the calendar
With Extreecube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Chapel"
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeaderForeColor,Color.FromArgb(1,0,0))
With .FrontFace.CreateCalendar()
.ForeColor = Color.FromArgb(255,255,255)
.NonworkingDays = 0
.Value = #12/31/2016#
End With
End With
|
|
60
|
How do I select programmatically a caption in the list
With Extreecube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
With .FrontFace.CreateTree()
.ItemPadding = 40
.HeaderVisible = False
.ForeColor = Color.FromArgb(255,255,255)
.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
.Caption = "Garden B"
End With
End With
|
|
59
|
How do I select programmatically a value in the list
With Extreecube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\JapanGarden"
With .FrontFace.CreateTree()
.ItemPadding = 40
.HeaderVisible = False
.ForeColor = Color.FromArgb(255,255,255)
.Items.ToString = ",<sha \;\;0><font \;18>Garden <b>A,<sha \;\;0><font \;18>Garden <b>B,<sha \;\;0><font \;18>Garden <b>C,"
.Value = "<sha ;;0><font ;18>Garden <b>B"
End With
End With
|
|
58
|
How can I show solid lines instead
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.HasButtons = exontrol.EXTREECUBELib.ExpandButtonEnum.exArrow
With .FrontFace.CreateTree()
.ItemPadding = 10
.HeaderVisible = False
.HasLines = exontrol.EXTREECUBELib.HierarchyLineEnum.exSolidLine
.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLines
.GridLineStyle = exontrol.EXTREECUBELib.GridLinesStyleEnum.exGridLinesSolid
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exAllLines
.Columns.Add("").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Columns.Add("")
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.RightAlignment
.FormatColumn = "lower(%0) right 1"
End With
With .Items
With .Add("Root <b>1")
With .Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
.Expanded = True
End With
With .Add("Root <b>2").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
End With
End With
.EndUpdate()
End With
|
|
57
|
How can I select the entire item rather than the column only
With Extreecube1
.BeginUpdate()
With .FrontFace.CreateTree()
.FullRowSelect = True
.Columns.Count = 3
With .Columns.Item(0)
.Caption = "<b><c>Pos"
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.FormatColumn = "0 pos ``"
.Width = 64
End With
.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
.SelectItem = 1
End With
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exFrontFace)
.EndUpdate()
End With
|
|
56
|
How can I change the visual appearance of the control's header bar
With Extreecube1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .FrontFace.CreateTree()
.BackColorHeader32 = &H1000000
.Columns.Count = 5
End With
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exFrontFace)
.EndUpdate()
End With
|
|
55
|
How can I add multiple-columns, so the horizontal scroll bar is displayed
With Extreecube1
.BeginUpdate()
With .FrontFace.CreateTree()
.ColumnAutoResize = False
.Columns.Count = 20
End With
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exFrontFace)
.EndUpdate()
End With
|
|
54
|
How can I add multiple-columns
With Extreecube1
.BeginUpdate()
With .FrontFace.CreateTree()
.ItemPadding = 10
.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLines
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.Columns.Add("Default").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Columns.Add("Pos")
.Position = 0
.Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
.FormatColumn = "1 rpos ``"
.Width = 24
End With
With .Items
With .Add("Root 1").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
With .Add("Root 2").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
.ExpandAll()
End With
End With
.EndUpdate()
End With
|
|
53
|
How do I add a hierarchy
' FaceTreeExpandItem event - Notifies that an item has been expanded/collapsed into a face of tree type.
Private Sub Extreecube1_FaceTreeExpandItem(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree,ByVal Item As Integer) Handles Extreecube1.FaceTreeExpandItem
With Extreecube1
Debug.Print( Item )
End With
End Sub
With Extreecube1
.BeginUpdate()
With .FrontFace.CreateTree()
.ExpandOnDblClick = True
.ItemPadding = 10
.HeaderVisible = False
.LinesAtRoot = exontrol.EXTREECUBELib.LinesAtRootEnum.exGroupLines
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exRowLines
.Columns.Add("").Alignment = exontrol.EXTREECUBELib.AlignmentEnum.LeftAlignment
With .Items
With .Add("Root 1").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
With .Add("Root 2").Items
.Add("Child 1")
.Add("Child 2")
.Add("Child 3")
End With
.ExpandAll()
End With
End With
.EndUpdate()
End With
|
|
52
|
How can I display a calendar control
' FaceCalendarValueChanged event - Notifies that the user selects a new date/value into a face of the calendar type.
Private Sub Extreecube1_FaceCalendarValueChanged(ByVal sender As System.Object,ByVal Calendar As exontrol.EXTREECUBELib.FaceCalendar) Handles Extreecube1.FaceCalendarValueChanged
With Extreecube1
Debug.Print( Calendar )
End With
End Sub
With Extreecube1
With .FrontFace.CreateCalendar()
.Value = #1/2/2001#
.MonthNames = .get_LocMonthNames()
.WeekDays = .get_LocWeekDays(2)
.FirstWeekDay = .LocFirstWeekDay
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
End With
End With
|
|
51
|
How can I change the picture/texture on the faces
With Extreecube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTreeCube\Sample\Texture\Earth"
End With
|
|
50
|
How can I get ride of the default texture
With Extreecube1
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
.TexturePicturePath = ""
End With
|
|
49
|
How do I get ride of grid lines, and the top border it shows on the tree face
With Extreecube1
With .FrontFace.CreateTree()
.ItemPadding = 20
.HeaderVisible = False
.DrawGridLines = exontrol.EXTREECUBELib.GridLinesEnum.exNoLines
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
End With
End With
|
|
48
|
How can I add a list of items (method 2)
With Extreecube1
With .FrontFace.CreateTree().Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
End With
|
|
47
|
How can I add a list of items (method 1)
With Extreecube1
With .FrontFace.CreateTree()
.Items.ToString = "Item A,Item B,Item C"
End With
End With
|
|
46
|
Fisheye Calendar View - Year
' FaceTreeValueChanged event - Notifies that the user selects a new item/column/value into a face of the tree type.
Private Sub Extreecube1_FaceTreeValueChanged(ByVal sender As System.Object,ByVal Tree As exontrol.EXTREECUBELib.FaceTree) Handles Extreecube1.FaceTreeValueChanged
' f.FaceCalendar.Year = Tree.Caption
Dim f
With Extreecube1
f = .get_Face(.VisibleFace)
f = .FrontFace
With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft)
End With
With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
End With
With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
End With
End With
End Sub
' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub Extreecube1_Move(ByVal sender As System.Object,ByVal RotateDir As exontrol.EXTREECUBELib.RotateEnum,ByVal FromFace As exontrol.EXTREECUBELib.FaceEnum,ByVal ToFace As exontrol.EXTREECUBELib.FaceEnum) Handles Extreecube1.Move
Dim f
With Extreecube1
f = .get_Face(ToFace)
f.FaceCalendar.SelDate = Extreecube1.get_Face(FromFace).FaceCalendar.SelDate
.get_Face(FromFace).FaceCalendar.UnselectDate()
With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft)
End With
With f.get_Neighbor(exontrol.EXTREECUBELib.RotateEnum.exRotateRight).FaceCalendar
.Date = f.FaceCalendar.Date
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
End With
End With
End Sub
Dim d
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.EnsureVisibleFaceMargin = 32
.EnsureVisibleFaceOnDblClick = False
.EnsureVisibleFaces = "0,2,1,3,4"
With .FrontFace.CreateCalendar()
.Date = #1/1/2016#
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = False
.FirstWeekDay = exontrol.EXTREECUBELib.WeekDayEnum.exMonday
.SelBackColor32 = &H2000000
.SelForeColor = Color.FromArgb(0,0,0)
.ShowNonMonthDays = True
End With
d = Extreecube1.FrontFace.FaceCalendar.Date
With .LeftFace.CreateCalendar()
.Date = d
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateLeft)
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = False
.FirstWeekDay = exontrol.EXTREECUBELib.WeekDayEnum.exMonday
.SelBackColor32 = &H2000000
.SelForeColor = Color.FromArgb(0,0,0)
.ShowNonMonthDays = True
End With
With .RightFace.CreateCalendar()
.Date = d
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = False
.FirstWeekDay = exontrol.EXTREECUBELib.WeekDayEnum.exMonday
.SelBackColor32 = &H2000000
.SelForeColor = Color.FromArgb(0,0,0)
.ShowNonMonthDays = True
End With
With .BottomFace.CreateCalendar()
.Date = d
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
.Move(exontrol.EXTREECUBELib.RotateEnum.exRotateRight)
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.MaxMonthX = 1
.MaxMonthY = 1
.ShowTodayButton = False
.FirstWeekDay = exontrol.EXTREECUBELib.WeekDayEnum.exMonday
.SelBackColor32 = &H2000000
.SelForeColor = Color.FromArgb(0,0,0)
.ShowNonMonthDays = True
End With
With .TopFace
With .CreateTree()
.ItemPadding = 20
.SelBackColor32 = &H2000000
.SelForeColor = Color.FromArgb(0,0,0)
.Columns.Count = 5
.HeaderVisible = False
.Items.Count = Extreecube1.TopFace.FaceTree.VisibleItemsCount
.Columns.Item(0).FormatColumn = "(0:=(1989 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(1).FormatColumn = "(0:=(1990 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(2).FormatColumn = "(0:=(1991 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(3).FormatColumn = "(0:=(1992 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Columns.Item(4).FormatColumn = "(0:=(1993 + 5 * (0 index ``))) = 2016 ? `<b><sha ;;0>` + =:0 + `</b>` : =:0"
.Caption = Extreecube1.FrontFace.FaceCalendar.Year
End With
End With
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCm" & _
"ZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXx" & _
"SlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4" & _
"Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJ" & _
"FYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJ" & _
"NxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQj" & _
"OLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5" & _
"xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg=")
.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAADhABOkGACAADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEYFDSAUIjKKkIhkGIYZBGQBJDjWGgyQjOEByD" & _
"IMRwjE4YBpkGYYJDSIYHTZIUzTJAdGSVJKNKAoKCaEg2R4qsZCCKwUgmTo9VBJU9CFi6ZIRDSMFiyXZUIxHEKnIqrOjbBjaUpYABLErTBKUSzrEadAAwGbKJj+VJBULM" & _
"VD2BDWGABOYAKarWa7fhaUqJUTVdI1VBOIYmADPcaqCxrLgMMpnWxpN42bjdPY7V6Bc7yXJsHimK5GUTQA4aFIENydJzINjsKBKBriLIybpeFr7BiME4/YLhAA0vZNUY" & _
"sg0XguBqaAeEOIYUjqYQgGCCBJECUhjDoHROEYWooAGTRMCEEx9lGIY0CQUZOnuZQDBEdYFkeI5+H+igGAKAJgEgFgGgGUAzn4CoCmCSA2A6A5hAgCgQgSYRIE4EoFGG" & _
"CBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAYLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ1n4OpWmQDQBICA==")
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H1000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250))
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250))
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255))
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exFrontFace)
.EndUpdate()
End With
|
|
45
|
How can I add a FaceTree object ( method 2 )
With Extreecube1
With .FrontFace
With .CreateTree()
.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
.SelectItem = 1
End With
End With
End With
|
|
44
|
How can I add a FaceTree object ( method 1 )
With Extreecube1
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceTree
With .FaceTree
.Items.ToString = "Item <b>1,Item <b>2,Item <b>3"
.SelectItem = 1
End With
End With
End With
|
|
43
|
How can I add a FaceCalendar object ( method 2 )
With Extreecube1
With .FrontFace
With .CreateCalendar()
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.Value = #12/31/1971#
End With
End With
End With
|
|
42
|
How can I add a FaceCalendar object ( method 1 )
With Extreecube1
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
With .FaceCalendar
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
.Value = #12/31/1971#
End With
End With
End With
|
|
41
|
How can I add a FacePicture object ( method 2 )
With Extreecube1
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
With .FrontFace
With .CreatePicture()
.Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXTREECUBELib.PictureDisplayEnum.Tile
.Width = "2 * pwidth"
.Height = "2 * pheight"
.Top = "122"
.Left = "46"
End With
End With
End With
|
|
40
|
How can I add a FacePicture object ( method 1 )
With Extreecube1
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFacePicture
With .FacePicture
.Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXTREECUBELib.PictureDisplayEnum.Tile
.Width = "2 * pwidth"
.Height = "2 * pheight"
.Top = "122"
.Left = "46"
End With
End With
End With
|
|
39
|
How can I prevent bringing a specified face into the front
With Extreecube1
.EnsureVisibleFaces = "0"
End With
|
|
38
|
Is it possible to show one face opaque, while other semi-transparent
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.DefaultFaceType = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.TransparentContent = 75
.FrontFace.TransparentContent = 0
.EndUpdate()
End With
|
|
37
|
How can I add a Calendar control
With Extreecube1
.BeginUpdate()
.Margins = "0,0,0,0"
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
With .FaceCalendar
.ShowNonMonthDays = True
.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient
End With
End With
.EndUpdate()
End With
|
|
36
|
Is it possible to init faces at once
' InitFaceContent event - Notifies your application that a face changes its type, so you can initialize its content.
Private Sub Extreecube1_InitFaceContent(ByVal sender As System.Object,ByVal Face As exontrol.EXTREECUBELib.Face) Handles Extreecube1.InitFaceContent
' Face.FaceContent.ShowTodayButton = False
End Sub
With Extreecube1
.DefaultFaceType = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
End With
|
|
35
|
How can I disable zoom when rolling the mouse wheel
With Extreecube1
.OnMouseWheel = exontrol.EXTREECUBELib.OnMouseWheelEnum.exMouseWheelNothing
End With
|
|
34
|
Fisheye Calendar View - LR
' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub Extreecube1_Move(ByVal sender As System.Object,ByVal RotateDir As exontrol.EXTREECUBELib.RotateEnum,ByVal FromFace As exontrol.EXTREECUBELib.FaceEnum,ByVal ToFace As exontrol.EXTREECUBELib.FaceEnum) Handles Extreecube1.Move
With Extreecube1
.FrontFace.FaceCalendar.Move(RotateDir)
With .LeftFace.FaceCalendar
.Date = Extreecube1.FrontFace.FaceCalendar.Date
.PrevMonth()
End With
With .RightFace.FaceCalendar
.Date = Extreecube1.FrontFace.FaceCalendar.Date
.NextMonth()
End With
End With
End Sub
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DBJQwwXBIZhgGIBIRgUBJCjWGodQLOEgwH" & _
"IERQjEyUJAmCYhRiCB42TrNIJwSBUPwTGKBXZDQRAApKVIWUAMFBVg7GRYcVxIUgAdDYMyZJyBa4qapaTheEQyDSJNr3DCMUTlBK7IhsKCaLhqZIDUzGVpWbZdMRlFCV" & _
"JYgOTqDgQMIkUhSE5TVIEew3H7DaymKrKeobFoaZ6AAL3ZBNTR5J6EbTwWRcZpuRJGWDGdhwTocB5MADbZAwOpNLgOc53TjdF4DBwAATzJCQL50KCbfziG67WxVeqQJg" & _
"iggNpOAwbZjDGHoGC2IZAgAORbFiPxDHoAIsmIewdiGHpHEGTIzm2Nocn0TgSluBpgnEbgcF4PAPnkSQAA+c58AAVwcheiRzF4NIJiofYWgUJAIEIRQBiQYwdAcUZIGU" & _
"V5QDKCAHECRAhDYGhGgMZAkCgaRiEaHAYEWRpIG2ERFkIQBwm2CxiniOgwgyYpjmoNg3g2YxwkwwYzCiSwyCOaQCD8MxjkibJLDMDJDCoPgyEyMwskkNpNjMaJ1hSYxI" & _
"kYVoVEACRWFqC4OBOCJgCkShSgiCQiEgQZ8gAHpIAIBB8hoZo5iobIbmaaYqGZWByCCAwnkoAhwlQNQNCkbhXguJYYkqAoVguQpwjsIxIlIJNHksE4kmoOhgSsEokmkS" & _
"hUnCJZLzYOwigiIgYjULYLDmegwiAZ5zjSNwuAsYg8g8IplAMZoRhST1UCMJ5IGIqoiEiIgUgoIpIGqbo9i8JgyBaNQggmUh4hoOBOAOAoRDoLJCFSFQkgsQpQjGH4qE" & _
"iQJJDITB6CCCQ7G2ShEjsLwLhGIBpBiBIhCwRAQEQIJsEIEJDkuLptjsLphAwRI7kOMQkEoEJFnGABaiyCZ6ESeI/kkAhAg2IRLikYgwDoToTiCEQkgiUxElEM5pBIbI" & _
"cCYBQhEwTASASGB0E4EZEmEPBIkccZ8HsIJInILB4E2RpvasSwTAQUgIgMH5pVGYg4GuYx8l8NxqDiQoFC4SYSGiFokEyYw4kwFhF8GSQSkQPITCGUp0i0NwllKcoxBc" & _
"JwRkqEooiaJBLCKSIvCp54aDYPoAAORJyDwSWUhENANAwQgBB6R4xlqcgPDSbQzE+XB3EweBGBGRABigawZE6GcLoHxCAQFICkAIvhOhgACM4OYnBhjQHsDoT4Zxsj0D" & _
"YJsEwwBhJgMIOsXIcwOC+CCJMRA2BgCFFYJUegiBzA6AaMcDLuAAAdBiMUBQDWyhuC2JYTQiBMAmEQNwaw5xtjzB6MAPAHhDDEHyD4JwUgRiAHEDUTgNggABHEJwAYkB" & _
"zA2GkDMAIRAQAIBCM8No3ERC4D4B8Q4FxygiBwI4IYbxIjjGyB4c4mQACUXaD8dYhh/CfGqNwNIXhfizCyPsPw7xfjkD4FQRo+R7h9D8K8bI3A+jeGoAIfAnxNjhD3JY" & _
"LIvxDj2H8KAIYcQ/ivGCP8X4JxGD9AGIgNgUgRCECgIkaAegHiBFmPkQYTx4jsB+OEf4AAPAzBkBwEI1AdCHAqCIFYBQwCoAQIECgHwag4BuAIMA4AbgUBEIgJ4KQIDl" & _
"AGIcg4HBRkyAOHAdwHBqCIGKBgUYCAVAFCgJwagYQ+AvD0YAKYCgwhGH4F4eYxg3ijFQEEWQ8RqDfEOGgdhUBYA2AMHYdwEARBMAOGkJgpAWiFGAKoGgRhIDQCkCEcAP" & _
"QDhBGYDkQ4KAABrHaHAKYCwAhgBWKAEAnw5jOGaNoYwKB+DmA0JwFYBxhAsCMAgOoIgYjGBwMUCYAgyBKAeDEdAPBqggGsBoYYVAihICiOgHoRxRCRl6PQHgLhAB3A+C" & _
"MBYmAuhgHZRgaAzhbgHDUJECQYgoBIAYFERgMQMjKEGBUUQtAqgKBiEoFAWREDjA4CsBktw4B/AUMEdARwEgBAMFAHYhhTDnFMAMdADwwjwB2IweIngZhUEUNECwSwKB" & _
"NFePEeILApCyG4B0QQOAkAIGCHIFwxRdCRA+LMRwOwFDQH8B+B4aQ3huGYCIQYoA7AMHALgGwBwwDwA0EwEAggMhDBgGACAAgAA+BMUgHoqABCRCSKMEgRRECxAcLIIw" & _
"+7RhoGCNMBwMQUgrAINATYEh5hZCQI8PQAQHDHBIM4DM9wwiMACIkCA6BwDACOGMFQEQHh6BYKQLQ/B/ARFEDgIoJRojAFqBUCQLgpDjF6J0U4MQnT5BGJADQ8w1BxEe" & _
"OVTgRx6hBE2EMOAbhGihCyC0E42A+AWAEMQK4DhkCzCYEcNQ1RQhqAcKAR44RnA6AODgWoFhRDMCGAgMg1QZgDDQG4BoIRMAzEMBAZwGgBgVDIAwEIqAagGCAPIDwQxM" & _
"CECYLUFgVhdChHyF0dQghRgdDIDAAgmhBAGAkAIPATgRBAoqB4mYYAWAQBmLAiQmgrj7AHXgFABhYD2B8MULAVAqAABYxMAACAfDHCwJsC4Xw2DtE0DwCwZhlCeA2CcM" & _
"ArBkgBICA")
.Add(2,"CP:1 -6 0 6 0")
End With
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H2000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeaderForeColor,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(240,240,240))
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255))
.AllowRotate = exontrol.EXTREECUBELib.RotateEnum.exRotateRight Or exontrol.EXTREECUBELib.RotateEnum.exRotateLeft
.EnsureVisibleFaceOnDblClick = False
.DefaultFaceType = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FrontFace.FaceCalendar.Date = #1/1/2016#
.TopFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceNone
.DownFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceNone
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
.EndUpdate()
End With
|
|
33
|
Fisheye Calendar View - S
' FaceCalendarDateChanged event - Notifies that the user browses for a new date into a face of calendar type.
Private Sub Extreecube1_FaceCalendarDateChanged(ByVal sender As System.Object,ByVal Calendar As exontrol.EXTREECUBELib.FaceCalendar) Handles Extreecube1.FaceCalendarDateChanged
Dim currentDate
With Extreecube1
currentDate = .FrontFace.FaceCalendar.Date
With .LeftFace.FaceCalendar
.Date = currentDate
.PrevMonth()
End With
With .RightFace.FaceCalendar
.Date = currentDate
.NextMonth()
End With
With .TopFace.FaceCalendar
.Date = currentDate
.PrevYear()
End With
With .DownFace.FaceCalendar
.Date = currentDate
.NextYear()
End With
End With
End Sub
' InitFaceCalendar event - Notifies your application that a face changes its type to exFaceCalendar.
Private Sub Extreecube1_InitFaceCalendar(ByVal sender As System.Object,ByVal Calendar As exontrol.EXTREECUBELib.FaceCalendar) Handles Extreecube1.InitFaceCalendar
With Extreecube1
With Calendar
End With
End With
End Sub
' Move event - Occurs once a new face became visible, by moving/rotating from a face to another, into the giving direction.
Private Sub Extreecube1_Move(ByVal sender As System.Object,ByVal RotateDir As exontrol.EXTREECUBELib.RotateEnum,ByVal FromFace As exontrol.EXTREECUBELib.FaceEnum,ByVal ToFace As exontrol.EXTREECUBELib.FaceEnum) Handles Extreecube1.Move
With Extreecube1
.FrontFace.FaceCalendar.Move(RotateDir)
End With
End Sub
With Extreecube1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABXgCg6AADACAxRDAMgBQKAAzQFAYaBsHCGAAGMZRZgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDIAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZZmWCQCglf5HABRb7xPLoARTAaeJKoWboJAiGwLQjQUyABSdEyRJSLYhGIZRFqKZIRDSMFiwTZNVypAaIYqqaA6qzfJymabAAZJEradozTLIE7xVLEVYNKCm" & _
"ZCwMAAcgmEQgSTAda2BYELTzECoYDGCrcKpWCaNQLWEB5BQeJSNL6kIqsazgAqPLJtWhaVwxXIEI5AAC5QA0S7pOxeO6JbRGdZbNrlbz1PTMaazTgYDzmWqiYxxMraXx" & _
"SlmMprGsIpVl2LRnD0A5bnSN49mAARAlIYw6B0ThGFGDIBG0QghBMfZRiGNAkFECZoG6YQBgiOgCmuRRSg6GAElWAJMkgFgGgGYIIAyVQ7GCRhUAAOQhAMBgSDWIRDG4" & _
"Fg3CGCBmBmBYNjgUJWDIIgIECZBCEsKIUkqCZhiiJgqgaYRjB4LguiMBAkiqDLenYrBjgiZg6gGIwyioMoNCAWJqEKEJjkiTg/CqIxZA4SoNmQWJ5AODxMlkRJehSZRJ" & _
"FYVoVmUEw2D2EZlhkXhehfURuE+DJllkfhmhUJgZBoYwqiWEx+G6G5nAmRhyhoZJgAIUIUGcKZmHqHQlkmYh6h+Zp5nIawzigQ4CgaIZogoJoKiEDJpgodoMmiSgqhKJ" & _
"NxDoPQzmmA4GhqJppkodoeiYDJ6FpaQpmqFomigKgiiqJIpiqShuiiGoonqKoZisapaj4dYl3WCo6i6a5KnaPotiQeoCj6MJsEsAhrDQLIDg6SoymySw2k6MgNAqJpQj" & _
"OLRLFaUI0iyGxWlq/p6kIPY0m2Oxul2LZjDMRpmgiLoLiaaoIi4YxGinoY7kaauhnuGJlj2b4Lmaeo+m8Sx6mWOZhAubwCj2bpLhqKYJkyKTnECThYgoVJCCiYpPBIL5" & _
"xEMLwWjsTQsGcGpGi6XBYkuRQLvcIhCE8DIWDCSZLiKdwqC+MpMjcLZKguXIcjiTJyFOQYnD+TYMmSLZOkmHJ3D6T50AybItiGYJji2MwABAECAg=")
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H1000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250))
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250))
.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000)
.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255))
.TexturePicturePath = ""
.DefaultFaceType = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
.FrontFace.FaceCalendar.Date = #1/1/2016#
.EndUpdate()
End With
|
|
32
|
While navigating the Down/Top faces, I am not able to rotate it. Is it possible (ensure always front face)
With Extreecube1
.EnsureVisibleFace(exontrol.EXTREECUBELib.FaceEnum.exDownFace,False)
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exAlwaysVisibleFrontFace Or exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exFitToEnsureFace
End With
|
|
31
|
How can I show a single month only
With Extreecube1
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
With .FaceCalendar
.Date = #1/1/2001#
.SelDate = .Date
.MinDate = #1/1/2001#
.MaxDate = #1/31/2001#
.FirstWeekDay = exontrol.EXTREECUBELib.WeekDayEnum.exMonday
.ShowWeeks = False
.ShowNonMonthDays = False
.ShowTodayButton = False
.MaxMonthX = .MinMonthX
.MaxMonthY = .MinMonthY
End With
End With
End With
|
|
30
|
How can I show date calendar
With Extreecube1
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FaceCalendar.ShowNonMonthDays = False
End With
End With
|
|
29
|
How can I prevent dbl click to ensure the clicked face is visible
With Extreecube1
.EnsureVisibleFaceOnDblClick = False
End With
|
|
28
|
How can I put a picture into the center of the texture but behind the control's face
With Extreecube1
.BeginUpdate()
.set_HTMLPicture("logo","c:\exontrol\images\zipdisk.gif")
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FaceCalendar.ShowTodayButton = False
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<img>logo</img>")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor,0)
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate,0)
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate,0)
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceLeft,"(width-twidth)/2")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceTop,"(height-theight)/2")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceWidth,"twidth")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHeight,"theight")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceVisible,1)
End With
.FrontFace.FaceCalendar.ForeColor = Color.FromArgb(255,0,0)
.EndUpdate()
End With
|
|
27
|
How do I put my logo on the right-bottom side of the face (method 2), while I using the face
With Extreecube1
.BeginUpdate()
.set_HTMLPicture("logo","c:\exontrol\images\zipdisk.gif")
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FaceCalendar.ShowTodayButton = False
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<r><img>logo</img>")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor,2)
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate,0)
End With
.EndUpdate()
End With
|
|
26
|
Is it possible to show two or more titles/extra titles
With Extreecube1
.BeginUpdate()
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FaceCalendar.ShowTodayButton = False
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<font ;18><c><fgcolor=0000FF>This is the title")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<font ;18><c><fgcolor=FF0000>This is the extra title")
.set_ExtraTitle("extra",exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor,2)
End With
.EndUpdate()
End With
|
|
25
|
How can I display the title at the left side of the face
With Extreecube1
.BeginUpdate()
With .FrontFace
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<font ;18><c>This is the title")
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FaceCalendar.ShowTodayButton = False
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor,4)
End With
.EndUpdate()
End With
|
|
24
|
How can I display the title at the bottom side of the face
With Extreecube1
.BeginUpdate()
With .FrontFace
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<font ;18><c>This is the title")
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FaceCalendar.ShowTodayButton = False
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceAnchor,2)
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceHTMLRotate,0)
End With
.EndUpdate()
End With
|
|
23
|
Can I display the title to a different position
With Extreecube1
.BeginUpdate()
With .FrontFace
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<font ;18><c><bgcolor=FFFFFF>This is the title")
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceVisible,-1)
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceTop,"(height-theight)/2")
End With
.EndUpdate()
End With
|
|
22
|
How can I display a title for a face
With Extreecube1
.BeginUpdate()
With .FrontFace
.set_Title(exontrol.EXTREECUBELib.PropertyTitleFaceEnum.exTitleFaceCaption,"<font ;18><c>This is the title")
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
End With
.EndUpdate()
End With
|
|
21
|
Can I put the picture at specified position
With Extreecube1
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFacePicture
With .FacePicture
.Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXTREECUBELib.PictureDisplayEnum.Tile
.Width = "2 * pwidth"
.Height = "2 * pheight"
.Top = "122"
.Left = "46"
End With
End With
End With
|
|
20
|
How do I put my logo on the right-bottom side of the face (method 1)
With Extreecube1
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFacePicture
With .FacePicture
.Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXTREECUBELib.PictureDisplayEnum.LowerRight
.Width = "width"
.Height = "height"
.Top = "0"
.Left = "0"
End With
End With
End With
|
|
19
|
Can I use any picture on the background's faces
With Extreecube1
.BeginUpdate()
.TexturePicturePath = ""
.get_Face(exontrol.EXTREECUBELib.FaceEnum.exFrontFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.get_Face(exontrol.EXTREECUBELib.FaceEnum.exBottomFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.get_Face(exontrol.EXTREECUBELib.FaceEnum.exRightFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.get_Face(exontrol.EXTREECUBELib.FaceEnum.exLeftFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.get_Face(exontrol.EXTREECUBELib.FaceEnum.exTopFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.get_Face(exontrol.EXTREECUBELib.FaceEnum.exDownFace).Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
.EndUpdate()
End With
|
|
18
|
Is it possible to show the cube's texture more transparent, so the faces are more visible
With Extreecube1
.BeginUpdate()
.Transparent = 80
.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
With .TopFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
With .FaceCalendar
.Date = #2/1/2016#
.MaxMonthX = 1
.MaxMonthY = 1
End With
End With
With .LeftFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
With .FaceCalendar
.Date = #3/1/2016#
.MaxMonthX = 1
.MaxMonthY = 1
End With
End With
With .FrontFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
With .FaceCalendar
.Date = #4/1/2016#
.MaxMonthX = 1
.MaxMonthY = 1
End With
End With
With .RightFace
.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
With .FaceCalendar
.Date = #5/1/2016#
.MaxMonthX = 1
.MaxMonthY = 1
End With
End With
.ShowAs = exontrol.EXTREECUBELib.ShowAsEnum.exFishEye
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
.EndUpdate()
End With
|
|
17
|
How can I load a different texture on the cube
With Extreecube1
.TexturePicturePath = "C:\Program Files\Exontrol\ExTexture\Sample\Texture\VW"
End With
|
|
16
|
How can I show no texture/picture on all faces
With Extreecube1
.TexturePicturePath = ""
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
.IdentifyFaceCaption = "<sha ;;0><fgcolor=000000>Face <%index%></font> <%name%>"
End With
|
|
15
|
Fish-Eye Rectangular
With Extreecube1
.BeginUpdate()
.ShowAs = exontrol.EXTREECUBELib.ShowAsEnum.exFishEye
.Internals = "zoommin=1;zoomdefault=1;zoommax=1;zoomdivsmall=256;zoomdivlarge=48;fisheyepersp=4"
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
.TopFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.LeftFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FrontFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.RightFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.EndUpdate()
End With
|
|
14
|
Orthographic
With Extreecube1
.BeginUpdate()
.ShowAs = exontrol.EXTREECUBELib.ShowAsEnum.exOrthographic
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
.TopFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.LeftFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FrontFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.RightFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.RotX = 0.748933
.RotY = 0.617099
.Zoom = 1
.EndUpdate()
End With
|
|
13
|
Fish-Eye Default
With Extreecube1
.BeginUpdate()
.ShowAs = exontrol.EXTREECUBELib.ShowAsEnum.exFishEye
.AlwaysEnsureVisibleFace = exontrol.EXTREECUBELib.EnsureVisibleFaceEnum.exDisableEnsureVisibleFace
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame
.TopFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.LeftFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.FrontFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.RightFace.Type = exontrol.EXTREECUBELib.FaceTypeEnum.exFaceCalendar
.RotX = 0
.RotY = 0.8
.Zoom = 1
.EndUpdate()
End With
|
|
12
|
I know the user can drag the cube to any position. The question is how can I restore the layout
With Extreecube1
.IdentifyFace = exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceFrame Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceName Or exontrol.EXTREECUBELib.IdentifyFaceEnum.exIdentifyFaceCaption
.RotX = 0.25
.RotY = 0.75
.Zoom = 1
End With
|
|
11
|
How do I put my logo on the right-bottom side of the control
With Extreecube1
.Picture = Extreecube1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
|