|
198
|
Is it possible to change the header's visual appearance (EBN)
With PropertiesList1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.HeaderVisible = True
.BackColorHeader = &H1000000
.HeaderHeight = 22
.EndUpdate
End With
|
|
197
|
Is it possible to change the header's visual appearance
With PropertiesList1
.BeginUpdate
.HeaderVisible = True
.HeaderAppearance = Etched
.HeaderHeight = 22
.EndUpdate
End With
|
|
196
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
With PropertiesList1
.BeginUpdate
.ImageSize = 32
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.Font.Size = 16
.ToolTipFont.Size = PropertiesList1.Font.Size
.FilterBarFont.Size = PropertiesList1.Font.Size
.Indent = 26
.DescriptionHeight = 96
.DisplayBoolAs = exBoolCheck
.FilterBarPromptVisible = exFilterBarVisible
.HeaderVisible = True
.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA=="
.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
End With
.BackColorHeader = &H4c6c6c6
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.Background(exCursorHoverColumn) = -1
.Background(exHeaderFilterBarButton) = &H4000000
.Background(exFooterFilterBarButton) = &H40000ff
.Background(exCheckBoxState0) = &H1000000
.Background(exCheckBoxState1) = &H2000000
.Background(exCheckBoxState2) = &H3000000
.Select PropertiesList1
.Sort
.EndUpdate
End With
|
|
195
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
With PropertiesList1
.BeginUpdate
.ImageSize = 16
.DisplayBoolAs = exBoolCheck
.FilterBarPromptVisible = exFilterBarVisible
.HeaderVisible = True
.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 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
End With
.BackColorHeader = &H4c6c6c6
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.Background(exCursorHoverColumn) = -1
.Background(exHeaderFilterBarButton) = &H4000000
.Background(exFooterFilterBarButton) = &H40000ff
.Select PropertiesList1
.Sort
.EndUpdate
End With
|
|
194
|
How can I add property of button type
' ModalPropertyChange event - Fired when the properties browser is about to change a property's value using a modal dialog.
Private Sub PropertiesList1_ModalPropertyChange(ByVal Property As EXPROPERTIESLISTLibCtl.IProperty,Value As Variant,Cancel As Boolean)
With PropertiesList1
Debug.Print( .Property() )
End With
End Sub
With PropertiesList1
.BeginUpdate
.Add "Button","the button is always shown",Button
.Add "EditButton","show on focus only",EditButton
.Add "EditPage","show on focus only",EditPage
.EndUpdate
End With
|
|
193
|
Is it possible to decode/view the control's Layout property
With PropertiesList1
.BeginUpdate
.Select PropertiesList1
With CreateObject("Exontrol.Print")
Debug.Print( .Decode64TextW(PropertiesList1.Layout) )
End With
.EndUpdate
End With
|
|
192
|
Does your control supports scrolling by touching the screen
With PropertiesList1
.BeginUpdate
.Select PropertiesList1
.AutoDrag = AutoDragEnum.exAutoDragScrollOnShortTouch Or AutoDragEnum.exAutoDragScroll
.EndUpdate
End With
|
|
191
|
If I enabled the list filter on runtime, the user can click on [x] and close the filter text. Can I disabled this action
With PropertiesList1
.BeginUpdate
.AllowMultipleValuesOnEnum = True
.Select PropertiesList1
.Sort True
.FilterBarPromptVisible = exFilterBarAlwaysVisible
.EndUpdate
End With
|
|
190
|
Is it possible to specify a different background/foreground color for the property from the cursor, aka hot item
With PropertiesList1
.Select PropertiesList1
.HotBackColor = RGB(0,0,255)
.HotForeColor = RGB(255,255,255)
.SelBackColor = RGB(0,0,128)
.SelForeColor = RGB(255,255,255)
End With
|
|
189
|
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
With PropertiesList1
.Select PropertiesList1
.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End With
|
|
188
|
How can I display checkboxes for flags values only
With PropertiesList1
.BeginUpdate
.AllowMultipleValuesOnEnum = True
With .Add("Nextevent",81,EditEnum)
.AddValue 1,"Option A"
.AddValue 2,"Option B"
.AddValue 3,"Option C"
.AddValue 4,"Option D"
.AddValue 16,"Flag A"
.AddValue 32,"Flag B"
.AddValue 64,"Flag C"
.AddValue 128,"Flag D"
End With
.Refresh
.EndUpdate
End With
|
|
187
|
Is is possible to display a checkbox on ENUM types
With PropertiesList1
.BeginUpdate
.AllowMultipleValuesOnEnum = True
With .Add("Nextevent",5,EditEnum)
.AddValue 1,"Flag A"
.AddValue 2,"Flag B"
.AddValue 4,"Flag C"
.AddValue 8,"Flag D"
.AddValue 16,"Flag E"
End With
.Refresh
.EndUpdate
End With
|
|
186
|
Is it possible to display the full path in the EditFolder editor
With PropertiesList1
With .Add("Folder","c:\",EditFolder)
.Option(exEditFolderTitle) = "Current Folder"
.Option(exEditFolderShowEditBox) = False
.Option(exEditFolderShowPath) = True
End With
End With
|
|
185
|
How can I include a "New Folder" button so user can create new folders when using the EditFolder form
With PropertiesList1
.Add("Folder","",EditFolder).Option(exEditFolderAllowNewFolder) = True
End With
|
|
184
|
Is it possible to show always the selection in the files/folders list in the EditFolder dialog
With PropertiesList1
.Add("Folder","",EditFolder).Option(exEditFolderNewUI) = True
End With
|
|
183
|
How can I hide the editbox in the EditFolder editor
With PropertiesList1
.Add("Folder","",EditFolder).Option(exEditFolderShowEditBox) = False
End With
|
|
182
|
How can I include the files in the in the EditFolder editor
With PropertiesList1
.Add("Folder","",EditFolder).Option(exEditFolderIncludeFiles) = True
End With
|
|
181
|
Is it possible to change the caption in the EditFolder editor
With PropertiesList1
.Add("Folder","",EditFolder).Option(exEditFolderTitle) = "Select a directory..."
End With
|
|
180
|
Is it possible to filter for properties that contains a specified text
With PropertiesList1
.BeginUpdate
.Select PropertiesList1
.Sort True
.FilterBarPromptVisible = exFilterBarVisible
.FilterBarPrompt = "<font ;7><fgcolor=FF0000><c>Start Filtering..."
.FilterBarPromptPattern = "back"
.IncrementalSearch = exContains
.EndUpdate
End With
|
|
179
|
How can I filter the properties at runtime
With PropertiesList1
.BeginUpdate
.Select PropertiesList1
.Sort True
.FilterBarPromptVisible = exFilterBarVisible
.FilterBarPrompt = "<font ;7><fgcolor=FF0000><c>Start Filtering..."
.FilterBarPromptPattern = "Back"
.EndUpdate
End With
|
|
178
|
Is it possible to change the caption being displayed in the filter bar
With PropertiesList1
.BeginUpdate
.Select PropertiesList1
.Sort True
.FilterBarPromptVisible = exFilterBarVisible
.FilterBarPrompt = "<font ;7><fgcolor=FF0000><c>Start Filtering..."
.EndUpdate
End With
|
|
177
|
How can I enable the filter-prompt feature
With PropertiesList1
.BeginUpdate
.Select PropertiesList1
.Sort True
.FilterBarPromptVisible = exFilterBarVisible
.EndUpdate
End With
|
|
176
|
How do I specify the height of the control's header bar
With PropertiesList1
.BeginUpdate
.HeaderVisible = True
.HeaderHeight = 36
.Select PropertiesList1
.Sort True
.EndUpdate
End With
|
|
175
|
Is it possible to display a checkbox for ENUM types that allow BIT combinations
With PropertiesList1
.BeginUpdate
.AllowMultipleValuesOnEnum = True
.Select PropertiesList1
.Sort True
.FilterBarPromptVisible = exFilterBarVisible
.FilterBarPromptPattern = "Inc"
.EndUpdate
End With
|
|
174
|
Can I add different EditFile entries with different filters
With PropertiesList1
.BeginUpdate
.Add("Text File","text.txt",EditFile).Option(exEditFileFilter) = "Text Files (*.txt)|*.txt"
.Add("INI File","text.ini",EditFile).Option(exEditFileFilter) = "INI Files (*.ini)|*.ini"
.EndUpdate
End With
|
|
173
|
Is it possible to expand items/entries when user types for searching properties
With PropertiesList1
.BeginUpdate
.ExpandOnSearch = True
.Select PropertiesList1
.EndUpdate
End With
|
|
172
|
Is it possible to show ticks on the slider control
With PropertiesList1
.Add "Slider",50,EditSlider
With .Add("Slider w/h ticks",50,EditSlider)
.SliderStep = 10
.SliderTickFrequency = 10
End With
.Refresh
End With
|
|
171
|
How can I edit a number between a range or interval
With PropertiesList1
.BeginUpdate
With .Add("Slider",50,EditSlider)
.Numeric = True
.SpinStep = 0
.SliderWidth = 0
.SliderStep = 0
.SliderMin = 0
.SliderMax = 100
End With
End With
|
|
170
|
How can I edit a number between a range or interval
With PropertiesList1
.BeginUpdate
With .Add("Slider","0.5",EditSlider)
.NumericFloat = True
.SpinStep = 0
.SliderWidth = 0
.SliderStep = 0
.SliderMin = 0
.SliderMax = 1
End With
End With
|
|
169
|
How can I add a slider or track bar editor, with a fixed size
With PropertiesList1
.BeginUpdate
.Add("Slider","0.5",EditSlider).SliderWidth = 48
.EndUpdate
End With
|
|
168
|
How can I add a slider or track bar editor, so it covers half of the cell
With PropertiesList1
.BeginUpdate
.Add("Slider","0.5",EditSlider).SliderWidth = -50
.EndUpdate
End With
|
|
167
|
How can I add a slider or track bar editor, so it covers the full cell
With PropertiesList1
.BeginUpdate
.Add("Slider","0.5",EditSlider).SliderWidth = -100
.EndUpdate
End With
|
|
166
|
How can I add a spin editor within a range or interval of float numbers
With PropertiesList1
.BeginUpdate
.AllowSpin = True
With .Add("Slider","0.5",EditSlider)
.NumericFloat = True
.SpinStep = ".01"
.SliderWidth = 0
.SliderMin = 0
.SliderMax = 1
End With
.EndUpdate
End With
|
|
165
|
How can I add a spin editor within a range or interval of numbers
With PropertiesList1
.BeginUpdate
.AllowSpin = True
With .Add("Slider",10,EditSlider)
.Numeric = True
.SliderWidth = 0
.SliderMin = 5
.SliderMax = 15
End With
.EndUpdate
End With
|
|
164
|
Can I use your HTML format to display a property
With PropertiesList1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ColumnWidth(0) = 304
With .Add("I1","link1",Edit)
.HTMLName = "<br>text<off 4>subscript</off><off -4>sup<off -4>ers</off>cript</off> icons <img>1</img>, <img>2</img>, ... pictures <img>p1</i" & _
"mg>, <img>p2</img> <br><br>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<br>" & _
" <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor>"
.Height = 128
End With
With .Add("I2","link1",Edit)
.HTMLName = "<sha ;;0>antialiasing</sha> format"
End With
.EndUpdate
End With
|
|
163
|
How can I display I picture to a property
With PropertiesList1
.BeginUpdate
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Add("Picture 1","link1",Edit)
.HTMLName = "<img>pic1</img> <b>1</b>"
.Height = 48
End With
.Add "Edit","text",Edit
With .Add("Picture 2","link2",Edit)
.HTMLName = "<img>pic2</img> <b>2</b>"
.Height = 32
End With
.EndUpdate
End With
|
|
162
|
How do I display an icon to a property
With PropertiesList1
.DefaultItemHeight = 18
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Add("I1","link1",Edit).HTMLName = "<img>1</img> <b>1</b>"
.Add "Edit","text",Edit
.Add("I2","link1",Edit).HTMLName = "<img>2</img> <b>2</b>"
.EndUpdate
End With
|
|
161
|
How do I specify the height of a property
With PropertiesList1
.BeginUpdate
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Add("Picture 1","link1",Edit)
.HTMLName = "<img>pic1</img> <b>1</b>"
.Height = 48
End With
.Add "Edit","text",Edit
With .Add("Picture 2","link2",Edit)
.HTMLName = "<img>pic2</img> <b>2</b>"
.Height = 48
End With
.EndUpdate
End With
|
|
160
|
How do I edit a float number
With PropertiesList1
.BeginUpdate
.AllowSpin = True
With .Add("Edit","0.5",Edit)
.NumericFloat = True
.SpinStep = "0.1"
End With
.EndUpdate
End With
|
|
159
|
How do I change the step for a spin
With PropertiesList1
.BeginUpdate
.AllowSpin = True
.Add("Edit",10,Edit).SpinStep = 10
.EndUpdate
End With
|
|
158
|
How do I sort the items in a drop down editor
With PropertiesList1
With .Add("Enum",1,EditEnum)
.DropDownItems = 1
.AddValue 1,"First choice"
.AddValue 2,"Second choice"
.AddValue 3,"Third choice"
.SortItems
End With
.Refresh
End With
|
|
157
|
How do I specify the number of visible items in a drop down editor
With PropertiesList1
With .Add("Enum",1,EditEnum)
.DropDownItems = 1
.AddValue 1,"First choice"
.AddValue 2,"Second choice"
.AddValue 3,"Third choice"
End With
.Refresh
End With
|
|
156
|
How do I bold a property
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).Bold = True
.EndUpdate
End With
|
|
155
|
How do I disable or enable a property
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).Enabled = False
.EndUpdate
End With
|
|
154
|
How do I specify a tooltip for a property
With PropertiesList1
.BeginUpdate
.AllowTooltip = True
.Add("ToolTip","",Edit).ToolTip = "This is a bit of text that shows up when the user hovers the cursor"
.EndUpdate
End With
|
|
153
|
How do I specify the masking character
With PropertiesList1
.BeginUpdate
With .Add("Edit",12,Edit)
.Mask = "##"
.MaskChar = 48
End With
.EndUpdate
End With
|
|
152
|
How do I specify a mask
With PropertiesList1
.BeginUpdate
.Add("Edit",12,Edit).Mask = "##"
.EndUpdate
End With
|
|
151
|
How do I edit a number
With PropertiesList1
.BeginUpdate
.AllowSpin = True
.Add("Edit",15,Edit).Numeric = True
.EndUpdate
End With
|
|
150
|
How do I change the foreground color for a cell
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).CellForeColor(0) = RGB(255,0,0)
.EndUpdate
End With
|
|
149
|
How do I change the foreground color for a cell
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).CellForeColor(1) = RGB(255,0,0)
.EndUpdate
End With
|
|
148
|
How do I change the background color for a cell
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).CellBackColor(0) = RGB(255,0,0)
.EndUpdate
End With
|
|
147
|
How do I change the background color for a cell
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).CellBackColor(1) = RGB(255,0,0)
.EndUpdate
End With
|
|
146
|
How do I change the background color for a property
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).BackColor = RGB(255,0,0)
.EndUpdate
End With
|
|
145
|
How do I change the foreground color for a property
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).ForeColor = RGB(255,0,0)
.EndUpdate
End With
|
|
144
|
How do I associate an extra data to a property
With PropertiesList1
.BeginUpdate
.Add("Color",255,EditColor).UserData = "your data"
.EndUpdate
End With
|
|
143
|
How do I get the caption of the property, as it is displayed in the browser
With PropertiesList1
.BeginUpdate
.Add("Color",255,EditColor).ID = 12345
.Add(.Property("Color").DisplayValue,"",Label).Bold = True
.EndUpdate
End With
|
|
142
|
How do I get the value of the property
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).ID = 12345
.Add(.Property("Edit").Value,"",Label).Bold = True
.EndUpdate
End With
|
|
141
|
How do I make a property read only
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).Locked = True
.EndUpdate
End With
|
|
140
|
How do I specify a description for a property
With PropertiesList1
.BeginUpdate
.Add("Edit","text",Edit).Description = "This is just a description"
.SelectedProperty = .Property("Edit")
.EndUpdate
End With
|
|
139
|
How do I get the identifer of the property
With PropertiesList1
.Add("Edit","text",Edit).ID = 12345
.Add(.Property("Edit").ID,"",Label).Bold = True
.Refresh
End With
|
|
138
|
How do I get the type of the property
With PropertiesList1
.Add "Edit","text",Edit
.Add(.Property("Edit").Type,"",Label).Bold = True
.Refresh
End With
|
|
137
|
How do I get the name of the property
With PropertiesList1
.Add "Edit","text",Edit
.Add(.Property("Edit").Name,"",Label).Bold = True
.Refresh
End With
|
|
136
|
How do I select a folder
With PropertiesList1
.Add "Folder","",EditFolder
.Refresh
End With
|
|
135
|
How do I select a file
With PropertiesList1
.Add "File","",EditFile
.Refresh
End With
|
|
134
|
How do I slider or trackbar editor
With PropertiesList1
.Add "Slider",50,EditSlider
.Refresh
End With
|
|
133
|
How do I add a button
With PropertiesList1
.Add "Button","Aaa",EditButton
.Refresh
End With
|
|
132
|
How do I add a check box editor
With PropertiesList1
.Add "Check",True,EditCheck
.Refresh
End With
|
|
131
|
How do I add a color editor
With PropertiesList1
.Add "Color",255,EditColorPage
.Refresh
End With
|
|
130
|
How do I add a new object properties inside the control
With PropertiesList1
.BeginUpdate
.Add "MySelf 1",PropertiesList1,EditObject
.Add "MySelf 2",PropertiesList1,EditObject
.EndUpdate
End With
|
|
129
|
How do I add a new objects inside the control
With PropertiesList1
.BeginUpdate
.Add "MySelf",PropertiesList1,EditObject
.EndUpdate
End With
|
|
128
|
How do I add a drop down editor with some predefined values
With PropertiesList1
With .Add("DropDown","Aaa",EditDropDown)
.AddValue 1,"First choice"
.AddValue 2,"Second choice"
.AddValue 3,"Third choice"
End With
.Refresh
End With
|
|
127
|
How do I add a password editor
With PropertiesList1
.Add "Password","pass",EditPassword
.Refresh
End With
|
|
126
|
How do I add a date picker editor
With PropertiesList1
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
125
|
How do I add a drop down editor with some predefined values
With PropertiesList1
With .Add("Enum",1,EditEnum)
.AddValue 1,"First choice"
.AddValue 2,"Second choice"
.AddValue 3,"Third choice"
End With
.Refresh
End With
|
|
124
|
How do I add a boolean editor
With PropertiesList1
.Add "Boolean",True,EditBoolean
.Refresh
End With
|
|
123
|
How do I add a button or a page editor
With PropertiesList1
.Add "Page","",EditPage
.Refresh
End With
|
|
122
|
How do I add a picture editor
With PropertiesList1
.Add "Picture",,EditPicture
.Refresh
End With
|
|
121
|
How do I add a font editor
With PropertiesList1
.Add "Font","Arial",EditFontName
.Refresh
End With
|
|
120
|
How do I add a font editor
With PropertiesList1
.Add "Font","Arial",EditFont
.Refresh
End With
|
|
119
|
How do I add a color editor
With PropertiesList1
.Add "Color",255,EditColor
.Refresh
End With
|
|
118
|
How do I add an edit
With PropertiesList1
.Add "Edit","text",Edit
.Refresh
End With
|
|
117
|
How do I specify the character sets being included in the font editor
With PropertiesList1
.Option(exFontCharSet) = "0"
.Add "Font","Arial",EditFontName
.Refresh
End With
|
|
116
|
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
With PropertiesList1
.Option(exDateShowScroll) = False
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
115
|
How do highlight the "Today" date is the drop down date picker calendar editor
With PropertiesList1
.Option(exDateMarkToday) = True
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
114
|
How do I show or hide the "Today" button is the drop down date picker calendar editor
With PropertiesList1
.Option(exDateShowTodayButton) = False
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
113
|
How to specify the first day of the week in the drop down date picker calendar editor
With PropertiesList1
.Option(exDateFirstWeekDay) = 1
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
112
|
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
With PropertiesList1
.Option(exDateWeekDays) = "Du Lu Ma Mi Jo Vi Si"
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
111
|
How can I change the name of the months in the drop down date picker calendar editor
With PropertiesList1
.Option(exDateMonths) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
110
|
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
With PropertiesList1
.Option(exDateTodayCaption) = "Azi"
.Add "Date","1/1/2001",EditDate
.Refresh
End With
|
|
109
|
How can I open the drop down editors, using a different than F4 key
With PropertiesList1
.EditOnSelect = False
.EditOnKey = 113
.Select PropertiesList1
End With
|
|
108
|
How do I display the color properties as RGB
With PropertiesList1
.BeginUpdate
.DisplayColorAs = exRGB
.Add "Red",255,EditColor
.Add "Blue",16711680,EditColor
.EndUpdate
End With
|
|
107
|
How do I get the list of properties being listed as a string
With PropertiesList1
.Select PropertiesList1
.Add(" _ toString _ ",.ToString(exLiterals),EditButton).Bold = True
.Sort True
End With
|
|
106
|
How can I display a picture to a property
With PropertiesList1
.DefaultItemHeight = 48
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.Add("Picture 1","link1",Edit).HTMLName = "Pic <img>pic1</img> or <img>pic2</img>"
.Refresh
End With
|
|
105
|
How do I show or hide the properties with multiple parameters
With PropertiesList1
.ShowMultipleParams = False
.Select PropertiesList1
End With
|
|
104
|
How can I add a hyperlink or anchor element
With PropertiesList1
.BackColor = RGB(255,255,255)
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.Add("Link 1","link1",Edit).HTMLName = "Link <a1>one</s>"
.Refresh
End With
|
|
103
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
With PropertiesList1
.SelBackColor = RGB(255,128,255)
.FormatAnchor(False) = "<b><u><fgcolor=880000> </fgcolor></u></b>"
.Add("Link 1","link1",Edit).HTMLName = "Link <a1>one</s>"
.Refresh
End With
|
|
102
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
With PropertiesList1
.SelBackColor = RGB(255,128,255)
.FormatAnchor(True) = "<b><u> </u></b>"
.Add("Link 1","link1",Edit).HTMLName = "Link <a1>one</s>"
.Refresh
End With
|
|
101
|
How do I specify the indentation of the child items relative to their parents
With PropertiesList1
.AutoIndent = False
.Indent = 8
.Select PropertiesList1
.ExpandAll
End With
|