|
252
|
Hide the scroll buttons while keeping scrolling possible via drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 513 ' ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
.Background(213) = -1
.Items.ToString = "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Rep" & _
"lace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
End With
End Function
</SCRIPT>
</BODY>
|
|
251
|
Change the background of the scroll-buttons (EBN color)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABFoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWCQCgkNgzSTAYyDLCIYhkGyPRiASQZUhmHIDTbIEBxf" & _
"IMIxTBQZY7GGgpRjyGpGRjHc70QADFpoTKmabiab5HoSCZDRrPcgxeA0NAPEiPIypaoLDhaEQyDSJNj2TCIahhNSEbauCZYfoyXYDVpNMyVJJEExXFqXZhkO6rajmOZ1" & _
"XpPUjUDS9LRxJiKaYCSwYDBbFIWWTZMS3ZhwASxHC8aRhG5wAxOA5fZTlcS5TSUKzXOYALQ2C4rNq+EZbZbpQAaJi2CRrPifZToKbxYDnEKqWBOcI7Vr0NaBPwaeDhHg" & _
"ugYLRcmSAA1BoXhslMX5ejibY8BsDJeF6FYjmWdyXnARAkiAaQxh0DonCMLh8AARoUhCCY/HiSJaBIKBCF2Jp1CABgRGAQZVF6CYSlCS4CGCOAqAyA5gmgKQJgMB74H+" & _
"BRhHgWgYgYIJIE4Cgnk6M52CCCIiBiDgjgcUA4DIJoJGKSIQn2CgAAgMIcDoT5Yk4NYNCMaJaDCAwJPgfYPGOeJ6ECEAjjgKIPDeD5ZB4SYSCSKQqEUMpIGMYJ9hQZQ5" & _
"EoVIVCScZwlAPxlikchbhcZZZDwcgyE+WYOGWGQmGmGhPBoDAjnYbIbiaWY+G+E5GAKcJ9h0Zx5loeIeCScRkjcPxnmoAh/iAaAZDwVAsk+WgegmIgoioKhPBWCxDnqE" & _
"NHBoToThOR4DByftYjoaocicJK7k0P4qCqEojikahZDyGA1A+aoui2KwqmqOhPCoTYTnqNODFqXo3hOSxTGye4vGuep6kCMAknKUJRDqbBrCKR4yGyGQ+BCAxtAsPQJD" & _
"qWx0A0ASAgA=="
.ArrangeItemsAs = 513 ' ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
.Background(119) = -1
.Background(213) = &H1000000
.Items.ToString = "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Rep" & _
"lace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
End With
End Function
</SCRIPT>
</BODY>
|
|
250
|
Change the background of the scroll-buttons (solid color)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 513 ' ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
.Background(119) = -1
.Background(213) = RGB(240,240,240)
.Items.ToString = "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Rep" & _
"lace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
End With
End Function
</SCRIPT>
</BODY>
|
|
249
|
The margins appear cut off when the control's content exceeds the viewable area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 513 ' ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
.Background(119) = -1
.Items.ToString = "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Rep" & _
"lace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
End With
End Function
</SCRIPT>
</BODY>
|
|
248
|
Show scroll buttons to allow scrolling the content when it does not fit within the viewable area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 513 ' ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsHorizontal
.Items.ToString = "File,Open,Save,Close,Edit,View,Print,Export,Import,Settings,Help,New,Delete,Refresh,Undo,Redo,Copy,Paste,Cut,SelectAll,Find,Rep" & _
"lace,ZoomIn,ZoomOut,Sort,Filter,Sync,Backup,Restore,Lock,Unlock,Share,Download,Upload"
End With
End Function
</SCRIPT>
</BODY>
|
|
247
|
How can I replace or add an icon at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
.ReplaceIcon "C:\images\favicon.ico",0
.Items.ToString = "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
246
|
Display a custom tooltip
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_MouseMove(Button,Shift,X,Y)
With ToolBar1
.ShowToolTip "new content","",,"+8","+8"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
245
|
Shows the tooltip of the object moved relative to its default position
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_MouseMove(Button,Shift,X,Y)
With ToolBar1
.ShowToolTip "<null>","<null>",,"+8","+8"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Items.Add("ToolTip").Tooltip = "This is a bit of text that should be shown when cursor hovers the item"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
244
|
ImageSize property on 32 (specifies the size of the control' icons)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ImageSize = 32
.Font.Size = 16
.PopupFlatImageWidth = 32
.PopupAppearance = 1
.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
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.Background(70) = &H1000000
.Background(71) = &H2000000
.Background(72) = &H3000000
With .Items
With .Add("Item")
.Image = 1
.Check = True
End With
.Add "",1
.Add "Item <img>2</img>"
.Add "",1
.Add("Item <img>1</img>").Image = 1
.Add("").ToString = "Popup[img=1](2[img=2],3[img=3])"
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
243
|
ImageSize property on 16 (default) (specifies the size of the control' icons)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ImageSize = 16
.PopupAppearance = 1
.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
With .VisualAppearance
.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
End With
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
With .Items
With .Add("Item")
.Image = 1
.Check = True
End With
.Add "",1
.Add "Item <img>2</img>"
.Add "",1
.Add("Item <img>1</img>").Image = 1
.Add("").ToString = "Popup[img=1](2[img=2],3[img=3])"
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
242
|
How do I get the item's value without the place holders (exclude mask-characters)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_EditChange(Itm)
With ToolBar1
alert( Itm )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ToString = "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
End With
End Function
</SCRIPT>
</BODY>
|
|
241
|
How can I generate/create a progress/step bar for installation
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .VisualAppearance
.Add 2,"gBFLBCJwBAEHhEJAAEhABfQCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwH" & _
"IERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSW" & _
"JamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMw" & _
"yDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BI" & _
"RoRFQDAoEIW4WgkawGBEcRSBOAQQhaJgmgmYoIiYKoKmKSI2C6C5jAiLAkAcDpYk4NYNCMaJmDiDpjHidg6g+IxIhYMYQmQSQWEaEZiHifhKg8JI5AIToNiQKQiFKFJl" & _
"EkGhNhWZJJGYT4QFAORWF6F5mAkJhahYJY5hYUBAmOeI4n+GpmkmNhuhuZwJkYcocmcSZWG+C4mEmZhjg8EIZDYaodigCgGgKIJnBmYh7hmKB5hwAIZCeegSg6I5pAmN" & _
"oGiIKRIn4fYiGMSg2hGJppkmVoTh6KRKF6FYmGKWh2iaKZnHiNoghkKgqi6JILTKRonieaYJDqLYtGaGoWjKLppBqUojDsax6n6OYsCuSwWgSL4qkmIo4i0aYrBqTodC" & _
"yCRqkGK4mFsNpPjWaoYjLlRsjsCovgqbYLgYcI0GxhZejmbRrgqWIvi0Ox2lSOhuisPoTjsbh7j6Oo8G4KI6nSNQvGsEp4jgb4rhqfI7i2eIqn+Phqikcpcj0bZbkMB4" & _
"um6TALASJQwmwPoxjkL48E4NpFHEapPAmGRxhuIp3kcbBbhKFpEjCQ43BySQpkzjZKC+W4DCySRxnsUwhh+Mg8k8F5NHEPJeDySpzioPwui+c5sisOZQGobQPDaTAzn0" & _
"HxIksc5MicJ5CmwPJLE+R4tiwao1jAdANF6AZSjWKJ2iKGB2E2FhFkCcoZEcZpanaSM7FucItjccpbDcDRLAoHUXIKANACICA"
.Add 1,"CP:2 -8 0 12 0"
.Add 4,"gBFLBCJwBAEHhEJAAEhABNoDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwH" & _
"IERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSW" & _
"JamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMw" & _
"yDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BI" & _
"RoRFQDAoEIW4WgkawGBEcRSBOAQQhMbIkA6IhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJl" & _
"AkUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJDimMhvh6Z4kCYSxqGgCgEngO4NioDoFiEKBqCaCIimgeg2gqI4okoP" & _
"tHGkShChaIBpgMDh6iaZppC4fobimGgKhXVBqhKJoomqCoWimIYqBoAoch8KZZkAAIeiqVomieKorgqXo6iqa5KDaNRpiqewGjKK5rnMDo7i4a5bB6SovGwWwKjAOxpn" & _
"sPhCjEbI7CKVo1G2Cgyk2LBtCsDpchcbRLCaYo1m4OxklqNptlkepRjOLQ6n6Zo7m4W5Gj6L5ukseppjgLprkqcI5C+SoSmiK5ujsfwCDsbgbnaepBnAa5OjWQAQDuVp" & _
"PkEb48EcCI/i8SxzAGPZwDwQwTkacIal6f4SDEfA6jSPhxw6EouDGexDA2QJyCkIwakkcwMh8FJCm8bI3BiQQyEzo5HCwXIHCyT5lmyPw6kwc5Kn8PpNmwTJnDuUQ0kq" & _
"MwVkqKw9AMDpQjSPQOlWSh0HyWpti0dRtFcCJKGYDIvEiNw1E0NxekIdgMgMYpWiQDYXF2WYvk2JpqlqdQsjsJUXAbR9C+E+IYNQOwPBxFcGwfYzRji5CeLsUo0xbhwB" & _
"4E0F4vR3C6EKJ0YgbwOBWDOFYdonA7AzF2PALgjRWjCDiLoZw2xmByC6A4Coyg4i8BcPsH49AODXBmMkagPBWC7EWPIDoXwKjODeNQewxQxD3A6M8Oo3R7idHWFMa4YA" & _
"0BPD6OEfAngXiNG+PQXwThQjjHyJ4N4nRyB2F8FICQdRcgoA0AIgI"
.Add 3,"CP:4 -8 0 12 0"
.Add 6,"gBFLBCJwBAEHhEJAAEhABFIDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhEMgxDREIwjEKEIhoGQcJAGQBJCjWGodQLOEgwH" & _
"IERQjEyUpIgFBIYhzEAZJ5jOioaBOCY0TxCNCQG5oOBIACqariagBUoKUwADCNdIVfIUQBFDYZabjeooJpmWJWRbJQyiLaVaQSGoYLqgO6LajWIJORpZcB1BK2Cy5FSW" & _
"JamCYpEwXBY6TpIFKXDIsOSDIqvaKpDI4WxMH4JYELOy4aYPJgAaYweSTTi8CYzMSOLIpOCcCADH4DWjAeh1DAdPzdNytY4uO5YRrzRZ5RDZOgQTq4AZrXbHJpwehZMw" & _
"yDmEwMmieBch4ExDk2Cxvi4HAMi6MhTlQGBrnsA4dhQapNGqXBzCMfgaj+DgHkSYRfHiVx+EeSxIAAaBYEaVZfHQXpXngCBCEUAYkGMHQHFGSBlEGUISCgFRAkQIQ2BI" & _
"RoRFQDAoEIW4WgkawGBEcRSBOAQQhAVJCCWIhoiIJ4KGKSIuC6CojAiNgxguYwolYNINmMOJmDaDojgiJAkAcDpYn4QYQCQKQWESEZkDkJhGhKJAIhYPYTmOSRGDuFJl" & _
"AkUhShUY4JC4WoSCWOQyF6EIkmkXhihWJhJGIY4ZiYWJCF2GplkmNhfhMUA5iYcoaCcSYeHaHJJGmMhvh6Z4kCYSxqGgCgEn+IJoEoFoGiGaIKCaCoimiSg2geIBpAMD" & _
"h6iSZppC4fobikGgKg6JppkodoeiIaYaAKFIfCkWZAACHoqBaJofiqapKjaD4qGkKoWiSHppHqTowDCapqmaOonCses9C0ag6l6O4wmwSo+imL4rCsAoyh+awLBaToxC" & _
"uWwukkQJsgkepCjObYKjqUYsmkaxSlKLYslsZpiiebY6n6Xo3C2exemOOpomuFpTimbZ7Faao7C8SoCjCHxua4QY4G8W52gaO4khsKpokCZArk6fo/jADAKnqPBkAwGw" & _
"Hj0bY8CsDJBCSDA7A+OwrHwSwUkacRsamRhvhwTwLDscZcHqWZEHIHBunuKhyGudwJkocg5HcJZLGybACGCTAyCoYp8k0MZ7l6b5MHO/w8jqcxpjsGo8jOPVAFEaxMmM" & _
"A5MnSKvlD4LwMHMSZUGwXROl+UZ0BqBxYkmc5sioSJXCSHRDF+Kw1iwbxklmNh7hMYZQCWbBrGyWxpl2JxwkCG4PYpQbi7DODsRozwtjwRGAUYI8BOArCmLgLQqAngNG" & _
"KPETgbwOjDHeLsXQBxjjyE4K8FoyA2BcGcG4AAHQ3BKKUIAgI"
.Add 5,"CP:6 -8 0 12 0"
.Add 8,"gBFLBCJwBAEHhEJAAEhABSoCg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGIaRWgmFgAQhFcZQSIEEhHBKMYwjOJgFgmEQyDCNAEwXDSEQ0DIOEgjGAkRxtDQZIRnGA5B" & _
"iGI4RSbKMgwPBIZxCGSfIzpGKqAiCN42UCNFByXAgbyPKibJBBeK4dgOEYhVg7IaCIAFRTJCyTRpEWybLgkNQwWzAdr3DTMTQ3LavKbvKoaYi2L4xSCNEi3VK8dwlJye" & _
"KbpWA5IpKCZEQLRU5UXC+KA/OyBY7xHBIXpGU6PVZOVYSHTUE4vAauQAzKQoDqGY5la7aE5WVZkIznWy4Ih0TMcTgBPDVM4qCapJr3DqRRDKMxUfimF57J5hehADoWDw" & _
"7kSFRLDsFReEiUBxiOJRCHgEQdE6egti6MhZjqWJNiaTppjeNxuGMdYJP+AZlmERb8hARAkiAaQYkcQZUHIGRZIOVgDFAMQIE2AZRiQVQDAoEZEHkTgGBEcICAgfiDlS" & _
"QgliGKByBuBxiSSIoHiISIGCWCJiGgdAkAcDpYi4LYLCKaJGDCDJiniVgyg2IpIiYKIOmIeJ2DqD4iDiXhCg0JA4mIRoLiOeQmDyEokAidhFhOZBJEYR4OGSORWE2Ewk" & _
"kkQhThaZYnFIXh0E+eYGGKGJmEmFhmhmZZ5iSQ4WiaSRKDeGomAmHhyhyZxJkIXobGWSY6CyHYnEmdh+hkZxnFIeIgmeOZCH+IZogoBZRiEJ4TjYfIiCkCZ+gqGpnioN" & _
"guiOaQaGYfYkmiSY+gaJoqAoboKicaBZiqIYpmoKgGgyJgqgqNhoiiaRaF6H4risSo+iqJRqkqVo6hkKZJEqOYumwCYKj2DRrnsBpGD+bA7BaR4xmkOwqkuMBslqTpPj" & _
"GLIbEqU4tGwOpKiaNZrEsZg0jOLZKB6XoRi4C4GHOOJkFuFpmi8KwKFqJYaG6OomHaKQomsWpxjCLpblK9F6kaPo9i2S52m6OQwAsLwCj0LYrkKV5Bm+ag2nuKZwkwDh" & _
"djQcRMFYcJCDCWh7BaRptBwYwSjecZMgcF5GHITAMmsboQDQBCAg="
.Add 7,"CP:8 0 0 12 0"
.RenderType = -2130772226
End With
.Locked = True
.Images "gBJJgBAIEAAFAEGCgAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaKEaj8ZAIAEEbjIylErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0Wj0ml02n1Gp" & _
"1WOh8Sh1q1ux1+yf9m2mu2tx1tp2+81+638w3ds4dn3vE2fBu/FrW353J3Nk49z5lt6tc68r7Ni6dy7e+6Nf78a8fi6F68u25Ve7fprPP8Pq+Mt91U9P1q/w2Hn63n/D" & _
"mv89b+vm1cCwNA8EQTBUFwYtyLB8lkII8kCRI0kqSo2cEMJy/8Grsf5+Aef5gRBERgIyf5/REcEUxXFEVH/FkYHBFB/xEeCHRujJ8A8R5AnRHkfHQjJgACdgAA9Isjg8" & _
"jJAACfAAA/J0oA/JsnyjKcoytKksyqjR4AAB6MzBMUvzDMczzNMsyI3NgATdNE1zTOM6ABLsuy3LEry9O89yIAZ+AAH5gUBQUdg+f5An+fFEUUjKAgA=="
.Images "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlkZQcZZ8ZVkymkYVMZOUtjB1moAmcYn8+mEZQk6lsvjExoE9oM3jE5nU8pdTo" & _
"VUpQAotGldIAFXoNfjNOAFQltSqtnsFJolardDqlpAFiskss1wuFXrNsjRojJ/jIkv+BjBpnFGsxrwQAwEYxYAQEZwl6vd9xONxuRseGjOIxmVjOPweSycYv2d02KyGF" & _
"qObz2n0AAzGivmk1uo0NPzUYzm23mN1+xyRhjJqyRY1VljJayRsjJj0UZ4UY4l64241cY5V65kY53PAHRAHTtnVzPXAHZtnbAHd5/g8Va8lzldm9Fa9Xs0Xu4vHunJ5b" & _
"mu877hv26zkOw/7uQC/TqP4+b/O1ADvQW8cGpU+kEPXBUBr0LjPoyDUPpcjIvQw/Dgw2tkOow18QIxFoAK5EkIQTCUUK1FTHRDF0RIxGT0wi9sbKNHEWR1GERxLDTpMk" & _
"OiMmUjJPSgjJloyO0kxrJa9SajEnoxKMvSnKsryDLK2S2AEugBL81TCjErRnDMsPDJknSlMCMSpN0xvzISdA+jKOAAFaM0GjFAz/OETL1CatUQjdCUhQyM0c+0gT5MtG" & _
"0BSNBU0jFKKM+8lTmvVHUDQtOUlT09xPTEA1cljZgAL9RPfV9bNHWVaVvXdcVnOVa15V9Y18locIyCaMicjIo2DXgioyIljoyG6M2MjFkIxZSMWZZtb2ejFo2vadq2lb" & _
"Nl27b1oXKAFqIxawAWwAFtABbl0Vdb4AXDeFxowUSMiOjIWoyDl7Veg6MAujIkIyT6M38jGAIxgSMYJgsA4OAGEoxhaMYbft/4DgeLYujONABjgAY8AGHgBiIAYmAGK5" & _
"G0WMZNlGVBUjJGozHAMZm54LIyLedIyE6M5yjGdoxnuftFoKMaHpOi6Pomlozn2mr1p4AaiAGlABoyMaRr2eavrOtaFquwIyBCMh2jI2ugjKUpHn6SJQjIxbgjIdIyA+" & _
"2bdvaMPBugAbvkfD8LvSMbijG+oxv6MbajG38ZuW8brmfE7zwQAceAHIgByYAcqAHGwFzHDbtufOctx2/JX0YgxRYgNoyA1m9xiiM2IzAgcAnXZdojPbIx3VeePmXeoz" & _
"3/JKN4Uy9r2/c5EjHlox5vReejPZ+j4np2D5PeNT7HgLZ0PPteKqMpNyEA9D9oACujJIIyJqMgl9++Q8jH1ow/F0Jon4EZfmRh+pGH7kYfyd59D/AAP+JK7CBj7ICP0f" & _
"s/h/Tr0VkZghACDMESMQFABAcAECQAQLVeQkjAJWGIPAAo5jBLGMKOa6ywMq5yMAsVvCoAELGOwuhgUaGbaWPkYhutsjMOlbQ8h8ymIBGYYkriG1BhxGYjr0iTDsjMTW" & _
"VHoiCTqKbXIqxGhwACJSvHQgiIyHqK0WyjRNiuHmNxGAnkZCoRkF6zY0xrjbCuN8fQARyj9HSO0eI9EZjURiNkZJBktjgRmQUPSMx1IxHcjEeVgx7kVICJpLJHkYkjE2" & _
"SgAJLAAkwugAZGQZJADMyEjALiMhngcHwjIbyMiVIyG4jIMGCypIxKtGgAJWsSIzLAjEsoNkYloRiWxGJcEYl0RiXi9pfAAmAnGYUrgATGABMhHMypay3lzLuXsqpWTa" & _
"m5N418ywATNABM8AE0QATTZGxgGsgHTuniuSAjARnLztYU99mc9p8Odn2Rmfzg5wsboFPUjM95GOmoMR+hE/53MoeLQ4jFEAARXnzICfgAKEuooBQwjFGWmuHBSRkP1L" & _
"CM0rcy2dANKqXEYpaRimDqqZUzpfTUAFNwAU5cPTs0VNKbU+qFURYLGIo1KW7UypzFqoVRXtVNmZFQfErqyR2ihGCROqqGAAeCtyHgAGAGAPgBgD1nrS5EZwbw+DmHvW" & _
"+uI9yMV0rlXiuwAK9V6rvXCvNgK9jOAeHwcFc7C2HKSP8Pg/x7jPsZY6xdjbH2Rr3ZCylmLJAAAeP8QA/x8Wds+PgjFnSGjwtMP+sYABDj+AwH8cNrbXjhIxbK2FtraA" & _
"AGGPwPgPxj27t6McjA8R4B/A+Ae4lxnIj4DAH8QwB7mXOciPwAAfxgAHupda6d1br3ZuuRgf1nRwD/vCP+8ZGB/ifH+Pkh16r2EYICA=="
.Images "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0akQAGMZI80jMzjExl87nk9n0/oFBoVDolFo1HpE9B0ZJcZSkZYEZaUZa" & _
"9UqVQp1MjNLpNdr1fsFhsVjsAFjItjJ5jK4jK2jKejKDjJxudxt9ttdps8Zs1kv1/wGBwWCtEYPcZY15jB3jI/jIajIHyOPxsZxkYtkYxOGveDz2f0Gh0NcAFqjDHjKy" & _
"jI9rdd0msjGq096jGk0W33G53U8JkZXOKAGwAAGv3EjHCzIA5NN3fN53P0NPjC3y2tnsHjAJo2ky4A6kY6XQ8Xj8lGCsZX93jBAnwkjJbjKBjI6jIPoXsjFwjHpjAT8r" & _
"/wBAKThkjJprsjDIJclKMDUjJeIybaMkwjL8AA+yewSAC5IwqaMBhAUQRC6AkIybCMjkjIEJeJqMlbAqMlQjJ0IySyMh8yaXRUjEUIwqqMCNEUgyE0USIxE0dxSl4Zoy" & _
"KaMyAjCTIwQ6MmgjJRIyHaXx0AEeABHwASfIcxTGskCIxAyMQ2AEMpZC4AAsjIIIyhKMBNA4AFKjI6JfDM1Q6AEPzJQVBqS879vUAEKq9QIACojIkpfCr9AA/iGUJS9M" & _
"KI8LvgA7oGtA7iM048NM1LUyet6jDfumjIeIy4yx1g4VOOXU9bVuljSNMADNgA2TguspDXtSxDaAA21cWTZLCgAPiMtQzDqowx0ERwADJWradpOVYrOIxZllXDZS+gAF" & _
"yMj031RURNS6IxdsNURTlVtKzoAXJcV8Xy0lUgASqsQ4q0equjCooxfyMX5ZF84Xhid0MmSbIwmqMJwAGH4bjFTorG6VY4ACPIwkCcoykiSI0eCjIeAB/AflCWZRlyV5" & _
"glqojglpBn5OSWEOf2dJWR5f58lWgaEk4HA+lwGTclYGCGlwHnHp+opaR5/6KjWeauuOc5oAGbJZmqW5mlmWZilSAgA=="
.Images "gBJJgBggAAQAAgACkKAD/hz/EMNh8TIRNGwAjEZAEXjAojJQjMLjABAAgjUYDMnlUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpE5g8YCcZBMZpc1qNPj" & _
"ASqFJrFZrVbrlYBUZH8ZKcZHcZC0vC8ZHtitVOrtvuFxuVzjARjJsjLHjKpjJZjIfjMmjBbjKtvMZM8ZCF0xmNx2PnALjJFjLMjL4jLjjK8jLAjLky8ZZcZIEZr+Q1Gp" & _
"1WOAsZD0ZYcZf0ZfMZd8ZeG02UZYUZDcZhOr4XD4lIqIOjK6jL63cY2fO5oA2sYW8ZBkZknF7Xb7k0qN2jGUjF6jHTAHP8/R9GYjDEjJCjIPq/d+n14nZAHgABEjLIjJ" & _
"4vVALoQGADcva0jFOw+0FwYujFowLSMmajJ6oyfkBPTAj0PRC6MQqjBlIyK74wbEsTK0iKMDIjJZNEjJtoydyMn3DDmIwdiMm0jMQowWKMjCv8TyFIahgqjIarYjAvoy" & _
"NaMkyjJpQwaCMksjI1IyLyMikjIZpDIkvzArgaIyScZzMjBHoyGMwzZNrHtOAAsP/GKMiqjIDzdPM9Le/EkIwUyMlCjMxpHPdDUOrMjIw/iMCDL1EUhSKigG6yMskjFK" & _
"UlTVN05TtPU/UFQqwiofJXUqOo/R4AJI/CMQMnKHolV6VIdWaT1qlp8njWyNHwANeMvX6W19YCMWJYdhJY3NigAzw4JbZ1oABZ6WH8B9mWtZh/k/bVuJbbdtH/cNmICA" & _
"="
With .Items
With .Add("",2)
.GroupPopup = 35 ' GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add(" <img>5</img> Home")
.BackColor = &H7000000
.ItemHeight = 36
.Alignment = 2
.ForeColor = RGB(128,128,128)
End With
With .Add(" <img>6</img> Gebaude")
.BackColor = &H5000000
.Alignment = 2
.ForeColor = RGB(128,128,128)
End With
With .Add(" <img>6</img> Aussttung")
.BackColor = &H5000000
.Alignment = 2
.ForeColor = RGB(128,128,128)
End With
With .Add(" <img>3</img> Produkt")
.BackColor = &H3000000
.Alignment = 2
End With
With .Add(" <img>4</img> Rabate")
.Alignment = 2
.BackColor = &H1000000
.Enabled = False
End With
With .Add(" <img>7</img> Ergebnis")
.Alignment = 2
.BackColor = &H1000000
.Enabled = False
End With
End With
End With
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
240
|
Is there any function to retrieve all available shortcut keys
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Background(144) = RGB(0,0,1)
.Background(145) = RGB(255,255,255)
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "3"
End With
End With
End With
End With
End With
End With
.Refresh
alert( .ShortcutKeysInfo )
End With
End Function
</SCRIPT>
</BODY>
|
|
239
|
How can I display shortcut keys with a different size
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyFormat = "`<font ;14>` + caption"
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+SHIFT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
238
|
How can I display shortcut keys with a different font
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Background(144) = RGB(0,0,1)
.Background(145) = RGB(255,255,255)
.ShortcutKeyFormat = "`<font Stencil>` + caption"
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+SHIFT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
237
|
How can I change the visual appearance of the shortcut keys (sample 3, theme)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.VisualAppearance.Add 1,"XP: Button 1 1"
.Background(143) = &H1000000
.Background(144) = RGB(0,0,0)
.Background(145) = RGB(0,0,0)
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
236
|
It is possible somehow to show all available shortcut keys (sample 2)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_SelectItem(Itm)
With ToolBar1
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
.ShortcutKeyFormat = "`<c><font ;6><fgcolor 808080>` + sca + `</fgcolor></font><br><c>Key:` + keys"
.ShortcutKeyPressedModifers = -65536
.ShortcutKeyFormat = ""
.ShortcutKeyVisible = 4
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+CTRL+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+SHIFT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
235
|
It is possible somehow to show all available shortcut keys (sample 1)
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_SelectItem(Itm)
With ToolBar1
.ShortcutKeyPressedModifers = -65536
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
234
|
How can I show the shortcut keys semi-transparent
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Background(143) = RGB(0,0,0)
.Background(144) = RGB(0,0,1)
.Background(145) = RGB(255,255,255)
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
.ShortcutKeyTransparent = 50
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
233
|
Is it possible somehow to display ID of each item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Debug = True
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
232
|
How can I change the visual appearance of the shortcut keys (sample 2, EBN)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(143) = &H1000000
.Background(144) = RGB(0,0,0)
.Background(145) = RGB(0,0,0)
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
231
|
How can I change the visual appearance of the shortcut keys (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Background(143) = RGB(0,0,0)
.Background(144) = RGB(0,0,1)
.Background(145) = RGB(255,255,255)
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
230
|
Can I show the shortcut key right after the item so it won't overlap it (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyExtPaddingH = "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
.ShortcutKeyExtPaddingV = "16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2"
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
229
|
Can I show the shortcut key right after the item so it won't overlap it (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyExtPaddingH = "width/2, height/2 ,width/2,height/2"
.ShortcutKeyExtPaddingV = "width/2, height/2 ,width/2,height/2"
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
228
|
Can I specify padding for shortcut keys (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyPadding = "8,8,8,8"
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
227
|
Can I specify padding for shortcut keys (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyPadding = "0,0,0,0"
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
226
|
Is it possible to specify where the shortcut keys should be shown
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyAlignH = 0
.ShortcutKeyAlignV = 34
.ShortcutKeyVisible = 292 ' ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
225
|
Can I use different shortcut modifier keys for items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT + CTRL + 1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "CTRL + SHIFT + ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "3 + 33"
End With
End With
End With
End With
End With
.Add ""
.Add "Press <b>CTRL or ALT"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
224
|
How can I disable a shortcut key
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Enabled = False
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "3 + 33"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
223
|
I have noticed that the shortcut keys are still visible while I clicking the control. Is it possible to hide them as soon as user clicks anywhere
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyVisible = 260 ' ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "3 + 33"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
222
|
I have a shortcut that's not currently visible, the question is if I can invoke somehow
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_CheckItem(Itm)
With ToolBar1
alert( Itm )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyVisible = 132 ' ShortcutKeyVisibleEnum.exAllowShortcutKeysIfNotShown Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "ALT + 4"
End With
End With
End With
End With
End With
.Add "press ALT + 4"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
221
|
Can I specify a longer delay to display shortcut once the user presses any modifer keys
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyVisible = 68 ' ShortcutKeyVisibleEnum.exLongerDelayShortcutKeys Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "3+33"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
220
|
How can I display extended shortcut keys
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyVisible = 36 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "333"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
219
|
Is it possible to disable the shortcut keys, whithout changing the Shortcut property
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyVisible = 52 ' ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or ShortcutKeyVisibleEnum.exDisableShortcutKeys Or ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
218
|
How can display the shortcut keys only when modifier keys are pressed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ShortcutKeyVisible = 1
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "3+33"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
217
|
How can I assign a shortcut key to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.PopupAppearance = 6
With .Add("",2,10)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = -1
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = -1
.Checked = -1
.Shortcut = "ALT+2"
End With
With .Add("Item 3",2,40)
.Shortcut = "ALT+3"
With .Items
With .Add("Sub-Item 3.1",0,50)
.Radio = -1
.Checked = -1
.CloseOnClick = 0
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = -1
.CloseOnClick = 0
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
216
|
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.Add "Item A",0,1000
.Add "Item B",0,1001
.Add("Item C",0,1002).Position = 0
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
215
|
Is it possible to have a popup on a radio button when it is checked
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ToString = "[group=0x03][id=0](Link[id=10][typ=2][grp=100][chk=1],Move To[id=20][typ=2][grp=100][spchk][arrow=0]())"
With .Items.Item(20)
.Items.Add "Item A",0,1000
.Items.Add "Item B",0,1001
.Items.Add "Item C",0,1002
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
214
|
Is it possible to minimize the control, once the user clicks a button
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_CheckItem(Itm)
With ToolBar1
ToolBar1.Items.Item(-99).Visible = ToolBar1.Items.Item(-999).Checked
alert( "RequiredHeight" )
alert( .RequiredHeight )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_UncheckItem(Itm)
With ToolBar1
ToolBar1.Items.Item(-99).Visible = ToolBar1.Items.Item(-999).Checked
alert( "RequiredHeight" )
alert( .RequiredHeight )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
With .Add("Normal",0,-999)
.Check = True
.Checked = ToolBar1.Item(-99).Visible
.X = "width - iwidth"
End With
With .Item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
Set var_Item3 = .Add("New Page")
With var_Item3
.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 200
.Caption = "Page1"
.ShowPopupAlign = 1
With .Items.Item(0)
Set var_Item = .Items.Add("New Group")
With var_Item
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>A"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
With .Add("",2)
.GroupPopup = 17 ' GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
End With
End With
End With
End With
Set var_Item1 = .Items.Add("New Group")
With var_Item1
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>B"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
With .Add("",2)
.GroupPopup = 289 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("C1")
.Check = True
.Checked = True
End With
With .Add("C2")
.Check = True
.Checked = False
End With
With .Add("C3")
.Check = True
.Checked = True
End With
End With
End With
End With
End With
.Items.Add("",0,0).Padding = "4,0,0,0"
Set var_Item2 = .Items.Add("New Group")
With var_Item2
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = ""
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
With .Add("",0)
.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = 0
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("",0,0).Padding = "4,0,0,0"
With .Add("Button2",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
With .Add("Popup",2)
.Alignment = 1
With .Items
.Add("Item 7").Check = True
.Add "Item 8"
With .Add("Item 9",2).Items
.Add "Item 10"
.Add "Item 11"
.Add "Item 12"
End With
End With
End With
End With
End With
End With
End With
End With
End With
Set var_Item4 = .Add("New Page")
With var_Item4
.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 300
.Caption = "Page2"
.ShowPopupAlign = 1
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 75
End With
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
.PopupFlatAppearance = False
With .VisualAppearance
.Add 1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn"
.Add 2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn"
.Add 3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn"
.Add 4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn"
.Add 5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn"
.Add 6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn"
.Add 7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn"
.Add 8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn"
.Add 9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn"
.Add 10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn"
.Add 11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn"
.Add 12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn"
.Add 13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn"
.Add 14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn"
.Add 15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn"
.Add 16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn"
.Add 19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.ForeColor = RGB(21,66,139)
.SelBackColor = &He000000
.LocalAppearance = 6
.Appearance = 16777216 ' &H1000000
.Background(64) = .Appearance
.Background(2) = &Hd000000 ' &H2
.Background(105) = &H5000000
.Background(106) = &H6000000
.Background(107) = &H7000000
.Background(108) = &H8000000
.Background(116) = &H9000000
.Background(117) = &Ha000000
.Background(118) = &Hb000000
.Background(110) = &Hc000000
.Background(112) = &Hf000000
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
213
|
Is there any debug option, so I can see the IDs of the items I have in the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 1
.Debug = True
With .Items
With .Add("Expand",2)
.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Check = True
.ShowPopupOnChecked = True
With .Items
.Padding = "22,0,0,0"
.Add("Radio 1").Radio = True
.Add("Radio 2").Radio = True
With .Add("Radio 3")
.Radio = True
.Checked = True
End With
End With
.Checked = True
End With
.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
212
|
Microsoft Office - Ribbon Like - Minimized
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
.Item(-99).Visible = False
With .Item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
Set var_Item3 = .Add("New Page")
With var_Item3
.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 200
.Caption = "Page1"
.ShowPopupAlign = 1
With .Items.Item(0)
Set var_Item = .Items.Add("New Group")
With var_Item
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>A"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
With .Add("",2)
.GroupPopup = 17 ' GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
End With
End With
End With
End With
Set var_Item1 = .Items.Add("New Group")
With var_Item1
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>B"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
With .Add("",2)
.GroupPopup = 289 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("C1")
.Check = True
.Checked = True
End With
With .Add("C2")
.Check = True
.Checked = False
End With
With .Add("C3")
.Check = True
.Checked = True
End With
End With
End With
End With
End With
.Items.Add("",0,0).Padding = "4,0,0,0"
Set var_Item2 = .Items.Add("New Group")
With var_Item2
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = ""
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
With .Add("",0)
.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = 0
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("",0,0).Padding = "4,0,0,0"
With .Add("Button2",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
With .Add("Popup",2)
.Alignment = 1
With .Items
.Add("Item 7").Check = True
.Add "Item 8"
With .Add("Item 9",2).Items
.Add "Item 10"
.Add "Item 11"
.Add "Item 12"
End With
End With
End With
End With
End With
End With
End With
End With
End With
Set var_Item4 = .Add("New Page")
With var_Item4
.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 300
.Caption = "Page2"
.ShowPopupAlign = 1
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 75
End With
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
.PopupFlatAppearance = False
With .VisualAppearance
.Add 1,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_background.ebn"
.Add 2,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn"
.Add 3,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn"
.Add 4,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn"
.Add 5,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn"
.Add 6,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn"
.Add 7,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn"
.Add 8,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn"
.Add 9,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn"
.Add 10,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn"
.Add 11,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn"
.Add 12,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_select.ebn"
.Add 13,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn"
.Add 14,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn"
.Add 15,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn"
.Add 16,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn"
.Add 19,"C:\Program Files\Exontrol\ExToolBar\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.ForeColor = RGB(21,66,139)
.SelBackColor = &He000000
.LocalAppearance = 6
.Appearance = 16777216 ' &H1000000
.Background(64) = .Appearance
.Background(2) = &Hd000000 ' &H2
.Background(105) = &H5000000
.Background(106) = &H6000000
.Background(107) = &H7000000
.Background(108) = &H8000000
.Background(116) = &H9000000
.Background(117) = &Ha000000
.Background(118) = &Hb000000
.Background(110) = &Hc000000
.Background(112) = &Hf000000
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
211
|
Microsoft Paint - Ribbon Like - Minimized
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
.Item(-99).Visible = False
With .Item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
Set var_Item3 = .Add("New Page")
With var_Item3
.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 200
.Caption = "Page1"
.ShowPopupAlign = 1
With .Items.Item(0)
Set var_Item = .Items.Add("New Group")
With var_Item
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>A"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
With .Add("",2)
.GroupPopup = 17 ' GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
End With
End With
End With
End With
Set var_Item1 = .Items.Add("New Group")
With var_Item1
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>B"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
With .Add("",2)
.GroupPopup = 289 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("C1")
.Check = True
.Checked = True
End With
With .Add("C2")
.Check = True
.Checked = False
End With
With .Add("C3")
.Check = True
.Checked = True
End With
End With
End With
End With
End With
.Items.Add("",0,0).Padding = "4,0,0,0"
Set var_Item2 = .Items.Add("New Group")
With var_Item2
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = ""
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
With .Add("",0)
.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = 0
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("",0,0).Padding = "4,0,0,0"
With .Add("Button2",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
With .Add("Popup",2)
.Alignment = 1
With .Items
.Add("Item 7").Check = True
.Add "Item 8"
With .Add("Item 9",2).Items
.Add "Item 10"
.Add "Item 11"
.Add "Item 12"
End With
End With
End With
End With
End With
End With
End With
End With
End With
Set var_Item4 = .Add("New Page")
With var_Item4
.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 300
.Caption = "Page2"
.ShowPopupAlign = 1
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 75
End With
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
.PopupFlatAppearance = False
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn"
.Add 3,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn"
.Add 4,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn"
.Add 5,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn"
.Add 6,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn"
.Add 7,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn"
.Add 8,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn"
.Add 9,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn"
.Add 10,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn"
.Add 11,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn"
.Add 12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn"
.Add 13,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn"
.Add 14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn"
.Add 15,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn"
.Add 16,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn"
.Add 19,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.LocalAppearance = 6
.Appearance = 16777216 ' &H1000000
.ForeColor = RGB(21,66,139)
.SelBackColor = &He000000
.Background(64) = .Appearance
.Background(2) = &Hd000000 ' &H2
.Background(105) = &H5000000
.Background(106) = &H6000000
.Background(107) = &H7000000
.Background(108) = &H8000000
.Background(116) = &H9000000
.Background(117) = &Ha000000
.Background(118) = &Hb000000
.Background(110) = &Hc000000
.Background(112) = &Hf000000
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
210
|
Microsoft Windows 8.1 - Ribbon Like - Minimized
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
.ToString = "[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
.Item(-99).Visible = False
With .Item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
Set var_Item3 = .Add("New Page")
With var_Item3
.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 200
.Caption = "Page1"
.ShowPopupAlign = 1
With .Items.Item(0)
Set var_Item = .Items.Add("New Group")
With var_Item
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>A"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
With .Add("",2)
.GroupPopup = 17 ' GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = 1
.Checked = False
End With
End With
End With
End With
End With
Set var_Item1 = .Items.Add("New Group")
With var_Item1
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>B"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
With .Add("",2)
.GroupPopup = 289 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("C1")
.Check = True
.Checked = True
End With
With .Add("C2")
.Check = True
.Checked = False
End With
With .Add("C3")
.Check = True
.Checked = True
End With
End With
End With
End With
End With
.Items.Add("",0,0).Padding = "4,0,0,0"
Set var_Item2 = .Items.Add("New Group")
With var_Item2
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = ""
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
With .Add("",0)
.AllowEdit = 1027 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = 0
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = 259 ' GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("",0,0).Padding = "4,0,0,0"
With .Add("Button2",2)
.ShowAsButton = 275 ' ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
With .Add("Popup",2)
.Alignment = 1
With .Items
.Add("Item 7").Check = True
.Add "Item 8"
With .Add("Item 9",2).Items
.Add "Item 10"
.Add "Item 11"
.Add "Item 12"
End With
End With
End With
End With
End With
End With
End With
End With
End With
Set var_Item4 = .Add("New Page")
With var_Item4
.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))"
.ID = 300
.Caption = "Page2"
.ShowPopupAlign = 1
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = 1540 ' AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 75
End With
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
.PopupFlatAppearance = False
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn"
.Add 12,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn"
.Add 14,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn"
.Add 17,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn"
.Add 18,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn"
.Add 32,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn"
.Add 33,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn"
.Add 34,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn"
.Add 35,"C:/Program Files/Exontrol/ExToolBar/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn"
End With
.Appearance = 16777216 ' &H1000000
.Background(64) = .Appearance
.SelBackColor = &He000000
.Background(110) = &Hc000000
.Background(112) = &H23000000
.Background(2) = &H22000000 ' &H2
.Background(3) = &H23000000 ' &H3
.Background(70) = &H20000000
.Background(71) = &H21000000
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
209
|
How can I display a tab into the toolbar (method 2, minimized)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Background(102) = RGB(240,240,240)
With .Items
.ToString = "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-" & _
"100]))"
.Item(-99).Visible = False
With .Item(-10).Items
.Add("",0,0).Padding = "8,0,0,0"
With .Add("New Page")
.ToString = "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
With .Items.Item(0).Items
With .Add("add here fields for page 1")
.ID = -1000
.Enabled = False
.BackColor = RGB(255,0,0)
End With
End With
End With
With .Add("New Page")
.ToString = "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][" & _
"group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
With .Items.Item(0).Items
With .Add("add here fields for page 2")
.ID = -1001
.Enabled = False
.BackColor = RGB(0,255,0)
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
208
|
How can I display a tab into the toolbar (method 1, minimized)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.Background(102) = RGB(240,240,240)
.ToString = "[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][ty" & _
"p=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][grou" & _
"p=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font " & _
";5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(2" & _
"40,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-10" & _
"01][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
With .Items.Item(-1000)
.BackColor = RGB(255,0,0)
End With
With .Items.Item(-1001)
.BackColor = RGB(0,255,0)
End With
.Item(-99).Visible = False
End With
End Function
</SCRIPT>
</BODY>
|
|
207
|
Is there a trick to arrange two or three items(buttons) on the Right side, with different widths
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 1
.Items.ToString = "C1[chk],C2[chk],C3[chk]"
With .Items.Add("C4")
.ID = 40
.Check = True
.Checked = True
.ItemHeight = 24
.X = "width - (iwidth + iwidthof(50) + iwidthof(60))"
End With
With .Items.Add("C5-Baka")
.ID = 50
.Check = True
.Checked = True
.ItemHeight = 24
.X = "width - (iwidth + iwidthof(60))"
End With
With .Items
With .Add("Expand",2)
.ID = 60
.ItemHeight = 24
.X = "width - (iwidth)"
.GroupPopup = 1
.Check = True
.ShowPopupOnChecked = True
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.PopupAppearance = 6
End With
End With
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
206
|
Is there a trick to arrange two or three items(buttons) on the Right side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 1
.Items.ToString = "C1[chk],C2[chk],C3[chk]"
With .Items.Add("C4")
.Check = True
.Checked = True
.X = "width - 3*42*dpi"
End With
With .Items.Add("C5")
.Check = True
.Checked = True
.X = "width - 2*42*dpi"
End With
With .Items.Add("C6")
.Check = True
.Checked = True
.X = "width - 1*42*dpi"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
205
|
How can I add a list of fonts
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_SelectItem(Itm)
' Items(57707).Caption = Itm.Caption
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.LocalAppearance = 8
.Items.Add("Font").ToString = "<font Arial>Arial</font>[id=57707][align=1][button=0x0211][captionwidth=96][height=26][ttp=Font][pad=2,2,0,2][itemsbg=RGB(255,2" & _
"55,255)][visible=255](<font Arial>Arial</font>[id=53248][typ=1][close=0][chk=1],<font Arial Black>Arial Black</font>[id=53249][c" & _
"lose=0],<font Comic Sans MS>Comic Sans MS</font>[id=53250][close=0],<font Courier New>Courier New</font>[id=53251][close=0],<fon" & _
"t Georgia>Georgia</font>[id=53252][close=0],<font Impact>Impact</font>[id=53253][close=0],<font Lucida Console>Lucida Console</f" & _
"ont>[id=53254][close=0],<font Lucida Sans Unicode>Lucida Sans Unicode</font>[id=53255][close=0],<font Tahoma>Tahoma</font>[id=53" & _
"256][close=0],<font Times New Roman>Times New Roman</font>[id=53257][close=0],<font Trebuchet MS>Trebuchet MS</font>[id=53258][c" & _
"lose=0],<font Verdana>Verdana</font>[id=53259][close=0],<font MS Sans Serif>MS Sans Serif</font>[id=53260][close=0],<font MS Ser" & _
"if>MS Serif</font>[id=53261][close=0])"
End With
End Function
</SCRIPT>
</BODY>
|
|
204
|
How can I show a pattern over all items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
With .Add("",2)
.GroupPopup = 1
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.BackgroundExt = "root[pattern=0x006]"
End With
End With
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
203
|
How can I show a pattern over the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
With .Items
With .Add("",2)
.GroupPopup = 1
With .Items
.Add("Item 1").BackgroundExt = "root[pattern=0x006]"
.Add "Item 2"
.Add "Item 3"
End With
End With
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
202
|
How can I add a color table
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_SelectItem(Itm)
With ToolBar1
alert( Itm )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.LocalAppearance = 8
.Items.Add("Color").ToString = "Color[id=57685][button=0x0211][ttp=Color][itemsbg=RGB(255,255,255)][visible=255](<fgcolor 808080>color[id=350][align=1][group=0" & _
"x0133][itemspad=2,2,2,2]([id=360][group=0x33]([id=49152][typ=2][close=0][chk=1][show=1][grp=49152][captionwidth=24][height=24][t" & _
"tp=RGB(0,0,0)][data=RGB(0,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,0)]],[id=49153][typ=2][close=0][show=1][grp=4915" & _
"2][captionwidth=24][height=24][ttp=RGB(68,68,68)][data=RGB(68,68,68)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(68,68,68)]],[i" & _
"d=49154][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,102,102)][data=RGB(102,102,102)][bgext=none[" & _
"(2D,2D,100%-4D,100%-4D),back=RGB(102,102,102)]],[id=49155][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RG" & _
"B(153,153,153)][data=RGB(153,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,153,153)]],[id=49156][typ=2][close=0][sho" & _
"w=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,204,204)][data=RGB(204,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back" & _
"=RGB(204,204,204)]],[id=49157][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(238,238,238)][data=RGB(238" & _
",238,238)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(238,238,238)]],[id=49158][typ=2][close=0][show=1][grp=49152][captionwidth" & _
"=24][height=24][ttp=RGB(243,243,243)][data=RGB(243,243,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(243,243,243)]],[id=4915" & _
"9][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,255)][data=RGB(255,255,255)][bgext=none[(2D,2D" & _
",100%-4D,100%-4D),back=RGB(255,255,255)]]),[id=450][group=0x33]([id=49160][typ=2][close=0][show=1][grp=49152][captionwidth=24][h" & _
"eight=24][ttp=RGB(255,0,0)][data=RGB(255,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,0,0)]],[id=49161][typ=2][close=0]" & _
"[show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,153,0)][data=RGB(255,153,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back" & _
"=RGB(255,153,0)]],[id=49162][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,255,0)][data=RGB(255,255" & _
",0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,255,0)]],[id=49163][typ=2][close=0][show=1][grp=49152][captionwidth=24][hei" & _
"ght=24][ttp=RGB(0,255,0)][data=RGB(0,255,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,255,0)]],[id=49164][typ=2][close=0][s" & _
"how=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,255,255)][data=RGB(0,255,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=R" & _
"GB(0,255,255)]],[id=49165][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(0,0,255)][data=RGB(0,0,255)][b" & _
"gext=none[(2D,2D,100%-4D,100%-4D),back=RGB(0,0,255)]],[id=49166][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][" & _
"ttp=RGB(153,0,255)][data=RGB(153,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,255)]],[id=49167][typ=2][close=0][sho" & _
"w=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,0,255)][data=RGB(255,0,255)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB" & _
"(255,0,255)]]),[id=540][group=0x33]([id=49168][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(244,204,20" & _
"4)][data=RGB(244,204,204)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(244,204,204)]],[id=49169][typ=2][close=0][show=1][grp=491" & _
"52][captionwidth=24][height=24][ttp=RGB(252,229,205)][data=RGB(252,229,205)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(252,229" & _
",205)]],[id=49170][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(255,242,204)][data=RGB(255,242,204)][b" & _
"gext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,242,204)]],[id=49171][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=" & _
"24][ttp=RGB(217,234,211)][data=RGB(217,234,211)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,234,211)]],[id=49172][typ=2][cl" & _
"ose=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(208,224,227)][data=RGB(208,224,227)][bgext=none[(2D,2D,100%-4D,100" & _
"%-4D),back=RGB(208,224,227)]],[id=49173][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(207,226,243)][da" & _
"ta=RGB(207,226,243)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(207,226,243)]],[id=49174][typ=2][close=0][show=1][grp=49152][ca" & _
"ptionwidth=24][height=24][ttp=RGB(217,210,233)][data=RGB(217,210,233)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(217,210,233)]" & _
"],[id=49175][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(234,209,220)][data=RGB(234,209,220)][bgext=n" & _
"one[(2D,2D,100%-4D,100%-4D),back=RGB(234,209,220)]]),[id=630][group=0x33]([id=49176][typ=2][close=0][show=1][grp=49152][captionw" & _
"idth=24][height=24][ttp=RGB(234,153,153)][data=RGB(234,153,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(234,153,153)]],[id=" & _
"49177][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(249,203,156)][data=RGB(249,203,156)][bgext=none[(2" & _
"D,2D,100%-4D,100%-4D),back=RGB(249,203,156)]],[id=49178][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(" & _
"255,229,153)][data=RGB(255,229,153)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,229,153)]],[id=49179][typ=2][close=0][show=" & _
"1][grp=49152][captionwidth=24][height=24][ttp=RGB(182,215,168)][data=RGB(182,215,168)][bgext=none[(2D,2D,100%-4D,100%-4D),back=R" & _
"GB(182,215,168)]],[id=49180][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(162,196,201)][data=RGB(162,1" & _
"96,201)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(162,196,201)]],[id=49181][typ=2][close=0][show=1][grp=49152][captionwidth=2" & _
"4][height=24][ttp=RGB(159,197,232)][data=RGB(159,197,232)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(159,197,232)]],[id=49182]" & _
"[typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(180,167,214)][data=RGB(180,167,214)][bgext=none[(2D,2D,1" & _
"00%-4D,100%-4D),back=RGB(180,167,214)]],[id=49183][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(213,16" & _
"6,189)][data=RGB(213,166,189)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(213,166,189)]]),[id=720][group=0x33]([id=49184][typ=2" & _
"][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(224,102,102)][data=RGB(224,102,102)][bgext=none[(2D,2D,100%-4D" & _
",100%-4D),back=RGB(224,102,102)]],[id=49185][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(246,178,107)" & _
"][data=RGB(246,178,107)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(246,178,107)]],[id=49186][typ=2][close=0][show=1][grp=49152" & _
"][captionwidth=24][height=24][ttp=RGB(255,217,102)][data=RGB(255,217,102)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(255,217,1" & _
"02)]],[id=49187][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(147,196,125)][data=RGB(147,196,125)][bge" & _
"xt=none[(2D,2D,100%-4D,100%-4D),back=RGB(147,196,125)]],[id=49188][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24" & _
"][ttp=RGB(118,165,175)][data=RGB(118,165,175)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(118,165,175)]],[id=49189][typ=2][clos" & _
"e=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(111,168,220)][data=RGB(111,168,220)][bgext=none[(2D,2D,100%-4D,100%-" & _
"4D),back=RGB(111,168,220)]],[id=49190][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(142,124,195)][data" & _
"=RGB(142,124,195)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(142,124,195)]],[id=49191][typ=2][close=0][show=1][grp=49152][capt" & _
"ionwidth=24][height=24][ttp=RGB(194,123,160)][data=RGB(194,123,160)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(194,123,160)]])" & _
",[id=810][group=0x33]([id=49192][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(204,0,0)][data=RGB(204,0" & _
",0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(204,0,0)]],[id=49193][typ=2][close=0][show=1][grp=49152][captionwidth=24][heigh" & _
"t=24][ttp=RGB(230,145,56)][data=RGB(230,145,56)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(230,145,56)]],[id=49194][typ=2][clo" & _
"se=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(241,194,50)][data=RGB(241,194,50)][bgext=none[(2D,2D,100%-4D,100%-4" & _
"D),back=RGB(241,194,50)]],[id=49195][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(106,168,79)][data=RG" & _
"B(106,168,79)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(106,168,79)]],[id=49196][typ=2][close=0][show=1][grp=49152][captionwi" & _
"dth=24][height=24][ttp=RGB(69,129,142)][data=RGB(69,129,142)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(69,129,142)]],[id=4919" & _
"7][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(61,133,198)][data=RGB(61,133,198)][bgext=none[(2D,2D,1" & _
"00%-4D,100%-4D),back=RGB(61,133,198)]],[id=49198][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(103,78," & _
"167)][data=RGB(103,78,167)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(103,78,167)]],[id=49199][typ=2][close=0][show=1][grp=491" & _
"52][captionwidth=24][height=24][ttp=RGB(166,77,121)][data=RGB(166,77,121)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(166,77,12" & _
"1)]]),[id=900][group=0x33]([id=49200][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(153,0,0)][data=RGB(" & _
"153,0,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(153,0,0)]],[id=49201][typ=2][close=0][show=1][grp=49152][captionwidth=24][" & _
"height=24][ttp=RGB(180,95,6)][data=RGB(180,95,6)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(180,95,6)]],[id=49202][typ=2][clos" & _
"e=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(191,144,0)][data=RGB(191,144,0)][bgext=none[(2D,2D,100%-4D,100%-4D)," & _
"back=RGB(191,144,0)]],[id=49203][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(56,118,29)][data=RGB(56," & _
"118,29)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(56,118,29)]],[id=49204][typ=2][close=0][show=1][grp=49152][captionwidth=24]" & _
"[height=24][ttp=RGB(19,79,92)][data=RGB(19,79,92)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(19,79,92)]],[id=49205][typ=2][clo" & _
"se=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(11,83,148)][data=RGB(11,83,148)][bgext=none[(2D,2D,100%-4D,100%-4D)" & _
",back=RGB(11,83,148)]],[id=49206][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(53,28,117)][data=RGB(53" & _
",28,117)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(53,28,117)]],[id=49207][typ=2][close=0][show=1][grp=49152][captionwidth=24" & _
"][height=24][ttp=RGB(116,27,71)][data=RGB(116,27,71)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(116,27,71)]]),[id=990][group=0" & _
"x33]([id=49208][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(102,0,0)][data=RGB(102,0,0)][bgext=none[(" & _
"2D,2D,100%-4D,100%-4D),back=RGB(102,0,0)]],[id=49209][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(120" & _
",63,4)][data=RGB(120,63,4)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(120,63,4)]],[id=49210][typ=2][close=0][show=1][grp=49152" & _
"][captionwidth=24][height=24][ttp=RGB(127,96,0)][data=RGB(127,96,0)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(127,96,0)]],[id" & _
"=49211][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(39,78,19)][data=RGB(39,78,19)][bgext=none[(2D,2D," & _
"100%-4D,100%-4D),back=RGB(39,78,19)]],[id=49212][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(12,52,61" & _
")][data=RGB(12,52,61)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(12,52,61)]],[id=49213][typ=2][close=0][show=1][grp=49152][cap" & _
"tionwidth=24][height=24][ttp=RGB(7,55,99)][data=RGB(7,55,99)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(7,55,99)]],[id=49214][" & _
"typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(32,18,77)][data=RGB(32,18,77)][bgext=none[(2D,2D,100%-4D," & _
"100%-4D),back=RGB(32,18,77)]],[id=49215][typ=2][close=0][show=1][grp=49152][captionwidth=24][height=24][ttp=RGB(76,17,48)][data=" & _
"RGB(76,17,48)][bgext=none[(2D,2D,100%-4D,100%-4D),back=RGB(76,17,48)]])))"
End With
End Function
</SCRIPT>
</BODY>
|
|
201
|
Is it possible to re-arrange the items once the toolbar is resized
<BODY onload="Init()">
<OBJECT CLASSID="clsid:8A047308-84CB-4B50-90D7-AFD27BB4639C" id="ToolBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ToolBar1
.ArrangeItemsAs = 769 ' ArrangeItemsEnum.exArrangeItemsScroll Or ArrangeItemsEnum.exArrangeItemsWrap Or ArrangeItemsEnum.exArrangeItemsHorizontal
.Items.ToString = "1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9"
End With
End Function
</SCRIPT>
</BODY>
|