|
185
|
Event event
' Event event - Notifies the application once the control fires an event.
Private Sub ExContextMenu1_Event(ByVal EventID As Long)
With ExContextMenu1
Debug.Print( .EventParam(-2) )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
.Select
End With
|
|
184
|
UncheckItem event
' UncheckItem event - Occurs when the user unchecks the item.
Private Sub ExContextMenu1_UncheckItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( Itm )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
.Select
End With
|
|
183
|
CheckItem event
' CheckItem event - Occurs when the user checks the item.
Private Sub ExContextMenu1_CheckItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( Itm )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
.Select
End With
|
|
182
|
SelectItem event
' SelectItem event - Occurs when the user selects the item.
Private Sub ExContextMenu1_SelectItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( Itm )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Items.ToString = "Popup 1(Check 1[typ=1],Check 2[typ=1],Check 3[typ=1],Item 1),Expand[img=2][typ=1][chk=1][spchk=-1][group=0x0103](Check 4[typ=1]" & _
",Check 5[typ=1],Check 6[typ=1][chk=1],Item 2)"
.Select
End With
|
|
181
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ImageSize = 32
.Font.Size = 16
.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA=="
.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
End With
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
.Background(exCheckBoxState0) = &H1000000
.Background(exCheckBoxState1) = &H2000000
.Background(exCheckBoxState2) = &H3000000
With .Items
With .Add("Expand",2)
.Image = 0
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Check = True
.ShowPopupOnChecked = True
With .Items
.Padding = "22,0,0,0"
.Add("Check 1").Check = True
.Add("Check 2").Check = True
With .Add("Check 3")
.Check = True
.Checked = True
End With
End With
.Checked = True
End With
.Add("").ToString = "Expand[typ=1][img=2][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Check 1[id=20][typ=1],Check 2[id=30][typ=1],Check 3[id=4" & _
"0][typ=1][chk=1])"
End With
.Select
End With
|
|
180
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ImageSize = 16
.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
With .VisualAppearance
.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
End With
.SelBackColor = &H4000000
.SelForeColor = RGB(0,0,1)
With .Items
With .Add("Expand",2)
.Image = 0
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Check = True
.ShowPopupOnChecked = True
With .Items
.Padding = "22,0,0,0"
.Add("Check 1").Check = True
.Add("Check 2").Check = True
With .Add("Check 3")
.Check = True
.Checked = True
End With
End With
.Checked = True
End With
.Add("").ToString = "Expand[typ=1][img=2][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Check 1[id=20][typ=1],Check 2[id=30][typ=1],Check 3[id=4" & _
"0][typ=1][chk=1])"
End With
.Select
End With
|
|
179
|
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 ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( Itm )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ToString = "Mask[edit=98][editwidth=-128][edittype=2][mask=00000],Mask[edit=98][editwidth=-128][edittype=2][mask=00000;1]"
.Select
End With
|
|
178
|
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add "Item A",0,1000
.Add "Item B",0,1001
.Add("Item C",0,1002).Position = 0
End With
Debug.Print( .Select() )
End With
|
|
177
|
Is it possible to have a popup on a radio button when it is checked
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.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
Debug.Print( .Select() )
End With
|
|
176
|
How can I control the height of the control, so no scroll is required to view all items
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Font.Size = 6
.MenuAppearance = exMenuNormal
With .Items
Debug.Print( .VisibleItemsCount )
.VisibleItemsCount = 255
.ToString = "1,2,3,4,5,6,7,8,9,10,11,12,13"
End With
.Select
End With
|
|
175
|
How do I specify the control's height (method 3)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item 1").ItemHeight = 24
.Add("Item 2").ItemHeight = 24
.Add("Item 3").ItemHeight = 24
End With
.Select
End With
|
|
174
|
How do I specify the control's height (method 2)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item 1").Padding = "0,4,0,4"
.Add("Item 2").Padding = "0,4,0,4"
.Add("Item 3").Padding = "0,4,0,4"
End With
.Select
End With
|
|
173
|
How do I specify the control's height (method 1)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Font.Size = 12
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
.Select
End With
|
|
172
|
How can I change the visual appearance of the progress bar
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(&H104) = &H1000000
With .Items
With .Add("Progress")
.AllowEdit = exItemEditProgress
.EditWidth = -128
.EditValue = 25
End With
End With
.Select
End With
|
|
171
|
How can I change the progress's color
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Background(&H104) = RGB(255,0,0)
With .Items
With .Add("Progress")
.AllowEdit = exItemEditProgress
.EditWidth = -128
.EditValue = 25
End With
End With
.Select
End With
|
|
170
|
I am using the Item.Visible property on False to hide the item, but the editor is still visible
' CheckItem event - Occurs when the user checks the item.
Private Sub ExContextMenu1_CheckItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
With .Items.item(1000)
.Visible = True
.AllowEdit = AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
End With
.Select
End With
End Sub
' UncheckItem event - Occurs when the user unchecks the item.
Private Sub ExContextMenu1_UncheckItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
With .Items.item(1000)
.Visible = False
.AllowEdit = exItemDisableEdit
End With
.Select
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("",2)
With .Items
.Add "Visible"
With .Add("")
.Check = True
.Checked = True
End With
With .Add("Item 2",,1000)
.ItemHeight = 18
.Caption = "Percent"
.AllowEdit = AllowEditEnum.exItemEditReadOnly Or AllowEditEnum.exItemEditProgress
.EditValue = 50
.Visible = True
End With
.Add "Visible"
End With
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
End With
End With
.Select
End With
|
|
169
|
How can I change the color of a disabled item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Disabled",2,0)
.ForeColor = RGB(255,0,0)
.Items.Add ""
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
End With
.Add("Disabled").Enabled = False
End With
.Select
End With
|
|
168
|
Microsoft Windows 8.1 - Ribbon Like
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.MenuAppearance = exMenuNormal
With .Items
.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
With .item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
Set var_item3 = .Add("New Page")
With var_item3
.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
.ID = 200
.Caption = "Page1"
Set var_item = .Items.Add("New Group")
With var_item
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>A"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = False
End With
End With
End With
End With
End With
Set var_item1 = .Items.Add("New Group")
With var_item1
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>B"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("C1")
.Check = True
.Checked = True
End With
With .Add("C2")
.Check = True
.Checked = False
End With
With .Add("C3")
.Check = True
.Checked = True
End With
End With
End With
End With
End With
.Items.Add("",0,0).Padding = "4,0,0,0"
Set var_item2 = .Items.Add("New Group")
With var_item2
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = ""
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
With .Add("",0)
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = exEditBorderNone
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("",0,0).Padding = "4,0,0,0"
With .Add("Button2",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
With .Add("Popup",2)
.Alignment = 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
Set var_item4 = .Add("New Page")
With var_item4
.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
.ID = 300
.Caption = "Page2"
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 75
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn"
.Add 12,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn"
.Add 14,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn"
.Add 17,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn"
.Add 18,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn"
.Add 32,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn"
.Add 33,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn"
.Add 34,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn"
.Add 35,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn"
End With
.Appearance = &H1000000
.Background(exToolTipAppearance) = .Appearance
.SelBackColor = &He000000
.Background(exMenuHotBackColor) = &Hc000000
.Background(exMenuSelHotBackColor) = &H23000000
.Background(&H2) = &H22000000
.Background(&H3) = &H23000000
.Background(exCheckBoxState0) = &H20000000
.Background(exCheckBoxState1) = &H21000000
.Select
End With
|
|
167
|
Microsoft Paint - Ribbon Like
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.MenuAppearance = exMenuNormal
With .Items
.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
With .item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
Set var_item3 = .Add("New Page")
With var_item3
.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
.ID = 200
.Caption = "Page1"
Set var_item = .Items.Add("New Group")
With var_item
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>A"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = False
End With
End With
End With
End With
End With
Set var_item1 = .Items.Add("New Group")
With var_item1
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>B"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("C1")
.Check = True
.Checked = True
End With
With .Add("C2")
.Check = True
.Checked = False
End With
With .Add("C3")
.Check = True
.Checked = True
End With
End With
End With
End With
End With
.Items.Add("",0,0).Padding = "4,0,0,0"
Set var_item2 = .Items.Add("New Group")
With var_item2
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = ""
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
With .Add("",0)
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = exEditBorderNone
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("",0,0).Padding = "4,0,0,0"
With .Add("Button2",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
With .Add("Popup",2)
.Alignment = 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
Set var_item4 = .Add("New Page")
With var_item4
.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
.ID = 300
.Caption = "Page2"
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 75
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn"
.Add 3,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn"
.Add 4,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn"
.Add 5,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn"
.Add 6,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn"
.Add 7,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn"
.Add 8,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn"
.Add 9,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn"
.Add 10,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn"
.Add 11,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn"
.Add 12,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn"
.Add 13,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn"
.Add 14,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn"
.Add 15,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn"
.Add 16,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn"
.Add 19,"C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.LocalAppearance = ShadowBorder
.Appearance = &H1000000
.ForeColor = RGB(21,66,139)
.SelBackColor = &He000000
.Background(exToolTipAppearance) = .Appearance
.Background(&H2) = &Hd000000
.Background(exGroupPopupFrameSingle) = &H5000000
.Background(exGroupPopupFrameHStart) = &H6000000
.Background(exGroupPopupFrameHIntermediate) = &H7000000
.Background(exGroupPopupFrameHEnd) = &H8000000
.Background(exGroupPopupFrameVStart) = &H9000000
.Background(exGroupPopupFrameVIntermediate) = &Ha000000
.Background(exGroupPopupFrameVEnd) = &Hb000000
.Background(exMenuHotBackColor) = &Hc000000
.Background(exMenuSelHotBackColor) = &Hf000000
.Select
End With
|
|
166
|
Microsoft Office - Ribbon Like
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.MenuAppearance = exMenuNormal
With .Items
.ToString = "[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])"
With .item(0).Items
.Add("",0,0).Padding = "8,0,0,0"
Set var_item3 = .Add("New Page")
With var_item3
.ToString = "[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
.ID = 200
.Caption = "Page1"
Set var_item = .Items.Add("New Group")
With var_item
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>A"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("R1")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = False
End With
With .Add("R2")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = True
End With
With .Add("R3")
.RadioGroup = 100
.Radio = True
.ShowCheckedAsSelected = exDisplayItemHighlight
.Checked = False
End With
End With
End With
End With
End With
Set var_item1 = .Items.Add("New Group")
With var_item1
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = "<b><font ;14>B"
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("C1")
.Check = True
.Checked = True
End With
With .Add("C2")
.Check = True
.Checked = False
End With
With .Add("C3")
.Check = True
.Checked = True
End With
End With
End With
End With
End With
.Items.Add("",0,0).Padding = "4,0,0,0"
Set var_item2 = .Items.Add("New Group")
With var_item2
.ToString = "[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()"
.Caption = ""
With .Items
.BackgroundExt = "bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]"
With .Add("",0)
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSlider
.ItemHeight = 76
.EditBorder = exEditBorderNone
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Caption = ""
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button1",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("",0,0).Padding = "4,0,0,0"
With .Add("Button2",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
With .Add("Popup",2)
.Alignment = 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
Set var_item4 = .Add("New Page")
With var_item4
.ToString = "[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][p" & _
"ad=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])"
.ID = 300
.Caption = "Page2"
With .Items
With .Add("S1")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 25
End With
With .Add("S2")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 50
End With
With .Add("S3")
.ItemHeight = 88
.AllowEdit = AllowEditEnum.exItemEditVertical Or AllowEditEnum.exItemEditSpin Or AllowEditEnum.exItemEditProgress
.EditValue = 75
End With
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
With .VisualAppearance
.Add 1,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_background.ebn"
.Add 2,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn"
.Add 3,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn"
.Add 4,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn"
.Add 5,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn"
.Add 6,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn"
.Add 7,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn"
.Add 8,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn"
.Add 9,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn"
.Add 10,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn"
.Add 11,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn"
.Add 12,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_select.ebn"
.Add 13,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn"
.Add 14,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn"
.Add 15,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn"
.Add 16,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn"
.Add 19,"C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.ForeColor = RGB(21,66,139)
.SelBackColor = &He000000
.LocalAppearance = ShadowBorder
.Appearance = &H1000000
.Background(exToolTipAppearance) = .Appearance
.Background(&H2) = &Hd000000
.Background(exGroupPopupFrameSingle) = &H5000000
.Background(exGroupPopupFrameHStart) = &H6000000
.Background(exGroupPopupFrameHIntermediate) = &H7000000
.Background(exGroupPopupFrameHEnd) = &H8000000
.Background(exGroupPopupFrameVStart) = &H9000000
.Background(exGroupPopupFrameVIntermediate) = &Ha000000
.Background(exGroupPopupFrameVEnd) = &Hb000000
.Background(exMenuHotBackColor) = &Hc000000
.Background(exMenuSelHotBackColor) = &Hf000000
.Select
End With
|
|
165
|
How I can assign buttons to a tab
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Background(exMenuSelBorderColor) = RGB(240,240,240)
With .Items
.ToString = "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-10" & _
"0]))"
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]([id=50][group=0x03]([]))"
.Caption = "Page<off -5><font ;5><b>1</b></font></off>"
With .Items
.Add("Button 1").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
.Add("Button 2").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
.Add("Button 3").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
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]([id=50][group=0x03]([]))"
.Caption = "Page<off -5><font ;5><b>2</b></font></off>"
With .Items
.Add("Button 3").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
.Add("Button 4").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
End With
End With
.Add("",0,0).Padding = "8,0,0,0"
End With
End With
.Select
End With
|
|
164
|
How can I hide an item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item 1").Visible = False
.Add "Item 2"
End With
.Select
End With
|
|
163
|
How do I get the item giving its caption
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item 1").ID = 1000
.Add("Item 2").ID = 1001
End With
.item("Item 1").Bold = True
.Select
End With
|
|
162
|
How do I get the item giving its identifier
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item 1").ID = 1000
.Add("Item 2").ID = 1001
End With
.item(1000).Bold = True
.Select
End With
|
|
161
|
Can I change the cursor where it hovers the item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Cursor = "exCross"
With .Items
.Add "Item 1"
.Add("Item 2").Cursor = "exNoDrop"
End With
.Select
End With
|
|
160
|
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.AllowToggleRadio = True
With .Items
With .Add("Radio 1",,1000)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1001)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1003)
.Radio = True
.RadioGroup = 100
End With
End With
.Select
End With
|
|
159
|
Is it possible to display the item's identifiers
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Debug = True
With .Items
.Add("Item 1").ID = 10001
.Add("Item 2").ID = 10002
End With
.Select
End With
|
|
158
|
How do I disable showing the tooltip for all control (method 2)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.AllowToolTip = False
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Select
End With
|
|
157
|
How can I disable the control
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item 1").Enabled = False
.Add("Item 2").Enabled = False
.Add("Item 3").Enabled = False
End With
.Select
End With
|
|
156
|
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.LocalAppearance = &H1000000
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
End With
.Select
End With
|
|
155
|
How can I specify a different border for drop down portion of the select buttons/combobox
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.LocalAppearance = ShadowBorder
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 4"
.Add "Item 5"
.Add "Item 6"
End With
End With
End With
End With
End With
.Select
End With
|
|
154
|
How can I change the visual appearance for the entire control
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Appearance = &H1000000
.ShowCheckedAsSelected = exDisplayItemCheckHighlight
With .Items
.Padding = "4,4,4,4"
With .Add("Radio 1")
.Radio = True
.Checked = True
End With
.Add("Radio 2").Radio = True
.Add("Radio 3").Radio = True
End With
.Select
End With
|
|
153
|
How can I show a border arround the control
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Appearance = FlatBorder
.ShowCheckedAsSelected = exDisplayItemCheckHighlight
With .Items
.Padding = "4,4,4,4"
With .Add("Check 1")
.Checked = True
.Check = True
End With
With .Add("Check 2")
.Check = True
End With
End With
.Select
End With
|
|
152
|
Is it possible to change the item's background color when check/uncheck the item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ShowCheckedAsSelected = exDisplayItemCheckHighlight
With .Items
.Padding = "4,4,4,4"
With .Add("Check 1")
.Checked = True
.Check = True
End With
With .Add("Check 2")
.Check = True
End With
End With
.Select
End With
|
|
151
|
How can I change the colors for hot/hover items
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Background(exMenuHotBackColor) = RGB(0,0,1)
.Background(exMenuHotForeColor) = RGB(255,255,255)
.Background(exMenuSelHotBackColor) = RGB(128,128,128)
.Background(exMenuSelHotForeColor) = RGB(255,255,255)
.SelBackColor = RGB(128,128,128)
.SelForeColor = RGB(255,255,255)
.Background(exMenuSelBorderColor) = RGB(128,128,128)
.ShowCheckedAsSelected = exDisplayItemCheckHighlight
With .Items
.Padding = "4,4,4,4"
.Add("").ToString = "[group=3](Item 1,Item 2)"
With .Add("Check 1")
.Checked = True
.Check = True
End With
With .Add("Check 2")
.Check = True
End With
End With
.Select
End With
|
|
150
|
How do I change the visual appearance of the groups (vertical)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"c:\exontrol\images\pushed.ebn"
.Add 3,"c:\exontrol\images\hot.ebn"
End With
.Background(exGroupPopupFrameSingle) = &H1000000
.Background(exGroupPopupFrameVStart) = &H1000000
.Background(exGroupPopupFrameVIntermediate) = &H2000000
.Background(exGroupPopupFrameVEnd) = &H3000000
.Background(exGroupPopupFrameSolid) = RGB(255,0,0)
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Vertical",2)
.Alignment = exCenter
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopup
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
End With
End With
.Add("").CaptionWidth = 12
With .Add("Vertical",2)
.Alignment = exCenter
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopup
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
End With
End With
End With
End With
End With
.Select
End With
|
|
149
|
How do I change the visual appearance of the groups (horizontal)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"c:\exontrol\images\pushed.ebn"
.Add 3,"c:\exontrol\images\hot.ebn"
End With
.Background(exGroupPopupFrameSingle) = &H1000000
.Background(exGroupPopupFrameHStart) = &H1000000
.Background(exGroupPopupFrameHIntermediate) = &H2000000
.Background(exGroupPopupFrameHEnd) = &H3000000
.Background(exGroupPopupFrameSolid) = RGB(255,0,0)
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = exGroupPopup
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
.Add "Item 4"
.Add "Item 5"
End With
End With
.Add("").ToString = "Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)"
End With
.Select
End With
|
|
148
|
How can I change the visual appearance of the separator item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(exMenuSeparatorItem) = &H1000000
With .Items
.Add("Item").CaptionWidth = 128
.Add "",1
.Add("Item").CaptionWidth = 128
.Add("").ToString = "<font ;5>separator[sep]"
End With
.Select
End With
|
|
147
|
How can I change the visual appearance of the flat portion of the drop down of the control
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.FlatBackColor = &H1000000
.Background(exMenuFlatLineColor) = .FlatBackColor
With .Items
With .Add("Popup",2).Items
.Add("Item 1").Check = True
.Add("Item 2").Check = True
.Add("Item 3").Check = True
End With
End With
.Select
End With
|
|
146
|
How can I change the visual appearance of the radio-buttons to be displayed in the context menu (ebn)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"c:\exontrol\images\pushed.ebn"
End With
.Background(exRadioButtonState0) = &H1000000
.Background(exRadioButtonState1) = &H2000000
With .Items
With .Add("",2)
.GroupPopup = exGroupPopup
With .Items
With .Add("Radio 1",,1000)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1001)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1003)
.Radio = True
.RadioGroup = 100
End With
.item(1000).Checked = True
End With
End With
End With
.Select
End With
|
|
145
|
How can I change the visual appearance of the check-boxes to be displayed in the context menu (ebn)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"c:\exontrol\images\pushed.ebn"
End With
.Background(exCheckBoxState0) = &H1000000
.Background(exCheckBoxState1) = &H2000000
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
With .Add("Check 1")
.Check = True
.Checked = True
End With
.Add("Check 2").Check = True
End With
End With
End With
.Select
End With
|
|
144
|
How can I change the visual appearance of the tooltips to be displayed in the context menu (ebn)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"c:\exontrol\images\pushed.ebn"
End With
.ToolTipDelay = 1
.Background(exToolTipAppearance) = &H1000000
.Background(exToolTipForeColor) = RGB(255,0,0)
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Select
End With
|
|
143
|
Is it possible to change the visual appearance of the buttons to be displayed in the context menu (ebn)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"c:\exontrol\images\pushed.ebn"
End With
.Background(&H2) = &H1000000
.Background(&H3) = &H2000000
.Background(exMenuSeparatorSelectButton) = RGB(255,0,0)
.Background(exMenuSeparatorSelectButtonBottom) = RGB(0,0,255)
With .Items
.Padding = "4,4,4,4"
.Add("Button").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
With .Add("")
.Enabled = False
.ItemHeight = 4
End With
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
With .Add("")
.Enabled = False
.ItemHeight = 4
End With
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButton Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
End With
.Select
End With
|
|
142
|
I've seen that the width of the tooltip is variable. Can I make it larger
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ToolTipWidth = 328
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Select
End With
|
|
141
|
How do I disable showing the tooltip for all control (method 1)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ToolTipDelay = 0
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Select
End With
|
|
140
|
How do I let the tooltip being displayed longer
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ToolTipPopDelay = 10000
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Select
End With
|
|
139
|
How do I show the tooltip quicker
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.ToolTipDelay = 1
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Select
End With
|
|
138
|
How can I get the version of the control I am running
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
Debug.Print( .Version )
End With
|
|
137
|
How can I align the picture on the control's background
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Picture = ExContextMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
.PictureDisplay = UpperRight
With .Items
.Add "Item"
.Add "Item"
End With
.Select
End With
|
|
136
|
Is it possible to place a picture on the control's background
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.Picture = ExContextMenu1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
With .Items
.Add "Item"
.Add "Item"
End With
.Select
End With
|
|
135
|
How can I display the item using a different font/size
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("").Caption = "<font ;14>This is a bit of text"
.Add "<font ;6>This is a bit of text"
.Add("").Caption = "<font Times New Roman;22>This is a bit of text</font>. Default"
End With
.Select
End With
|
|
134
|
How can I use the Event event, available for /COM version
' Event event - Notifies the application once the control fires an event.
Private Sub ExContextMenu1_Event(ByVal EventID As Long)
With ExContextMenu1
Debug.Print( "Event" )
Debug.Print( .EventParam(-2) )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Check").Check = True
With .Add("Slider")
.AllowEdit = exItemEditSlider
.EditWidth = 128
.EditBorder = exEditBorderNone
.EditValue = 25
End With
End With
.Select
End With
|
|
133
|
Is it possible to get notified once the user edits the field, or change the slider value
' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ExContextMenu1_EditChange(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "EditChange event on Itm object" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Item")
.AllowEdit = exItemEditSlider
.EditWidth = 128
.EditBorder = exEditBorderNone
.EditValue = 25
End With
End With
.Select
End With
|
|
132
|
How do I get notified once I uncheck an item
' UncheckItem event - Occurs when the user unchecks the item.
Private Sub ExContextMenu1_UncheckItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "UncheckItem event on Itm object" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item").Check = True
.Add("Item").Check = True
End With
.Select
End With
|
|
131
|
How do I get notified once I check an item
' CheckItem event - Occurs when the user checks the item.
Private Sub ExContextMenu1_CheckItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "CheckItem event on Itm object" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item").Check = True
.Add("Item").Check = True
End With
.Select
End With
|
|
130
|
How do I get notified once I click/select an item
' SelectItem event - Occurs when the user selects the item.
Private Sub ExContextMenu1_SelectItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "SelectItem event on Itm object" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add "Item"
.Add "Item"
End With
.Select
End With
|
|
129
|
Does your control support padding for items
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.MenuAppearance = exMenuNormal
With .Items
.Padding = "2,12,2,2"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.BackColor = RGB(255,255,255)
.BackgroundExt = "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
End With
.Select
End With
|
|
128
|
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.HotBackColor = &H1000000
.Padding = "4,8,4,8"
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
End With
.Select
End With
|
|
127
|
How can I change the background color for items, when cursor hovers it (hot)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.HotBackColor = RGB(255,0,0)
.Padding = "0,8,0,8"
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
End With
.Select
End With
|
|
126
|
How can I change the visual appearance for items (EBN)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.BackColor = &H1000000
.Padding = "4,8,4,8"
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
End With
.Select
End With
|
|
125
|
How can I change the background color for items
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.BackColor = RGB(255,0,0)
.Padding = "0,8,0,8"
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
End With
.Select
End With
|
|
124
|
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.FlatImageWidth = 0
With .Items
With .Add("Popup",2).Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Select
End With
|
|
123
|
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.MenuAppearance = exMenuNormal
With .Items
With .Add("Popup",2).Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Select
End With
|
|
122
|
How can I arrange the drop down item from left to right, rather than top to bottom
' SelectItem event - Occurs when the user selects the item.
Private Sub ExContextMenu1_SelectItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "Clicked" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
.MenuAppearance = exMenuNormal
With .Items
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
End With
End With
.Add("").ToString = "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
End With
.Select
End With
|
|
121
|
How can I add a drop down button / combobox (method 2)
' SelectItem event - Occurs when the user selects the item.
Private Sub ExContextMenu1_SelectItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "Clicked" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButtonBottom Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Select
End With
|
|
120
|
How can I add a drop down button / combobox (method 1)
' SelectItem event - Occurs when the user selects the item.
Private Sub ExContextMenu1_SelectItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "Clicked" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButton Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Select
End With
|
|
119
|
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong
' SelectItem event - Occurs when the user selects the item.
Private Sub ExContextMenu1_SelectItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "Clicked" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Button",2)
.ShowAsButton = ShowAsButtonEnum.exShowAsSelectButton Or ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
End With
.Select
End With
|
|
118
|
How can I add a button (push button)
' SelectItem event - Occurs when the user selects the item.
Private Sub ExContextMenu1_SelectItem(ByVal Itm As EXCONTEXTMENULibCtl.IItem)
With ExContextMenu1
Debug.Print( "Clicked" )
End With
End Sub
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Button").ShowAsButton = ShowAsButtonEnum.exShowAsButtonAutoSize Or ShowAsButtonEnum.exShowAsButton
.Add("").ToString = "Button[button=0x03]"
End With
.Select
End With
|
|
117
|
How can I display grouping items with no frame arround
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.Add("A").Alignment = exCenter
.Add("BC").Alignment = exCenter
.Add("D").Alignment = exCenter
End With
End With
.Add("").ToString = "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
End With
.Select
End With
|
|
116
|
How can I display grouping items of the same size/width/height
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopupEqualHeight Or GroupPopupEnum.exGroupPopupEqualWidth Or GroupPopupEnum.exGroupPopup
With .Items
.Add("A").Alignment = exCenter
.Add("BC").Alignment = exCenter
.Add("D").Alignment = exCenter
End With
End With
.Add("").ToString = "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
End With
.Select
End With
|
|
115
|
Is it possible to display a ticker frame arround grouping items
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = GroupPopupEnum.exGroupPopupFrameThickBox Or GroupPopupEnum.exGroupPopupFrameSolidBox Or GroupPopupEnum.exGroupPopup
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Select
End With
|
|
114
|
How do I display items horizontally arranged
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = exGroupPopup
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
.Add("").ToString = "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Select
End With
|
|
113
|
Is it possible to expand an item when it is clicked (tree,group,vertical)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Expand",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Check = True
.ShowPopupOnChecked = True
With .Items
.Padding = "22,0,0,0"
.Add("Radio 1").Radio = True
.Add("Radio 2").Radio = True
With .Add("Radio 3")
.Radio = True
.Checked = True
End With
End With
.Checked = True
End With
.Add("").ToString = "Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=" & _
"2][chk=1])"
End With
.Select
End With
|
|
112
|
Is it possible to expand an item when it is clicked (tree,group,vertical)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Expand",2)
.GroupPopup = GroupPopupEnum.exGroupPopupVertical Or GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
.Check = True
.ShowPopupOnChecked = True
With .Items
.Padding = "22,0,0,0"
.Add("Radio 1").Radio = True
.Add("Radio 2").Radio = True
With .Add("Radio 3")
.Radio = True
.Checked = True
End With
End With
.Checked = True
End With
End With
.Select
End With
|
|
111
|
Is it possible to expand an item when it is clicked (group)
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Expand",2)
.GroupPopup = exGroupPopup
.ItemHeight = 24
.Check = True
.ShowPopupOnChecked = True
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
End With
.Select
End With
|
|
110
|
Is it possible to extend an item when it is clicked
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("Expand",2)
.Check = True
.ShowPopupOnChecked = True
With .Items
.Add "Item 1"
.Add "Item 2"
.Add "Item 3"
End With
End With
End With
.Select
End With
|
|
109
|
Does your control implement padding for item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.BackColor = RGB(250,250,250)
.Add("Item").Padding = "4,4,4,4"
.Add("").ToString = "Item[pad=4,4,4,4]"
End With
.Select
End With
|
|
108
|
How can I add an empty item for a horizontal group
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
With .Add("",2)
.GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup
With .Items
.Add "Item 1"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupCenter Or GroupPopupEnum.exGroupPopup
.ItemHeight = 12
With .Items.Add("")
.Enabled = False
.ItemHeight = 8
.CaptionWidth = 8
End With
End With
.Add "Item 2"
End With
End With
End With
.Select
End With
|
|
107
|
How can I add an empty/separator item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add "Item"
With .Add("")
.Enabled = False
.ItemHeight = 2
.CaptionWidth = 8
.BackColor = RGB(240,240,240)
End With
.Add "Item"
End With
.Select
End With
|
|
106
|
How can I add an empty/frame item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add "Item 1"
With .Add("",2)
.GroupPopup = GroupPopupEnum.exGroupPopupCenter Or GroupPopupEnum.exGroupPopup
.ItemHeight = 12
With .Items.Add("")
.Enabled = False
.ItemHeight = 8
.CaptionWidth = 8
End With
End With
.Add "Item 2"
End With
.Select
End With
|
|
105
|
How can I specify the height of the item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.BackColor = RGB(250,250,250)
.Add("Item").ItemHeight = 64
.Add("").ToString = "Item[height=64]"
End With
.Select
End With
|
|
104
|
How can I specify the width of the item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.BackColor = RGB(250,250,250)
.Add("Item").CaptionWidth = 128
.Add("").ToString = "Item[captionwidth=128]"
End With
.Select
End With
|
|
103
|
How do I align the item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.BackColor = RGB(250,250,250)
.Add "Item"
With .Add("Item")
.Alignment = exCenter
.CaptionWidth = 128
End With
With .Add("Item")
.Alignment = exRight
.CaptionWidth = 128
End With
.Add("").ToString = "Item[align=1]"
End With
.Select
End With
|
|
102
|
How can I underline the item
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item").Underline = True
.Add "<u>Item</u>"
.Add("").ToString = "Item[und]"
End With
.Select
End With
|
|
101
|
How can I show the item as strikeout
Set ExContextMenu1 = CreateObject("Exontrol.ContextMenu.1")
With ExContextMenu1
With .Items
.Add("Item").Strikeout = True
.Add "<s>Item</s>"
.Add("").ToString = "Item[stk]"
End With
.Select
End With
|