|
95
|
The control shows no icons. What can be the problem (32-bit, alpha channel vs 4-bit icons problem)
With Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = Color.FromArgb(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated90)
.EndUpdate()
End With
|
|
91
|
How can I displays items rotated (exDisplayRadialRotated270)
With Exradialmenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = Color.FromArgb(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated270)
.EndUpdate()
End With
|
|
90
|
How can I displays items rotated (exDisplayRadialRotated180)
With Exradialmenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = Color.FromArgb(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated180)
.EndUpdate()
End With
|
|
89
|
How can I displays items rotated (exDisplayRadialRotated)
With Exradialmenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = Color.FromArgb(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.EndUpdate()
End With
|
|
88
|
How do I load images to sub-items zone
With Exradialmenu1
.Expanded = True
.SubItemsSize = "48*dpi"
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotItem,Color.FromArgb(128,128,128))
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,Color.FromArgb(128,128,128))
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
With .Items
With .Add("")
.set_Image(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,"favorites.png")
.set_Image(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,"download.png")
End With
End With
End With
|
|
87
|
How can I display the control directly on the screen
With Exradialmenu1
.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated270)
.BackgroundPicture = "Background\frontc.png"
.SubItemsBackColor32 = -1
.SubItemsSize = "18 * dpi"
.EndUpdate()
.Float = True
End With
|
|
86
|
How do I add a radial-slider control
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
With .Items
With .Add("Slider")
.BrowseType = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
.set_BrowseCustom(exontrol.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 Exradialmenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.Expanded = True
.InflateCustom = "-4 * dpi"
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,Color.FromArgb(0,0,0))
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,128)
.CustomPicture = "Background\frame.png"
With .Root
.BrowseType = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
.set_BrowseCustom(exontrol.EXRADIALMENULib.RadialCustomPropertyEnum.exRadialCustomSliderValue,25)
End With
.Refresh()
.EndUpdate()
End With
|
|
84
|
How can I programatically browses for a new item
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
With .Items
With .Add("Slider")
.BrowseType = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
End With
.BrowseItem = .Items.Item("Slider")
End With
|
|
83
|
How can I display the items rotated
With Exradialmenu1
.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.set_DisplayCenter(exontrol.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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrowu.png")
.DisplayArrow = exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems
.set_DisplayCenterArrow(exontrol.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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.DisplayArrow = exontrol.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 Exradialmenu1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exradialmenu1.MouseMoveEvent
With Exradialmenu1
Debug.Print( "ParentOnPoint " )
Debug.Print( .get_ParentOnPoint(-1,-1) )
End With
End Sub
With Exradialmenu1
.Expanded = True
End With
|
|
79
|
How can I specify the size to display the images/pictures into the items
With Exradialmenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_ItemsImageHeight(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,"64*dpi")
.set_ItemsImageWidth(exontrol.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 Exradialmenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("logo","settings.png")
.ParentSize = "96 * dpi"
.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentImageHeight(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentCaption(exontrol.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 Exradialmenu1
.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).set_BackColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(240,240,240))
.set_DisplayCenter(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.85)
.EndUpdate()
End With
|
|
76
|
How can I disable browsing the items, or prevent displaying its children
With Exradialmenu1
.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 Exradialmenu1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exradialmenu1.MouseMoveEvent
With Exradialmenu1
Debug.Print( "Full-Item: " )
Debug.Print( .get_ItemFromPoint(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1).get_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) )
Debug.Print( "Item: " )
Debug.Print( .get_ItemFromPoint(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1).get_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) )
Debug.Print( "SubItem: " )
Debug.Print( .get_ItemFromPoint(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1).get_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionForeColor) )
End With
End Sub
With Exradialmenu1
.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 Exradialmenu1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exradialmenu1.MouseMoveEvent
With Exradialmenu1
Debug.Print( "Full-Index: " )
Debug.Print( .get_IndexFromPoint(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1) )
Debug.Print( "Index: " )
Debug.Print( .get_IndexFromPoint(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1) )
Debug.Print( "Sub-Index: " )
Debug.Print( .get_IndexFromPoint(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1) )
End With
End Sub
With Exradialmenu1
.Expanded = True
End With
|
|
73
|
How can I select an item
' SelectItem event - Notifies once the user selects an item.
Private Sub Exradialmenu1_SelectItem(ByVal sender As System.Object,ByVal Item As exontrol.EXRADIALMENULib.Item) Handles Exradialmenu1.SelectItem
' SelectedIndex(3) = Item.Index
End Sub
With Exradialmenu1
.BeginUpdate()
.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0))
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor32(exontrol.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
.EndUpdate()
End With
|
|
72
|
How can I use the sub-items zone only
With Exradialmenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("logo","settings.png")
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
.SubItemsSize = "64 * dpi"
.ParentSize = "value - 66 * dpi"
.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentImageHeight(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentCaption(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<font ;14><c>System Settings</font><br><c>Surround")
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,&H8000000d)
.set_RadialLineAlpha(exontrol.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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.DisplayAngle = -7.5
.DisplayArrow = exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems
.set_DisplayRadial(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.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 Exradialmenu1_RClick(ByVal sender As System.Object) Handles Exradialmenu1.RClick
With Exradialmenu1
.BrowseItem = .BrowseItem.Parent
End With
End Sub
With Exradialmenu1
.Expanded = True
.DisplayArrow = exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems
With .Items
With .Add("Volume")
.set_Caption(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,"slider")
.BrowseType = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.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 Exradialmenu1_RClick(ByVal sender As System.Object) Handles Exradialmenu1.RClick
With Exradialmenu1
.GoBack()
End With
End Sub
With Exradialmenu1
.Expanded = True
.DisplayArrow = exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems
With .Items
With .Add("Volume")
.set_Caption(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,"slider")
.BrowseType = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.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 Exradialmenu1
.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(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor32(exontrol.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 Exradialmenu1_SelectItem(ByVal sender As System.Object,ByVal Item As exontrol.EXRADIALMENULib.Item) Handles Exradialmenu1.SelectItem
' PointerIndex = Item.Index
With Exradialmenu1
.set_SelectedIndex(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,.PointerIndex)
End With
End Sub
With Exradialmenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.PointerPicture = "pointer.png"
.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,32)
.set_SelBackAlpha(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128)
.PointerPictureY = "y + (height-pheight)/2- 21*dpi"
.PointerPictureX = "x + (width-pwidth)/2 + 1 * dpi"
.AllowHotPointer = False
.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0))
.ParentSize = "36*dpi"
.set_ParentImageHeight(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor32(exontrol.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,.PointerIndex)
.EndUpdate()
End With
|
|
66
|
How can I use the pointer (hot sample)
With Exradialmenu1
.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(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128)
.set_SelForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,Color.FromArgb(0,0,0))
.ParentSize = "36*dpi"
.set_ParentImageHeight(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"48*dpi")
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1)
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32)
.set_RadialLineColor32(exontrol.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 Exradialmenu1
.BeginUpdate()
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.BackgroundPicture = "Background\fronte.png"
.ForeColor = Color.FromArgb(255,255,255)
.Expanded = True
.ParentSize = "48 * dpi"
.set_DisplayRadial(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated)
.set_DisplayCenter(exontrol.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"
.ParentBackColor32 = -1
.ExcludeParentFromItems = True
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,Color.FromArgb(0,0,0))
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,128)
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,128)
.EndUpdate()
End With
|
|
64
|
Can I display the picture on the parent zone, a bit larger
With Exradialmenu1
.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 Exradialmenu1
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.DisplayArrow = exontrol.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 = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.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 Exradialmenu1
.Expanded = True
.DisplayArrow = exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.InflateCustom = "-4*dpi"
.CustomBackColor = Color.FromArgb(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 = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
.BrowseItem = .Items.Item("Item 2")
End With
|
|
61
|
How do I prevent expanding / collapsing the radial menu
With Exradialmenu1
.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 = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.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 Exradialmenu1_BrowseItem(ByVal sender As System.Object,ByVal Item As exontrol.EXRADIALMENULib.Item) Handles Exradialmenu1.BrowseItem
With Exradialmenu1
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 Exradialmenu1_SelectParent(ByVal sender As System.Object) Handles Exradialmenu1.SelectParent
With Exradialmenu1
Debug.Print( "Current State: " )
Debug.Print( .State )
End With
End Sub
With Exradialmenu1
.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 = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider
End With
.set_ParentImage(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuCollapsed,"format_font_size_less.png")
.set_ParentImage(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedNoItems,"fileview_text.png")
.set_ParentImage(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedRootItem,"edit_undo.png")
End With
|
|
59
|
Is it possible to assign a different picture on the parent zone (center ring)
With Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,Color.FromArgb(0,0,0))
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,64)
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,Color.FromArgb(0,0,0))
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,64)
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,Color.FromArgb(0,0,0))
.set_RadialLineAlpha(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64)
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotItem,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotItem,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotParent,3)
End With
|
|
48
|
How can I change the border around the items zone ( inner ring )
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,3)
End With
|
|
47
|
How can I change the border around the parent zone ( center ring )
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,3)
End With
|
|
46
|
How can I change the grid lines in the items zone ( inner ring )
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,3)
End With
|
|
45
|
How can I change the border around the slider / custom part of the control
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.InflateCustom = .InflateItems
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3)
With .Items
With .Add("Slider")
.BrowseType = exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom
.BrowseCustomType = exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,3)
End With
|
|
43
|
How can I change the border around the subitems (exRadialSubItemsBorder)
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,3)
End With
|
|
42
|
How can I change the border around the radial menu (exRadialBorder)
With Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
.InflateItems = "-8*dpi"
.ItemsBackColor = Color.FromArgb(240,240,240)
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialBorder,Color.FromArgb(0,0,0))
.set_RadialLineStyle(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialBorder,exontrol.EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialBorder,3)
End With
|
|
41
|
How can I customize the parent part of the control, the center ring/circle
With Exradialmenu1
.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(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"78 * dpi")
.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"78 * dpi")
.ParentBackColor = Color.FromArgb(0,255,0)
.ParentBackAlpha = 128
.ExcludeParentFromItems = True
End With
|
|
40
|
How can I prevent showing the arrow in the outer ring
With Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.set_HTMLPicture("arrow","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEI" & _
"JULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoW" & _
"T8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA==")
.Expanded = True
.Items.ToString = "Child(SubChild)"
End With
|
|
37
|
How can I change the logo image
With Exradialmenu1
.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 Exradialmenu1
.set_DisplayRadial(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,exontrol.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 = Color.FromArgb(0,255,0)
.ItemsBackAlpha = 128
End With
|
|
35
|
How can I customize the subitems part of the control, the outside ring/circle
With Exradialmenu1
.Expanded = True
.Items.ToString = "[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]"
.InflateRadialMenu = "-4*dpi"
.SubItemsSize = "48 * dpi"
.SubItemsBackColor = Color.FromArgb(0,255,0)
.SubItemsBackAlpha = 128
End With
|
|
34
|
Can I expand/shrink the radial menu relative to its border/shadow
With Exradialmenu1
.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -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 Exradialmenu1
.Expanded = True
.ShadowColor = Color.FromArgb(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 Exradialmenu1
.AllowToggleExpand = False
.DisplayAngle = -66
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.set_Caption(exontrol.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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.MinVisibleCount = 6
.Items.ToString = "Item 1,Item 2,Item 3,Item 4"
.set_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is a caption to be displayed on the control's background.")
.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"This is an extra caption to be displayed on the control's background.")
.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,2)
.set_ExtraCaption("extra",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,True)
.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"<img>logo:64</img>")
.set_ExtraCaption("extralogo",exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,4)
.set_ExtraCaption("extralogo",exontrol.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 Exradialmenu1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Exradialmenu1.Event
With Exradialmenu1
Debug.Print( .get_EventParam(-2) )
End With
End Sub
With Exradialmenu1
.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 Exradialmenu1
.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").set_Image(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,"settings.png")
.Add("Aboslute 1","absolute")
.Add("Aboslute 2","favorites.png")
.Add("Encoded 1","encoded")
.Add("Encoded 2").set_Image(exontrol.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 Exradialmenu1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exradialmenu1.MouseMoveEvent
With Exradialmenu1
.ShowToolTip(.FormatABC("`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )",.get_IndexFromPoint(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1)),"Info",0,"8","8")
End With
End Sub
With Exradialmenu1
.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 Exradialmenu1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXRADIALMENULib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
.Add("Item 1").set_Tooltip(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,"This is a bit of text that shown when user <b>hovers</b> the item")
With .Add("Item 2")
.set_Tooltip(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,"This is a bit of text that shown when user hovers the item")
.set_Tooltip(exontrol.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 Exradialmenu1
.DisplayAngle = -45
.Expanded = True
With .Items
.ToString = "Item 0[ttp=tooltip's item][sttp=tooltip's subitem]"
.Add("Item 1").set_Tooltip(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,"This is a bit of text that shown when user <b>hovers</b> the item")
With .Add("Item 2")
.set_Tooltip(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,"This is a bit of text that shown when user hovers the item")
.set_Tooltip(exontrol.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 Exradialmenu1
.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").set_Image(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,"icon")
End With
.EndUpdate()
End With
|
|
23
|
How can I load items /images to the control, in sub-items zone
With Exradialmenu1
.BeginUpdate()
.AllowToggleExpand = False
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("logo","settings.png")
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
.SubItemsSize = "64 * dpi"
.ParentSize = "value - 66 * dpi"
.set_ParentImageWidth(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentImageHeight(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"64*dpi")
.set_ParentCaption(exontrol.EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,"<font ;14><c>System Settings</font><br><c>Surround")
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,&H8000000d)
.set_RadialLineAlpha(exontrol.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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = Color.FromArgb(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.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 Exradialmenu1
.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 Exradialmenu1
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 Exradialmenu1_SelectItem(ByVal sender As System.Object,ByVal Item As exontrol.EXRADIALMENULib.Item) Handles Exradialmenu1.SelectItem
' SelectedIndex(3) = Item.Index
With Exradialmenu1
Debug.Print( "selection changed" )
End With
End Sub
With Exradialmenu1
.AllowToggleExpand = False
.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.set_SelectedIndex(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0)
End With
|
|
18
|
How can I change the item's foreground color (sample 3)
With Exradialmenu1
.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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
With .Items
With .Add("Item 1")
.set_ForeColor(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,Color.FromArgb(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 Exradialmenu1
.BeginUpdate()
.Expanded = True
.MinVisibleCount = 6
.Font.Size = "14.25"
.ForeColor = Color.FromArgb(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 Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.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 Exradialmenu1
.AllowToggleExpand = False
End With
|
|
10
|
How can I expand the control (method 1)
With Exradialmenu1
.Expanded = True
End With
|
|
9
|
By default, the control displays 8-pies. How can I change that
With Exradialmenu1
.Expanded = True
.MinVisibleCount = 3
End With
|
|
8
|
How can I prevents expanding / collapsing the radial menu
With Exradialmenu1
.BeginUpdate()
.AllowToggleExpand = False
.ToString = "Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8"
.set_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,"Cant expand/collapse the radial menu")
.set_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,0)
.set_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,"width-twidth")
.set_Caption(exontrol.EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionTop,"height-theight")
.EndUpdate()
End With
|
|
7
|
How can I prevent flickering the item, when user selects it
With Exradialmenu1
.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 exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom Or exontrol.EXRADIALMENULib.BrowseItemEnum.exBrowseItemChild
End With
|
|
6
|
How do I highlight the sub-item zone when cursor hovers it (method 2)
With Exradialmenu1
.Expanded = True
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,.FormatABC(.SubItemsSize))
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,&H8000000d)
.set_RadialLineAlpha(exontrol.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 Exradialmenu1
.Expanded = True
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0)
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1)
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,&H8000000d)
.set_RadialLineAlpha(exontrol.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 Exradialmenu1
.Expanded = True
.set_RadialLineSize(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1)
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,&H8000000d)
.set_RadialLineAlpha(exontrol.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 Exradialmenu1
.AllowToggleExpand = False
.set_RadialLineSize(exontrol.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 Exradialmenu1
.Expanded = True
.ShadowColor32 = -1
End With
|
|
1
|
How do I change the control's background color
With Exradialmenu1
.BackColor = Color.FromArgb(240,240,249)
End With
|