|
252
|
Hide the scroll buttons while keeping scrolling possible via drag and drop
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollBackColor,-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
|
|
251
|
Change the background of the scroll-buttons (EBN color)
With Extoolbar1
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABFoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWCQCgkNgzSTAYyDLCIYhkGyPRiASQZUhmHIDTbIEBxf" & _
"IMIxTBQZY7GGgpRjyGpGRjHc70QADFpoTKmabiab5HoSCZDRrPcgxeA0NAPEiPIypaoLDhaEQyDSJNj2TCIahhNSEbauCZYfoyXYDVpNMyVJJEExXFqXZhkO6rajmOZ1" & _
"XpPUjUDS9LRxJiKaYCSwYDBbFIWWTZMS3ZhwASxHC8aRhG5wAxOA5fZTlcS5TSUKzXOYALQ2C4rNq+EZbZbpQAaJi2CRrPifZToKbxYDnEKqWBOcI7Vr0NaBPwaeDhHg" & _
"ugYLRcmSAA1BoXhslMX5ejibY8BsDJeF6FYjmWdyXnARAkiAaQxh0DonCMLh8AARoUhCCY/HiSJaBIKBCF2Jp1CABgRGAQZVF6CYSlCS4CGCOAqAyA5gmgKQJgMB74H+" & _
"BRhHgWgYgYIJIE4Cgnk6M52CCCIiBiDgjgcUA4DIJoJGKSIQn2CgAAgMIcDoT5Yk4NYNCMaJaDCAwJPgfYPGOeJ6ECEAjjgKIPDeD5ZB4SYSCSKQqEUMpIGMYJ9hQZQ5" & _
"EoVIVCScZwlAPxlikchbhcZZZDwcgyE+WYOGWGQmGmGhPBoDAjnYbIbiaWY+G+E5GAKcJ9h0Zx5loeIeCScRkjcPxnmoAh/iAaAZDwVAsk+WgegmIgoioKhPBWCxDnqE" & _
"NHBoToThOR4DByftYjoaocicJK7k0P4qCqEojikahZDyGA1A+aoui2KwqmqOhPCoTYTnqNODFqXo3hOSxTGye4vGuep6kCMAknKUJRDqbBrCKR4yGyGQ+BCAxtAsPQJD" & _
"qWx0A0ASAgA==")
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollViewBorder,-1)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollBackColor,&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
|
|
250
|
Change the background of the scroll-buttons (solid color)
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollViewBorder,-1)
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollBackColor,Color.FromArgb(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
|
|
249
|
The margins appear cut off when the control's content exceeds the viewable area
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exScrollViewBorder,-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
|
|
248
|
Show scroll buttons to allow scrolling the content when it does not fit within the viewable area
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.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
|
|
247
|
How can I replace or add an icon at runtime
With Extoolbar1
.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
|
|
246
|
Display a custom tooltip
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extoolbar1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extoolbar1.MouseMoveEvent
With Extoolbar1
.ShowToolTip("new content","",Nothing,"+8","+8")
End With
End Sub
|
|
245
|
Shows the tooltip of the object moved relative to its default position
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extoolbar1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extoolbar1.MouseMoveEvent
With Extoolbar1
.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
End With
End Sub
With Extoolbar1
.Items.Add("ToolTip").Tooltip = "This is a bit of text that should be shown when cursor hovers the item"
.Refresh()
End With
|
|
244
|
ImageSize property on 32 (specifies the size of the control' icons)
With Extoolbar1
.ImageSize = 32
.Font.Size = 16
.PopupFlatImageWidth = 32
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.FlatBorder
.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
.SelBackColor32 = &H4000000
.SelForeColor = Color.FromArgb(0,0,1)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState2,&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
|
|
243
|
ImageSize property on 16 (default) (specifies the size of the control' icons)
With Extoolbar1
.ImageSize = 16
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.FlatBorder
.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
.SelBackColor32 = &H4000000
.SelForeColor = Color.FromArgb(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
|
|
242
|
How do I get the item's value without the place holders (exclude mask-characters)
' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
With Extoolbar1
Debug.Print( Itm )
End With
End Sub
With Extoolbar1
.ToString = "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
End With
|
|
241
|
How can I generate/create a progress/step bar for installation
With Extoolbar1
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 = &H80fefefeui
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add(" <img>5</img> Home")
.BackColor32 = &H7000000
.ItemHeight = 36
.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exRight
.ForeColor = Color.FromArgb(128,128,128)
End With
With .Add(" <img>6</img> Gebaude")
.BackColor32 = &H5000000
.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exRight
.ForeColor = Color.FromArgb(128,128,128)
End With
With .Add(" <img>6</img> Aussttung")
.BackColor32 = &H5000000
.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exRight
.ForeColor = Color.FromArgb(128,128,128)
End With
With .Add(" <img>3</img> Produkt")
.BackColor32 = &H3000000
.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exRight
End With
With .Add(" <img>4</img> Rabate")
.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exRight
.BackColor32 = &H1000000
.Enabled = False
End With
With .Add(" <img>7</img> Ergebnis")
.Alignment = exontrol.EXTOOLBARLib.AlignmentEnum.exRight
.BackColor32 = &H1000000
.Enabled = False
End With
End With
End With
End With
.Refresh()
End With
|
|
240
|
Is there any function to retrieve all available shortcut keys
With Extoolbar1
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "3"
End With
End With
End With
End With
End With
End With
.Refresh()
Debug.Print( .ShortcutKeysInfo )
End With
|
|
239
|
How can I display shortcut keys with a different size
With Extoolbar1
.ShortcutKeyFormat = "`<font ;14>` + caption"
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
238
|
How can I display shortcut keys with a different font
With Extoolbar1
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
.ShortcutKeyFormat = "`<font Stencil>` + caption"
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
237
|
How can I change the visual appearance of the shortcut keys (sample 3, theme)
With Extoolbar1
.VisualAppearance.Add(1,"XP: Button 1 1")
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,&H1000000)
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,0))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(0,0,0))
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
236
|
It is possible somehow to show all available shortcut keys (sample 2)
' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
With Extoolbar1
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
.ShortcutKeyFormat = "`<c><font ;6><fgcolor 808080>` + sca + `</fgcolor></font><br><c>Key:` + keys"
.ShortcutKeyPressedModifers = exontrol.EXTOOLBARLib.ModifierKeyEnum.exModifierAny
.ShortcutKeyFormat = ""
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
End With
End Sub
With Extoolbar1
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+CTRL+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
235
|
It is possible somehow to show all available shortcut keys (sample 1)
' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
With Extoolbar1
.ShortcutKeyPressedModifers = exontrol.EXTOOLBARLib.ModifierKeyEnum.exModifierAny
End With
End Sub
With Extoolbar1
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
234
|
How can I show the shortcut keys semi-transparent
With Extoolbar1
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,Color.FromArgb(0,0,0))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
.ShortcutKeyTransparent = 50
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
233
|
Is it possible somehow to display ID of each item
With Extoolbar1
.Debug = True
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
232
|
How can I change the visual appearance of the shortcut keys (sample 2, EBN)
With Extoolbar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,&H1000000)
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,0))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(0,0,0))
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
231
|
How can I change the visual appearance of the shortcut keys (sample 1)
With Extoolbar1
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyAppearance,Color.FromArgb(0,0,0))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyBackColor,Color.FromArgb(0,0,1))
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exShortcutKeyForeColor,Color.FromArgb(255,255,255))
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
230
|
Can I show the shortcut key right after the item so it won't overlap it (sample 2)
With Extoolbar1
.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 = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
229
|
Can I show the shortcut key right after the item so it won't overlap it (sample 1)
With Extoolbar1
.ShortcutKeyExtPaddingH = "width/2, height/2 ,width/2,height/2"
.ShortcutKeyExtPaddingV = "width/2, height/2 ,width/2,height/2"
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
228
|
Can I specify padding for shortcut keys (sample 2)
With Extoolbar1
.ShortcutKeyPadding = "8,8,8,8"
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
227
|
Can I specify padding for shortcut keys (sample 1)
With Extoolbar1
.ShortcutKeyPadding = "0,0,0,0"
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
226
|
Is it possible to specify where the shortcut keys should be shown
With Extoolbar1
.ShortcutKeyAlignH = exontrol.EXTOOLBARLib.ShortcutKeyAlignEnum.exShortcutKeyUpperLeft
.ShortcutKeyAlignV = exontrol.EXTOOLBARLib.ShortcutKeyAlignEnum.exShortcutKeyLowerRight
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
225
|
Can I use different shortcut modifier keys for items
With Extoolbar1
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT + CTRL + 1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "3 + 33"
End With
End With
End With
End With
End With
.Add("")
.Add("Press <b>CTRL or ALT")
End With
End With
|
|
224
|
How can I disable a shortcut key
With Extoolbar1
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Enabled = False
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "3 + 33"
End With
End With
End With
End With
End With
End With
End With
|
|
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
With Extoolbar1
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "3 + 33"
End With
End With
End With
End With
End With
End With
End With
|
|
222
|
I have a shortcut that's not currently visible, the question is if I can invoke somehow
' CheckItem event - Occurs when the user checks the item.
Private Sub Extoolbar1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.CheckItem
With Extoolbar1
Debug.Print( Itm )
End With
End Sub
With Extoolbar1
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exAllowShortcutKeysIfNotShown Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "ALT + 4"
End With
End With
End With
End With
End With
.Add("press ALT + 4")
End With
End With
|
|
221
|
Can I specify a longer delay to display shortcut once the user presses any modifer keys
With Extoolbar1
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exLongerDelayShortcutKeys Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "3+33"
End With
End With
End With
End With
End With
End With
End With
|
|
220
|
How can I display extended shortcut keys
With Extoolbar1
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "333"
End With
End With
End With
End With
End With
End With
End With
|
|
219
|
Is it possible to disable the shortcut keys, whithout changing the Shortcut property
With Extoolbar1
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exDisableShortcutKeys Or exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
218
|
How can display the shortcut keys only when modifier keys are pressed
With Extoolbar1
.ShortcutKeyVisible = exontrol.EXTOOLBARLib.ShortcutKeyVisibleEnum.exShowShortcutKeysPressOnly
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "3+33"
End With
End With
End With
End With
End With
End With
End With
|
|
217
|
How can I assign a shortcut key to an item
With Extoolbar1
With .Items
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
With .Add("",2,10)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Item 1",0,20)
.Check = True
.Shortcut = "ALT+1"
End With
With .Add("Item 2",0,30)
.Check = True
.Checked = True
.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 = True
.Checked = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "1"
End With
With .Add("Sub-Item 3.2",0,60)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "2"
End With
With .Add("Sub-Item 3.2",0,70)
.Radio = True
.CloseOnClick = exontrol.EXTOOLBARLib.CloseOnClickEnum.exCloseOnClick
.Shortcut = "33+3"
End With
End With
End With
End With
End With
End With
End With
|
|
216
|
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items
With Extoolbar1
With .Items
.Add("Item A",0,1000)
.Add("Item B",0,1001)
.Add("Item C",0,1002).Position = 0
End With
End With
|
|
215
|
Is it possible to have a popup on a radio button when it is checked
With Extoolbar1
.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
|
|
214
|
Is it possible to minimize the control, once the user clicks a button
' CheckItem event - Occurs when the user checks the item.
Private Sub Extoolbar1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.CheckItem
With Extoolbar1
Extoolbar1.Items.Item(-99).Visible = Extoolbar1.Items.Item(-999).Checked
Debug.Print( "RequiredHeight" )
Debug.Print( .RequiredHeight )
End With
End Sub
' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Extoolbar1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.UncheckItem
With Extoolbar1
Extoolbar1.Items.Item(-99).Visible = Extoolbar1.Items.Item(-999).Checked
Debug.Print( "RequiredHeight" )
Debug.Print( .RequiredHeight )
End With
End Sub
Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
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 = Extoolbar1.Item(-99).Visible
.X = "width - iwidth"
End With
With .Item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
End With
End With
End With
End With
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.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"
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 = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
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
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.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 = Color.FromArgb(21,66,139)
.SelBackColor32 = &He000000
.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
.Appearance = &H1000000
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
.set_Background32(&H2,&Hd000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
.Refresh()
End With
|
|
213
|
Is there any debug option, so I can see the IDs of the items I have in the control
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
.Debug = True
With .Items
With .Add("Expand",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.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
|
|
212
|
Microsoft Office - Ribbon Like - Minimized
Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
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"
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
End With
End With
End With
End With
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.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"
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 = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
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
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.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 = Color.FromArgb(21,66,139)
.SelBackColor32 = &He000000
.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
.Appearance = &H1000000
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
.set_Background32(&H2,&Hd000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
.Refresh()
End With
|
|
211
|
Microsoft Paint - Ribbon Like - Minimized
Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
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"
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
End With
End With
End With
End With
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.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"
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 = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
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
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
.Appearance = &H1000000
.ForeColor = Color.FromArgb(21,66,139)
.SelBackColor32 = &He000000
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
.set_Background32(&H2,&Hd000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H5000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHStart,&H6000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,&H7000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameHEnd,&H8000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H9000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&Ha000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&Hb000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&Hf000000)
.Refresh()
End With
|
|
210
|
Microsoft Windows 8.1 - Ribbon Like - Minimized
Dim var_Item,var_Item1,var_Item2,var_Item3,var_Item4
With Extoolbar1
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"
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exontrol.EXTOOLBARLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Checked = False
End With
End With
End With
End With
End With
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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXTOOLBARLib.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"
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 = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXTOOLBARLib.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 = exontrol.EXTOOLBARLib.AlignmentEnum.exCenter
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
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 = exontrol.EXTOOLBARLib.ShowPopupAlignEnum.exShowPopupAlignDown
With .Items.Item(0)
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditVertical Or exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSpin Or exontrol.EXTOOLBARLib.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 = &H1000000
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exToolTipAppearance,.Appearance)
.SelBackColor32 = &He000000
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuHotBackColor,&Hc000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelHotBackColor,&H23000000)
.set_Background32(&H2,&H22000000)
.set_Background32(&H3,&H23000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState0,&H20000000)
.set_Background32(exontrol.EXTOOLBARLib.BackgroundPartEnum.exCheckBoxState1,&H21000000)
.Refresh()
End With
|
|
209
|
How can I display a tab into the toolbar (method 2, minimized)
With Extoolbar1
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(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 = Color.FromArgb(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 = Color.FromArgb(0,255,0)
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
.Refresh()
End With
|
|
208
|
How can I display a tab into the toolbar (method 1, minimized)
With Extoolbar1
.set_Background(exontrol.EXTOOLBARLib.BackgroundPartEnum.exMenuSelBorderColor,Color.FromArgb(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 = Color.FromArgb(255,0,0)
End With
With .Items.Item(-1001)
.BackColor = Color.FromArgb(0,255,0)
End With
.Item(-99).Visible = False
End With
|
|
207
|
Is there a trick to arrange two or three items(buttons) on the Right side, with different widths
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
.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 = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
.Check = True
.ShowPopupOnChecked = True
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.ShadowBorder
End With
End With
End With
.Refresh()
End With
|
|
206
|
Is there a trick to arrange two or three items(buttons) on the Right side
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsHorizontal
.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
|
|
205
|
How can I add a list of fonts
' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
' Items(57707).Caption = Itm.Caption
End Sub
With Extoolbar1
.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.SingleBorder
.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
|
|
204
|
How can I show a pattern over all items
With Extoolbar1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.BackgroundExt = "root[pattern=0x006]"
End With
End With
End With
.Refresh()
End With
|
|
203
|
How can I show a pattern over the item
With Extoolbar1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1").BackgroundExt = "root[pattern=0x006]"
.Add("Item 2")
.Add("Item 3")
End With
End With
End With
.Refresh()
End With
|
|
202
|
How can I add a color table
' SelectItem event - Occurs when the user selects the item.
Private Sub Extoolbar1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.SelectItem
With Extoolbar1
Debug.Print( Itm )
End With
End Sub
With Extoolbar1
.LocalAppearance = exontrol.EXTOOLBARLib.ToolBarAppearanceEnum.SingleBorder
.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
|
|
201
|
Is it possible to re-arrange the items once the toolbar is resized
With Extoolbar1
.ArrangeItemsAs = exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsScroll Or exontrol.EXTOOLBARLib.ArrangeItemsEnum.exArrangeItemsWrap Or exontrol.EXTOOLBARLib.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
|