Jag fick tag på en väldigt bra kod, med vars hjälp jag kan lägga till iconer i menyn. Men blir det inte bra om du skiter i att själv skriva dit shortcuten utan bara använder s.ShowShortcut = true;? Skriver den inte ut shortcutten rätt då? (tja, förutom siffror då) Kolla om detta hjälper Tyvärr så lyckades inte detta. jag fattar inte vad du menar med att shortcuten är dynamisk... HEJ Arathorn. JAg hittade ett sätt att lösa problemet på: varför inte bara: Hej Roggan. Hm... Denna vb.net kod som jag skrev till min meny-app fungerar bra: Jo jag försökte också på det viset Onkelborg, men lyckades inte.Om egna menyer och shortcut.
Tyvärr så har jag slarvat bort adressen men...
Det finns bara en sak som stör mig, och det gäller på vilket sätt som menyerna visar shortcut.
Vad jag skulle vilja ha, och som är standard är:
Crlf + S
...men min meny visar:
CtrlfS
Här kommer lite koder:
<code>
Rectangle rc = new Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height);
e.Graphics.FillRectangle(new SolidBrush(System.Drawing.SystemColors.Control) , rc);
MenuItem s = (MenuItem)sender ;
string s1 = s.Text ;
StringFormat sf = new StringFormat();
sf.Alignment = StringAlignment.Far ;
sf.LineAlignment = StringAlignment.Far;
Rectangle rcText = rc ;
rcText.Width-=5 ;
string scut = "";
if(s.Shortcut.ToString() !="None")
{
scut = s.Shortcut.ToString();
}
else
{
scut = "";
}
</code>
Jag kan alltså få tag på shortcut när det står "None", men när jag försöker att göra någonting, t ex replace eller plocka ut ifrån höger, då fungerar det inte.
Inte heller så lyckas jag att kolla via length..
Jag är nu i slutspurten på mitt program, och skulle vara väldigt tacksam för hjälp.Sv: Om egna menyer och shortcut.
http://www.syncfusion.com/FAQ/WinForms/FAQ_c49c.asp#q1088qSv: Om egna menyer och shortcut.
http://www.msjogren.net/dotnet/eng/samples/dotnet_iconmenu.asp
MSSv: Om egna menyer och shortcut.
Arathorn förslag går tydligen bara att genomföra när shortcuten är känd, denna är dynamisk.
MS förslag lyckades inte heller, då hadde jag fått bygga om allting ifrån början.
Det jag funderar på är, varför kan inte en sån enkel sak som replace fungera? Det hadde ju fixat allting med en gång eller?Sv: Om egna menyer och shortcut.
ritar du själv ut din meny eller vad är det som blir fel?
Hur tilldelas menuitemet en shortcut? har menutitemen över huuvdtaget någon shortcut?
Känns inte som om du ger all input du har...Sv: Om egna menyer och shortcut.
Jo jag hittade en kanonfin kod, där det är lätt att få in BRA iconer på menyn.
Först så gör man menyerna( i vanlig ordning), och sätter owndraw till true
Sen kommer denna kod:
<code>
private void menuItem16_DrawItem(object sender, System.Windows.Forms.DrawItemEventArgs e)
{
Rectangle rc = new Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height);
e.Graphics.FillRectangle(new SolidBrush(System.Drawing.SystemColors.Control) , rc);
MenuItem s = (MenuItem)sender ;
string s1 = s.Text ;
StringFormat sf = new StringFormat();
sf.Alignment = StringAlignment.Far ;
sf.LineAlignment = StringAlignment.Far;
Rectangle rcText = rc ;
rcText.Width-=5 ;
string scut = s.Shortcut.ToString();
//****************************************shotcut
e.Graphics.DrawString(s1 , new Font("Microsoft Sans Serif" ,8),
new SolidBrush(Color.Silver) , rcText, sf );
e.Graphics.DrawRectangle(new Pen(new SolidBrush(Color.Black)), rc );
if ( e.State == ( DrawItemState.NoAccelerator | DrawItemState.Selected))
{ //bakgrunden //bra färg
e.Graphics.FillRectangle(new SolidBrush(System.Drawing.SystemColors.InactiveCaption) , rc);
//,FontStyle.Bold | FontStyle.Underline
e.Graphics.DrawString( s1 + " " + scut , new Font("Microsoft Sans Serif" , 8
) , new SolidBrush(Color.White), rcText,sf);
//kanterna
e.Graphics.DrawRectangle(new Pen(new SolidBrush(System.Drawing.SystemColors.Highlight)), rc );
e.DrawFocusRectangle();
}
else
{ //bakgrunden //denna ok
e.Graphics.FillRectangle(new SolidBrush(Color.White) , rc);
if(s.Enabled==true)
{
e.Graphics.DrawString( s1 + " " + scut , new Font("Microsoft Sans Serif" ,8) ,
new SolidBrush(System.Drawing.SystemColors.WindowText), rc ,sf);
}
else
{
e.Graphics.DrawString( s1 + " " + scut , new Font("Microsoft Sans Serif" ,8) ,
new SolidBrush(System.Drawing.SystemColors.GrayText), rc ,sf);
}
//kanterna
e.Graphics.DrawRectangle(new Pen(new SolidBrush(Color.WhiteSmoke)), rc );
e.DrawFocusRectangle();
}
Image useImage = null ;
if ( s1 == "Nytt" )
{
useImage = img_new;
}
if ( s1 == "Öppna" )
{
useImage = img_open;
}
if ( s1 == "Spara" )
{
useImage = img_save;
}
//OSv
</code>
Ifrån först början så visades inte shortcut alls, men så hittade jag under s att där fanns s.shortcut, och det är den som inte vill vissa sig riktigt.
När den skall visa Ctrl + C så visar den CtrlC.
Det är detta som är problemet.Sv: Om egna menyer och shortcut.
<code>
switch(scut)
{
case "CtrlN":
scut = "Ctrl + N";
break;
case "CtrlO":
scut = "Ctrl + O";
break;
</code>
Det är inte det snyggaste sättet, men det fungerar.Sv: Om egna menyer och shortcut.
scut=scut.Replace("Ctrl","Ctrl + ");
???
//RogerSv: Om egna menyer och shortcut.
Jo det var ju det som jag började med, men det lyckades inte.
Hur jag än försökte så blev det fel, detta var det enda sättet som lyckades för mig.Sv: Om egna menyer och shortcut.
<code>
Public Function GetShortcutText(ByVal Shortcut As String) As String
Dim strTemp As String
strTemp = Shortcut
strTemp = strTemp.Replace("Shift", "Shift+")
strTemp = strTemp.Replace("Ctrl", "Ctrl+")
strTemp = strTemp.Replace("Alt", "Alt+")
Return strTemp
End Function
Public Function GetShortcutText(ByVal Shortcut As System.Windows.Forms.Shortcut) As String
Return GetShortcutText(Shortcut.ToString)
End Function
</code>Sv: Om egna menyer och shortcut.
Jag får känna mig nöjd med min select-sats