|
95
|
The control shows no icons. What can be the problem (32-bit, alpha channel vs 4-bit icons problem)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.ImageSize = 32
.Images("gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbmiAQD/jL/r1fYFlsFctFptVrtltt0qsdgrz/srAs8NsNxut3t99v1/wGBwQAuNhwlks17veGjFiueLweRyWTymVm+FxsTw90xOdu2Ks2Mht60OW02n1Gp" & _
"rWYiUTh+b0Gfz2c2W1u+30l21W73m93021mu4UO2Gz2O05HHyF4xu5vm/6HR6WB4PD61yxG25XG7na0vMhvL6fj8nlqXV6/p4ve9nX7ft5eO7PP831+33rtzsPp/mvx7" & _
"uuS77bus97kLy/T8QTBUFpM9D+we7D3QA47RQC9rRQZDMNQTCEOs0/UQK/AkJxJC7Gw3FEUvLD0HsKh7Fv8r7NxG+EStvFUcRy3sWOs50YIdH8DRDCUattDEdSRJLIx4" & _
"h64rizUXtDKLdSmsEYwjGkLRvJUuS6v0WRch0nyq1sgzNKUgNDIcsyPL03TerMWv1KsxuJMk7zTKk8ytPbWs3GbXxPOFB0Iqjrx9ND5NdM89QNPFHT7QK8QQ8FC0tS6k" & _
"tdJy5yhPc6uvMtE0ZPlIQNQVMVRVNM0/T8g1a2c2UfUc/VPVVbVuobcU4186V24VQts61gVJWda1xY9kKDB6903EVeU8udPonWdJPpZNr2wm1F1g4bW2bRVh2/YUyWNb" & _
"NzXOl1QSqvdY0jd0ttbX9y3Rel6pNAdn1M8F1Xe+KVXhe2A4FdMK4IzLhyDNuB4XhilXxeVK4biWJqXgGKYvjGM41jeOY7jycIqHyVZEjqPpCjKSJIkyDpxSWP5fmCZI" & _
"C")
.Images("gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbmiAkEar0gYFjrlls1ntFptVrllhjFeAFjYFtuFytl3vF5vV7vkmt1+sVku12lduwl9xGJxWLxk3v8Zh9vwNzweCy1zwt1smNzmdz2frePjGRyIAzWUy9x" & _
"1OVzEqw2b0Gx2Wz2k10USf+43Wmyeq1G/33B1nBzO92vH5HJxO30kO3Wl0/C1fT4HDw8p6/K7Xb7lS5nO5u58OS6XV1Pj63U4kf6Pd93v+E57/i8H1+n38np82tlPo9T" & _
"stu+MBQHAjJK+yD7OfBLxt5BTcv08qWQg7MCwrC0KvHDMFwTBsOrg/z9wjCbYQvEsTPfDT8RS3ivucwjnQ8kEQRE/8SRPG8cNrFcVte4CJOJFzNrhBsZxG/kcyRJLOR3" & _
"BK3Lc0sgsxKLRwezcYSHD8EwhJUuS6xEmNyv7nSfKcfxfKspTRKjiSxGUtRtL04zks8eSHKcyNzM0rTVPU0yBPkrq/LM8znQtDKy8cez/FjdTPRdHUhPdFsBQ9K0sqTI" & _
"ydQc1rtPEHU5SVIz9UVL1LUyo09T1HVU8831HUNYT9U9Z1op9PT7RkGSmu1dUBXz11rYNhKRFdOrhW872PTbI1JH9h2faCg2ZVr8R/TSQTFNVr0/XFo29b6cV7CMZ27M" & _
"sYJVBlwXVdabShPl0Q5c133Zel6qxclz3tfV9qvdN+X/gGA4FgeCYLg2D4RhLFoqHyVYajqPpCjKSJIkyD3C+1CJYiaX44lx/nhfKVn+cAf41kZgAfk90EAAeVv60aXn" & _
"8jAfpefiMA+l58IwA6XngjAHpecGcaFoiXaGAGc6PoyW6RpWm6YlmnaLpOqD/q2fIxq6XZuAGtpbruvpZsOZIRl6TH+RgD7OjSHbXjp/mftkEZFeG6pSgIA==")
With .Items
.Add("Icon 32-bit<br><c><img>1</img>")
.Add("Icon 4-bit<br><c><img>2</img>")
End With
.EndUpdate()
End With
|
|
94
|
ImageSize property on 32 (specifies the size of control' icons/images)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.ImageSize = 32
.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m0mf8ZnMYncNnU/nlAn1BolDo09pFCpNFpdGm9PqE0f6Aq" & _
"k9qNXrFZrVbrldr1fsFXidjslls1ntFptVroVht1UQFNptuul1u13vF5vViidKpVqv1MwFMwMSh9tvc0uFynV9nmLxORyWTr1VnWLYGZq2Uzk8tef0Gh0VnxGdAGQwme" & _
"h+ZYD/1mM02x2WmyFV19KzGa2d5seFuVm31/su+wdOxOoo+N1ea1/FqeW3fR6WV6E+23M7Gt3HX7XTrej8Hh8XDot15G/5et5sPkEN9uu7Ow73z+kx8997nw9Xx29M3L" & _
"uvqmTetS5LVLI4jQODA0BuMrTzuEhzXvWhz3vez0FtIx7qwDDjpvu4b8wk/kRwApD/s3DrDPHFcWLY8qbwewT0v0scKwuiSiIcz0Tv7AsUx+zkPrQ064xE/cjxpI0kt0" & _
"/z8q0+UoQVH0owJKkVQZK0sJnGKjonJSzPenLDsPHD3OhHUrwzMy4yBNq7yEtkQxJJckSVJSlR6m8Wz3PjyTTPjSoxLikS8+K1S+wyJObG6dzRCk5RLQM3Umq84NDIk6" & _
"UzCaxztOceufIsmJhLUqudBEhyrCFCT9KDgVTJtQyRQ9DLTREywHR0XTXFFKV6mFLPBTFOzrUVVrJYcaMvDcBT7ZtAQxZ9dp1ZDFrNL9a1otE71vTj4sLX1wJXYDx0xa" & _
"1PW8plkU+qNSSm5UD1fLtWVVV0/z3d65SVHjNVnSN4qRa8I2zNVQV5cNw2cw7LYWuNzWJh9NXRBqpYTirxWUuLF40quN4zjmPzZf8pSzjuC5LasZ03h1kwJg+XXs8TIR" & _
"nROGLPdVz38p921becZM/kd6xpfeIX06sx5PkGTaS86qUTMcdSxgObYHoLkZfXsW6HMWBO1mea5Xm+cz1i2yNEy7H7Q920qntcbYno6QOfM257lutladqG8zIhuVLLqW" & _
"wWLSWrx/mOkr7mfEa5rac6/v058EmOd3pnt3WhNHK3ly9c0ZRvO85taXbhumm7tDW8cXK/J8Vvtj6pymDcG+rRZlR+G8TZPbtvr02KrlfIVHsvg11tm1eL4nj7d5EXpb" & _
"0XS7pvXT810nSWnflsVl6+WR92MUrX2mhd7p/ccUw3dfJ29MXLvfYcix3MWNyVS9f1UTaX8NUYnscxbv8XoyyvhQr2FtOuXgtJ7iASztaMMyh88DXxwPfNA8n7Rl2PCg" & _
"swRFjv1ftGdI9B8Tmm/uOgE1OEaYGkrfgOd5GrhnxGvgYaR3JuoYtdfI8srEF4cQFSy0FJ8HXUQffqyFmEIXWwlLKyVZDGH2QpMowUicL4IxQgJBCGUDoIwaS2/Zj0W2" & _
"lRcaRF6LUXYxRficiuLDzIfOndS6Zup53WLdiMWSJDj2RRMPnEE3qM4XuHdW9ZA8M3FrrQcpBiKSGtNhfArGQqmVBqnLmgKNL/UsNQem3GSsQo4I0LVHNiBvmrR2UoWu" & _
"F0LG9Sji4759ENinvJlY22VzxpWywle8qWUtUWxnefD9vUIFiyUktL+AzMIntJiSlWT8oGXSZjfAuML5TNMlOAzOVSMHPrcmq5ua02ZsTbc9NpRqFl/w8eYeE3yn4PTn" & _
"f2hqLkxUpzHmRAeGEfTWyoitFU9EOityxlpPufU/ZZz+lsmGM0046vbjcxJ/5PJ2FyndO+hyqpnM5njFRsUKDpw5ow5ovbAD4xkoWduIVD6RE2PkSt+EAXUUEPrGSlkY" & _
"aWxgphGOlyyy3tGkQtudtNKR07ibAB9alJDs4YLTdOdQWiTPp0XijknZjVJp5U+i8uD6UAn5P+q1Aar1VeMcemzgVYRLqhWGsReEwzXm7Nys1aZvVqUdOAzlDKnVjrlX" & _
"MvNVK7VZrvVivVYC7sFrpXQioPiVWCI6R8kJGSSEkJMAIqDe6/2PshZGA5AQ=")
With .Items
.ToString = "Icon 0[img=0]"
.Add("Icon 1",1)
.Add("Icon Inside <img>3</img>")
End With
.EndUpdate()
End With
|
|
93
|
ImageSize property on 16 (specifies the size of control' icons/images)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.ImageSize = 16
.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUHAgEP50nD/N87f58nz/Q1Bf5rolDoqJpD/PFLoxrf5sqD/IVTf" & _
"8zqwAAtZBAHriOD9ffgJsQJq9ls1ntEtAYgEB/GgwGB+rlctNpCt3QDCvT/RF9f7DwETf6Fwj/P+HwTPxT/QmNf60yF8v11mgEA4KBYLPgjFAneSQTCPf5y0j/CoUCp5" & _
"ymr1mrEQzGa9MamU2MPZ7f5PJxOfg73yBuYH1stCXFPa+5GDwqA5mCQ/Pf6O6T/bPVf7G7D/5iAwSM71Vmc1ywKsSBEIkEj8PCLQT/YLGZL/Z6VT7/cTebL/EQlEr88S" & _
"EOHAMBI0GYXBcXpUlyXKlFqWp/m2aZpn+WZZFkf44Qwf7dt43wdkCA0QAMmcRIxEgARNExBFdFbtOa27cHFGJ/j9Gh/lvG7BGBHUWu4XcfH+RsgvAlTggVIxAg9JJ+Do" & _
"PA7vkZZmH+ag/D+v4Dge8Btn+bhwnixhCDyf7igkP0BzM1YVTSXpnGUZTBDKURRH8ZEdzbNxxzwf5bT2nSeCxP5/htQQnAZQoHo0IFEnzDA4HyNNHnywhCny0g5H4O9M" & _
"H+SNNn+TFPQvDLDyqN1SH+S1Tn+aFVKUphK1cf5A1jIYEghWo9ySD0lpy6r8ombpbGKf55gScCHA8Ch/iiBBJn+Igsn2f51HVCT+BG/zxTPbKWxCAwU28XZi3CwRznwf" & _
"B/DiVBUH+bpkviXcFOUQp/zsf5rXsf7aNqKd9n+GN/B6jTvEYf5O4Kf6kESwRr4WwzDn9BUFonWJAn+SmLH/CsLE6TxPH+c50HQf5RFGUZ/nfk5/kflR/hWFYXn0LguC" & _
"8f903UwSHn0fR+Ska5x3mZxyH+cpQEof5sEDgYEguhx4nkh0aDpMTizLbWqo0CesDyY+tsEf2vH8dR7nvZpQFAf5UmcZx/m8ahqH+WGSH+NqimGYhiH/u27vEQyWO2f5" & _
"L8BHj3GCYJ/mbw/BY5jp88Zhsq8Jwp/H6fp/jINo2n+aJyaCaxznPKRynLWFOCQJAdH+HwfCUf4wjCOB/DKMo4n+55IH+NA0Dqf4jCMHJ/isLohn+IYpisf5lmwau1m5" & _
"0R4niectm5LQQ+pa6a6tbQB+1KubocfdoFiyIoGr5QUGWZZ/jMWZZn+WMIn+cxuG5o3zn+XV4AAgg9pZUR/1cJVwQ24BHXOy35nI+jBMTccvUb43x/haLgP8TIQQgj/E" & _
"+Ep1Yozdj/E4E8J4/wesAF82UFw/1HgtVACof4JwTgjcqGQiQ/2liwFe7pkiDh6D1HqyYd45n4Dmh8RMO0Qx/mZAWHp7C2TxG4e6HpCrNEcBwHcO4f4X3Nj/CyN0brLF" & _
"2vpfWhNhg3YBgGJqIR/hiBFRpH+phJxEy9DCjWplRg/1yj4gWHsn4qjkhtLEP8X5GB/jAkALuQAmiMD5I0E0JoABaI3Ia6UhoeokEPAmP9BoYR/gNAaQ0VQqjaw6js55" & _
"z7oXRDylMP9zbQSxjzAFK1AESTWljSq16Swvxfj/CKMgZA/xfLiD/FMf4S4GwPHCOF9LoR/hbHAsUEbdlmmIAekYPr/Dmi4XgnEUR1BtDaH+OFGQoZwL4FOKcwQoxSCk" & _
"H/J0VQ/2xNjCivwVQrxXmCDuT4eBGQGEsCIEQDg+TnwxAgP8XovWKBQCg7o6Qg2RCibNKZpzIGQjrokP8dlFYeDvH+qQNw/wMUdEbLA4ZYw8iuk6X9+oVIBD+GBLZ+A9" & _
"B6MYHaO0pTIENIyC9RMMT8khiDIyQYlYgxJrMG3TEf41XPD/GKwwZM20pRAH+NOZAwBojRqfFcbNExdv1DAo8f4gjoDHcQIQpA7yXg7klDECo/12hshAD0EpRg5TsbGP" & _
"+Wg/2QOfoqOxtY3hvN4mcyRkoWrBD/K+B8flIEBAGADK0QAnqSjNIeMSL4jZlsEGYlGW0txZIxH8Igh4U4r2KAC1Ql0HYPipX4KkKoVVOhDeEJmfY/oLurFAEsJbKQdO" & _
"nE0EUIo/7a23E9BsQAXQuj/D6IOhQm7lD/Dzc2e6JQH3RCip4ERDwU0CoJA8LQOh/TnIbcgA8cQvj/Tw6JPDQW8j/nAKGKoX7xvUBCPxrAEw9PaAGA6xC2Q/B1d1A4hw" & _
"zHGisMWIF+oUqmCAnkP4PB0xR2VAYVy0hLZDAAHyLiQ4tJDiwIwPwYkgBjkEOvIAZL2sQkNGRIAYcgBMhUCo2cWIsR/j5ZyYMoNz0TupB8p0TC8rkB5HQZkDov19hlSA" & _
"I0JA/40kNNIQ1y5ThYCwFoP8MGUz9AiBEPy6IDzgFzvzSAAkrQhguN2M4GppB/AkAcA4QwcbkDyFfjMPLjSMiWAqiAN1iwBAKRGRlFAHgUAoEELt94vX3i3cQLRNo/xc" & _
"Np0VowWriBjL3GsOkdKW5gB5OfjZEwCyMnCIwAIjWfwTj9QqMC9QoRbj/EkJK9jrZMZWyvlnLZdMu61Jjp4k4BwO5pECHNTA/QCIgB+mYIR/A9iyvcP8U9gxQ4sb/Bhf" & _
"FgxTBZCzerZwlXeD/FHQZmgUgpJACOEceGoETlWo6BgPQY91D/kkbgE27x5AR3kHxEOuNbb3QGSRbQQiMB/GLIAXkgBdSDkALngvAuCEN4MQ3DpDRJkY3GiUq19gEgd4" & _
"sPzeQERHIhARvjfBFQfEr5CR0j5ISMkk30RkQBdSH8e5cgIgI")
With .Items
.ToString = "Icon 0[img=0]"
.Add("Icon 1",1)
.Add("Icon Inside <img>3</img>")
End With
.EndUpdate()
End With
|
|
92
|
How can I displays items rotated (exDisplayRadialRotated90)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated90)
.EndUpdate()
End With
|
|
91
|
How can I displays items rotated (exDisplayRadialRotated270)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated270)
.EndUpdate()
End With
|
|
90
|
How can I displays items rotated (exDisplayRadialRotated180)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated180)
.EndUpdate()
End With
|
|
89
|
How can I displays items rotated (exDisplayRadialRotated)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
With .Items
.Add("Foreground","color_line.png").Items.ToString = "Foreground"
.Add("Background","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.EndUpdate()
End With
|
|
88
|
How do I load images to sub-items zone
With AxRadialMenu1
.Expanded = True
.SubItemsSize = "48*dpi"
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,8421504)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,8421504)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
With .Items
With .Add("")
.Image(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "favorites.png"
.Image(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "download.png"
End With
End With
End With
|
|
87
|
How can I display the control directly on the screen
With AxRadialMenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","stock_mail_filters_apply.png")
.set_HTMLPicture("settings","settings.png")
.set_HTMLPicture("hard","download.png")
.set_HTMLPicture("favorites","favorites.png")
.set_HTMLPicture("remove","remove.png")
.set_HTMLPicture("refresh","refresh.png")
.set_HTMLPicture("synchronize","synchronize.png")
.set_HTMLPicture("preview","preview.png")
.set_HTMLPicture("search","search.png")
.ToString = "Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>App" & _
"lication[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)"
.Expanded = True
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated270)
.BackgroundPicture = "Background\frontc.png"
.GetOcx().SubItemsBackColor = -1
.SubItemsSize = "18 * dpi"
.EndUpdate()
.Float = True
End With
|
|
86
|
How do I add a radial-slider control
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
With .Items
With .Add("Slider")
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
.BrowseCustom(EXRADIALMENULib.RadialCustomPropertyEnum.exRadialCustomSliderValue) = 35
End With
End With
.BrowseItem = .Items.Item("Slider")
End With
|
|
85
|
How can I display a slider directly on the radial menu, with no items...
With AxRadialMenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.Expanded = True
.InflateCustom = "-4 * dpi"
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,128)
.CustomPicture = "Background\frame.png"
With .Root
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
.BrowseCustom(EXRADIALMENULib.RadialCustomPropertyEnum.exRadialCustomSliderValue) = 25
End With
.Refresh()
.EndUpdate()
End With
|
|
84
|
How can I programatically browses for a new item
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
With .Items
With .Add("Slider")
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
End With
.BrowseItem = .Items.Item("Slider")
End With
|
|
83
|
How can I display the items rotated
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.Expanded = True
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.05)
.EndUpdate()
End With
|
|
82
|
Is it possible to display the arrow into the items section, and how I can change the default position
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrowu.png")
.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
.set_DisplayCenterArrow(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0)
.Expanded = True
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.EndUpdate()
End With
|
|
81
|
Can I display the arrow into the items section
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
.Expanded = True
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.EndUpdate()
End With
|
|
80
|
How can I know if the cursor is hovering the center ring ( parent zone )
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
With AxRadialMenu1
Debug.Print( "ParentOnPoint " )
Debug.Print( .get_ParentOnPoint(-1,-1) )
End With
End Sub
With AxRadialMenu1
.Expanded = True
End With
|
|
79
|
How can I specify the size to display the images/pictures into the items
With AxRadialMenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_ItemsImageHeight(EXRADIALMENULib.RadialItemsEnum.exRadialItems,"64*dpi")
.set_ItemsImageWidth(EXRADIALMENULib.RadialItemsEnum.exRadialItems,"64*dpi")
With .Items
.Add("","color_line.png")
.Add("","color_fill.png")
.Add("","format_font_size_less.png")
.Add("","edit_undo.png")
.Add("","edit_redo.png")
.Add("","edit_copy.png")
.Add("","fileview_text.png")
.Add("","checkmark_korganizer.png")
End With
.EndUpdate()
End With
|
|
78
|
By default, the parent image is 32-pixels wide. Can I display it larger
With AxRadialMenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("logo","settings.png")
.ParentSize = "96 * dpi"
.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<font ;14><c>System Settings</font><br><c>Surround")
.EndUpdate()
End With
|
|
77
|
Is it possible to specify where to display the item's caption
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.Items.Item(0).BackColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems) = RGB(240,240,240)
.set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.85)
.EndUpdate()
End With
|
|
76
|
How can I disable browsing the items, or prevent displaying its children
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.AllowBrowseItem = False
.Items.ToString = "Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)"
.EndUpdate()
End With
|
|
75
|
How do I get the item from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
With AxRadialMenu1
Debug.Print( "Full-Item: " )
Debug.Print( .get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1).get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) )
Debug.Print( "Item: " )
Debug.Print( .get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1).get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) )
Debug.Print( "SubItem: " )
Debug.Print( .get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1).get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionForeColor) )
End With
End Sub
With AxRadialMenu1
.Expanded = True
.Items.ToString = "Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[" & _
"scap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]"
End With
|
|
74
|
How do I get the index of the pie from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
With AxRadialMenu1
Debug.Print( "Full-Index: " )
Debug.Print( .get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1) )
Debug.Print( "Index: " )
Debug.Print( .get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1) )
Debug.Print( "Sub-Index: " )
Debug.Print( .get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1) )
End With
End Sub
With AxRadialMenu1
.Expanded = True
End With
|
|
73
|
How can I select an item
' SelectItem event - Notifies once the user selects an item.
Private Sub AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
' SelectedIndex(3) = Item.Index
End Sub
With AxRadialMenu1
.BeginUpdate()
.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
.EndUpdate()
End With
|
|
72
|
How can I use the sub-items zone only
With AxRadialMenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("logo","settings.png")
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
.SubItemsSize = "64 * dpi"
.ParentSize = "value - 66 * dpi"
.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<font ;14><c>System Settings</font><br><c>Surround")
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-2147483635)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,128)
.ItemsBackColor = .SubItemsBackColor
With .Items
.Add("","color_line.png",2)
.Add("","color_fill.png",2)
.Add("","format_font_size_less.png",2)
.Add("","edit_undo.png",2)
.Add("","edit_redo.png",2)
.Add("","edit_copy.png",2)
.Add("","fileview_text.png",2)
.Add("","checkmark_korganizer.png",2)
End With
.EndUpdate()
End With
|
|
71
|
Is it possible to display all items with a different rotation angle
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.DisplayAngle = -7.5
.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ParentSize = "48 * dpi"
.ParentPicture = "Background\frontb.png"
.ArrowImage = "arrow.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.InflateParentPicture = "72 * dpi"
.EndUpdate()
End With
|
|
70
|
How can I programatically advance / browse for the parent item (method 2)
' RClick event - Occurs once the user right clicks the control.
Private Sub AxRadialMenu1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxRadialMenu1.RClick
With AxRadialMenu1
.BrowseItem = .BrowseItem.Parent
End With
End Sub
With AxRadialMenu1
.Expanded = True
.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
With .Items
With .Add("Volume")
.Caption(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "slider"
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
With .Add("Item").Items
.Add("Child 1")
.Add("Child 2")
End With
End With
End With
|
|
69
|
How can I programatically advance / browse for the parent item (method 1)
' RClick event - Occurs once the user right clicks the control.
Private Sub AxRadialMenu1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxRadialMenu1.RClick
With AxRadialMenu1
.GoBack()
End With
End Sub
With AxRadialMenu1
.Expanded = True
.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
With .Items
With .Add("Volume")
.Caption(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "slider"
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
With .Add("Item").Items
.Add("Child 1")
.Add("Child 2")
End With
End With
End With
|
|
68
|
Can I display the pointer with a different angle
With AxRadialMenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.PointerPicture = "pointer.png"
.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
.AllowHotPointer = False
.ParentSize = "36*dpi"
.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.PointerAngle = 12
.EndUpdate()
End With
|
|
67
|
How can I use the pointer (select sample)
' SelectItem event - Notifies once the user selects an item.
Private Sub AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
' PointerIndex = Item.Index
With AxRadialMenu1
.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,.PointerIndex)
End With
End Sub
With AxRadialMenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.PointerPicture = "pointer.png"
.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
.AllowHotPointer = False
.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
.ParentSize = "36*dpi"
.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.PointerIndex = 0
.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,.PointerIndex)
.EndUpdate()
End With
|
|
66
|
How can I use the pointer (hot sample)
With AxRadialMenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.PointerPicture = "pointer.png"
.PointerIndex = -1
.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
.AllowHotPointer = True
.set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128)
.set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
.ParentSize = "36*dpi"
.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
.Expanded = True
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.EndUpdate()
End With
|
|
65
|
Is it possible to apply the control's background picture on the parent zone too
With AxRadialMenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.BackgroundPicture = "Background\fronte.png"
.ForeColor = RGB(255,255,255)
.Expanded = True
.ParentSize = "48 * dpi"
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.23)
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.GetOcx().ParentBackColor = -1
.ExcludeParentFromItems = True
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,0)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,128)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,128)
.EndUpdate()
End With
|
|
64
|
Can I display the picture on the parent zone, a bit larger
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ParentSize = "48 * dpi"
.ParentPicture = "Background\frontb.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
.InflateParentPicture = "64 * dpi"
.EndUpdate()
End With
|
|
63
|
Is it possible to assign a different background picture when displaying a slider/custom data
With AxRadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.InflateCustom = "-4*dpi"
.CustomPicture = "Background\frontb.png"
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
.BrowseItem = .Items.Item("Item 2")
End With
|
|
62
|
How can I customize the custom part of the control, the inside ring/circle
With AxRadialMenu1
.Expanded = True
.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.InflateCustom = "-4*dpi"
.CustomBackColor = RGB(128,128,128)
.CustomBackAlpha = 128
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
.BrowseItem = .Items.Item("Item 2")
End With
|
|
61
|
How do I prevent expanding / collapsing the radial menu
With AxRadialMenu1
.AllowToggleExpand = False
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
End With
|
|
60
|
Is it possible to change the parent's picture/image when expanding collapsing the radial menu
' BrowseItem event - Notifies once the user browses for a new item.
Private Sub AxRadialMenu1_BrowseItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_BrowseItemEvent) Handles AxRadialMenu1.BrowseItem
With AxRadialMenu1
Debug.Print( "Current State: " )
Debug.Print( .State )
End With
End Sub
' SelectParent event - Occurs once the user clicks the parent of the item.
Private Sub AxRadialMenu1_SelectParent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxRadialMenu1.SelectParent
With AxRadialMenu1
Debug.Print( "Current State: " )
Debug.Print( .State )
End With
End Sub
With AxRadialMenu1
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.Items.ToString = "Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
With .Items.Item("Item 2")
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
.set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuCollapsed,"format_font_size_less.png")
.set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedNoItems,"fileview_text.png")
.set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedRootItem,"edit_undo.png")
End With
|
|
59
|
Is it possible to assign a different picture on the parent zone (center ring)
With AxRadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ParentSize = "48 * dpi"
.ParentPicture = "Background\frontb.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
58
|
Is it possible to assign a different picture on the items zone (inner ring)
With AxRadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.ItemsPicture = "Background\frontc.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
57
|
How can I change the control's background picture
With AxRadialMenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.BackgroundPicture = "Background\fronta.png"
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
56
|
How can I hide the line being shown around the item form the cursor
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
55
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,0)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,64)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,-1)
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
54
|
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,0)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,64)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,-1)
.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
53
|
Is it possible to highlight the entire item, when cursor hovers it
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
52
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,3)
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
51
|
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,3)
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
50
|
How can I change the border around the items zone, when cursor hovers it ( inner ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,3)
.Items.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
End With
|
|
49
|
How can I change the border around the parent zone, when cursor hovers it ( center ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,3)
End With
|
|
48
|
How can I change the border around the items zone ( inner ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,3)
End With
|
|
47
|
How can I change the border around the parent zone ( center ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,3)
End With
|
|
46
|
How can I change the grid lines in the items zone ( inner ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,3)
End With
|
|
45
|
How can I change the border around the slider / custom part of the control
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
With .Items
With .Add("Slider")
.BrowseType = EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
End With
.BrowseItem = .Items.Item("Slider")
End With
|
|
44
|
How can I change the grid lines in the subitems zone ( outer ring )
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,3)
End With
|
|
43
|
How can I change the border around the subitems (exRadialSubItemsBorder)
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,3)
End With
|
|
42
|
How can I change the border around the radial menu (exRadialBorder)
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = RGB(240,240,240)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialBorder,0)
.set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialBorder,3)
End With
|
|
41
|
How can I customize the parent part of the control, the center ring/circle
With AxRadialMenu1
.Expanded = True
.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
.ParentSize = "48 * dpi"
.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"78 * dpi")
.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"78 * dpi")
.ParentBackColor = RGB(0,255,0)
.ParentBackAlpha = 128
.ExcludeParentFromItems = True
End With
|
|
40
|
How can I prevent showing the arrow in the outer ring
With AxRadialMenu1
.Expanded = True
.ArrowImage = ""
.Items.ToString = "Child(SubChild)"
End With
|
|
39
|
Is it possible to change the default arrow, that items with children display (method 2)
With AxRadialMenu1
.Expanded = True
.set_HTMLPicture("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEI" & _
"JULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRyg" & _
"XCccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI")
.ArrowImage = "pic1"
.Items.ToString = "Child(SubChild)"
End With
|
|
38
|
Is it possible to change the default arrow, that items with children display (method 1)
With AxRadialMenu1
.set_HTMLPicture("arrow","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEI" & _
"JULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoW" & _
"T8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA==")
.Expanded = True
.Items.ToString = "Child(SubChild)"
End With
|
|
37
|
How can I change the logo image
With AxRadialMenu1
.set_HTMLPicture("logo","C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png")
End With
|
|
36
|
How can I customize the items part of the control, the inside ring/circle
With AxRadialMenu1
.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.Expanded = True
.Items.ToString = "Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.InflateItems = "-4*dpi"
.ItemsBackColor = RGB(0,255,0)
.ItemsBackAlpha = 128
End With
|
|
35
|
How can I customize the subitems part of the control, the outside ring/circle
With AxRadialMenu1
.Expanded = True
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.SubItemsSize = "48 * dpi"
.SubItemsBackColor = RGB(0,255,0)
.SubItemsBackAlpha = 128
End With
|
|
34
|
Can I expand/shrink the radial menu relative to its border/shadow
With AxRadialMenu1
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.InflateRadialMenu = "-6*dpi"
End With
|
|
33
|
Is it possible to remove/hive the control's shadow
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
|
|
32
|
How do I change the color of the control's shadow
With AxRadialMenu1
.Expanded = True
.ShadowColor = RGB(255,0,0)
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
End With
|
|
31
|
How can I evaluate/format an expression using the control
With AxRadialMenu1
.AllowToggleExpand = False
.DisplayAngle = -66
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,.FormatABC("`The number of items is: <b>` + value",.Items.Count))
End With
|
|
30
|
Is it possible to display some extra captions on the control's background
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.MinVisibleCount = 6
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is a caption to be displayed on the control's background.")
.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is an extra caption to be displayed on the control's background.")
.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2)
.set_ExtraCaption("extra",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,True)
.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"<img>logo:64</img>")
.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,4)
.set_ExtraCaption("extralogo",EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth")
.EndUpdate()
End With
|
|
29
|
What events the control supports
' Event event - Notifies the application once the control fires an event.
Private Sub AxRadialMenu1_Event(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_EventEvent) Handles AxRadialMenu1.Event
With AxRadialMenu1
Debug.Print( .get_EventParam(-2) )
End With
End Sub
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.EndUpdate()
End With
|
|
28
|
How can I use/load images/pictures
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("relative","settings.png")
.set_HTMLPicture("absolute","C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png")
.set_HTMLPicture("encoded","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN" & _
"5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKL" & _
"cAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRCh" & _
"QnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8" & _
"FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJH" & _
"h+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" & _
"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfF" & _
"GKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu" & _
"/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZo" & _
"cwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH" & _
"6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYAB" & _
"FhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" & _
"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBG" & _
"DMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoV" & _
"RqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M" & _
"8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" & _
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMg" & _
"WQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=")
.BackgroundPicture = "Background\frame.png"
With .Items
.Add("Relative 1","relative")
.Add("Relative 1").Image(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "settings.png"
.Add("Aboslute 1","absolute")
.Add("Aboslute 2","favorites.png")
.Add("Encoded 1","encoded")
.Add("Encoded 2").Image(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN" & _
"5yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKL" & _
"cAubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRCh" & _
"QnWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8" & _
"FIXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJH" & _
"h+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQ" & _
"Z9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfF" & _
"GKwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu" & _
"/nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZo" & _
"cwbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH" & _
"6IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYAB" & _
"FhTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6Pc" & _
"EAMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBG" & _
"DMJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoV" & _
"RqiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M" & _
"8PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7D" & _
"FFwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMg" & _
"WQzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA="
.Add("<c><img>relative</img><br><c>Relative 3")
.Add("<c>Relative 4<br><c><img>relative</img>","relative")
End With
.EndUpdate()
End With
|
|
27
|
Does your control supports tooltips (method 2)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxRadialMenu1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent) Handles AxRadialMenu1.MouseMoveEvent
With AxRadialMenu1
.ShowToolTip(.FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",.get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1)),"Info",0,"8","8")
End With
End Sub
With AxRadialMenu1
.BeginUpdate()
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0"
.Add("Item 1")
.Add("Item 2")
End With
.EndUpdate()
End With
|
|
26
|
Can I change the visual appearance of the control's tooltip
With AxRadialMenu1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background(EXRADIALMENULib.BackgroundPartEnum.exToolTipAppearance,16777216)
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
.Add("Item 1").Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user <b>hovers</b> the item"
With .Add("Item 2")
.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user hovers the item"
.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "This is a bit of text that shown when user hovers the sub-item"
End With
End With
.EndUpdate()
End With
|
|
25
|
Does your control supports tooltips (method 1)
With AxRadialMenu1
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
.Add("Item 1").Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user <b>hovers</b> the item"
With .Add("Item 2")
.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = "This is a bit of text that shown when user hovers the item"
.Tooltip(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "This is a bit of text that shown when user hovers the sub-item"
End With
End With
End With
|
|
24
|
How can I use/load icons
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons"
.Images("copy.ico")
.Images("C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico")
.Images("gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTq" & _
"lVq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbH" & _
"Yul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z" & _
"/qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/lu" & _
"W5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclA" & _
"H+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwe" & _
"a1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIl" & _
"kIp/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZ" & _
"bh6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8" & _
"lfmI6j6Q72AF4oyQDBIf5N6IC")
.set_HTMLPicture("icon","download.ico")
With .Items
.ToString = "Icon 0[img=0]"
.Add("Icon 1",1)
.Add("Icon 2","print.ico")
.Add("Icon 3").Image(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems) = "icon"
End With
.EndUpdate()
End With
|
|
23
|
How can I load items /images to the control, in sub-items zone
With AxRadialMenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("logo","settings.png")
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
.SubItemsSize = "64 * dpi"
.ParentSize = "value - 66 * dpi"
.set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<font ;14><c>System Settings</font><br><c>Surround")
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-2147483635)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,128)
.ItemsBackColor = .SubItemsBackColor
With .Items
.Add("","color_line.png",2)
.Add("","color_fill.png",2)
.Add("","format_font_size_less.png",2)
.Add("","edit_undo.png",2)
.Add("","edit_redo.png",2)
.Add("","edit_copy.png",2)
.Add("","fileview_text.png",2)
.Add("","checkmark_korganizer.png",2)
End With
.EndUpdate()
End With
|
|
22
|
How can I load items /images to the control
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
With .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.EndUpdate()
End With
|
|
21
|
How can I load items to the control
With AxRadialMenu1
.BeginUpdate()
.MinVisibleCount = 3
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("remove","remove.png")
.set_HTMLPicture("refresh","refresh.png")
.set_HTMLPicture("preview","preview.png")
.set_HTMLPicture("search","search.png")
With .Items
With .Add("Search","search").Items
.ToString = "Search A,Search B,Search C"
End With
.Add("Refresh","refresh")
.Add("Preview","preview")
.Add("Remove","remove")
End With
.Expanded = True
.EndUpdate()
End With
|
|
20
|
How do I get the version of the control I am running
With AxRadialMenu1
Debug.Print( "Version:" )
Debug.Print( .Version )
End With
|
|
19
|
How do I select an item
' SelectItem event - Notifies once the user selects an item.
Private Sub AxRadialMenu1_SelectItem(ByVal sender As System.Object, ByVal e As AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent) Handles AxRadialMenu1.SelectItem
' SelectedIndex(3) = Item.Index
With AxRadialMenu1
Debug.Print( "selection changed" )
End With
End Sub
With AxRadialMenu1
.AllowToggleExpand = False
.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
End With
|
|
18
|
How can I change the item's foreground color (sample 3)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
With .Items
With .Add("Item 1")
.Name = "<fgcolor FF0000>Item</fgcolor> 1"
With .Items
.Add("SubItem 1")
.Add("SubItem 2")
End With
End With
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
.Add("Item 5")
.Add("Item 6")
End With
.EndUpdate()
End With
|
|
17
|
How can I change the item's foreground color (sample 2)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
With .Items
With .Add("Item 1")
.ForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialItems) = RGB(255,0,0)
With .Items
.Add("SubItem 1")
.Add("SubItem 2")
End With
End With
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
.Add("Item 5")
.Add("Item 6")
End With
.EndUpdate()
End With
|
|
16
|
How can I change the item's foreground color (sample 1)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
.ForeColor = RGB(255,0,0)
With .Items
With .Add("Item 1").Items
.Add("SubItem 1")
.Add("SubItem 2")
End With
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
.Add("Item 5")
.Add("Item 6")
End With
.EndUpdate()
End With
|
|
15
|
How can I add new items / childrend to the control (method 2)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
With .Items
With .Add("Item 1").Items
.Add("SubItem 1")
.Add("SubItem 2")
End With
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
.Add("Item 5")
.Add("Item 6")
.Add("Item 7")
.Add("Item 8")
End With
.EndUpdate()
End With
|
|
14
|
How can I add new items / childrend to the control (method 1)
With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.ToString = "Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.EndUpdate()
End With
|
|
13
|
How do I enlarge the font (method 2)
With AxRadialMenu1
.BeginUpdate()
.AllowToggleExpand = False
.MinVisibleCount = 4
.ToString = "Item 1,Item 2,Item 3,Item 4"
.Items.Item(0).Name = "<font ;14>Item 1"
.EndUpdate()
End With
|
|
12
|
How do I enlarge the font (method 1)
With AxRadialMenu1
.BeginUpdate()
.AllowToggleExpand = False
.MinVisibleCount = 4
.ToString = "Item 1,Item 2,Item 3,Item 4"
.Font.Size = "14.25"
.EndUpdate()
End With
|
|
11
|
How can I expand the control (method 2)
With AxRadialMenu1
.AllowToggleExpand = False
End With
|
|
10
|
How can I expand the control (method 1)
With AxRadialMenu1
.Expanded = True
End With
|
|
9
|
By default, the control displays 8-pies. How can I change that
With AxRadialMenu1
.Expanded = True
.MinVisibleCount = 3
End With
|
|
8
|
How can I prevents expanding / collapsing the radial menu
With AxRadialMenu1
.BeginUpdate()
.AllowToggleExpand = False
.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"Cant expand/collapse the radial menu")
.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,0)
.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth")
.set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionTop,"height-theight")
.EndUpdate()
End With
|
|
7
|
How can I prevent flickering the item, when user selects it
With AxRadialMenu1
.AllowToggleExpand = False
.ToString = "<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.Items.Item(0).BrowseType = &Hfffffffc Or EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom Or EXRADIALMENULib.BrowseItemEnum.exBrowseItemChild
End With
|
|
6
|
How do I highlight the sub-item zone when cursor hovers it (method 2)
With AxRadialMenu1
.Expanded = True
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,.FormatABC(.SubItemsSize))
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-2147483635)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64)
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
End With
|
|
5
|
How do I highlight the sub-item zone when cursor hovers it (method 1)
With AxRadialMenu1
.Expanded = True
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-2147483635)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,64)
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
End With
|
|
4
|
Is it possible to highlight the entire item when cursor hovers the item
With AxRadialMenu1
.Expanded = True
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-2147483635)
.set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64)
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
End With
|
|
3
|
How can I hide the hot line when hovering the cursor
With AxRadialMenu1
.AllowToggleExpand = False
.set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
With .Items
.Add("Item A")
.Add("Item B")
.Add("Item C")
End With
End With
|
|
2
|
How can I hide the control's shadow
With AxRadialMenu1
.Expanded = True
.GetOcx().ShadowColor = -1
End With
|
|
1
|
How do I change the control's background color
With AxRadialMenu1
.BackColor = RGB(240,240,249)
End With
|