Kombinera meny, toolbar och tabstrip i VB
Förord
I den här artiklen tänkte jag visa hur man kan använda en meny och en toolbar för att visa olika flikar i en tabstrip.
Kombinera meny, toolbar och tabstrip i VB
Lägg till component
Det första vi måste göra är att lägga till en komponent. Högerklicka på toolboxen till vänster och välj Components... Leta sedan fram Microsoft Windows Common Controls 6.0 och kryssa för den och klicka ok.
Du ska nu ha fått ett antal till knappar, men de viktigaste är Toolbar och Tabstrip.
Lägg till bilder till en Imagelist
Om man vill ha knappar på sin toolbar så måste man använda sig av en imagelist. Vi ska titta på hur man använder den, i de kontroller som vi la till så kom även ImageList med. Vi ritar upp en sådan kontroll och högerklickar på den och väljer propertys. Den flik som är intressant där, är Pictures, så vi väljer den.
Här ska du välja vilka bilder som du vill kunna använda. När du har lagt till bilderna så måste du ge dem ett Key och en Tag, för att senare kunna anropa bilden i toolbaren. Nu när vi har fått en Imagelist att använda oss av så ska vi rita upp en toolbar. Rita upp en toolbar, den kommer att lägga sig högst upp. Det går att rita upp den i en Picturebox om man vill kunna placera den fritt. Även här högerklickar vi och väljer Propertys.
I den generella fliken så måste vi ange att vi vill använda den Imagelisten som vi skapade förut, annars kan vi inte använda bilder på knapparna. När vi har valt vår ImageList, här heter den ImageList1 eftersom jag inte döpte den när jag skapade den.
Vi väljer fliken Buttons och där ska vi skriva in vilka knappar som vi vill ha i vår toolbar.
Här är vi på knapp 3. Här kan du ange Caption om du inte vill använda bilder, lämna det fältet tomt annars. Som du ser så har jag gett knapp 3 ett Key värde och det är det värdet som man kollar av vilken knapp man har tryckt på, men mer om det senare i artikeln. Jag har skrivit in en ToolTip text och det är den som visas när man håller musen över en knapp. I rutan Image så skriver jag det namn på den knapp som jag vill använda, värdet kommer från ImageListen som vi gjorde tidigare. Här vill jag ha en spara knapp och den är döpt till Save.
Lägg till menyn
Du kan lägga till en meny på flera sätt antingen genom att välja Tools och Menu Editor eller klicka Ctrl + E. I menu editorn så börjar vi med att skriva vilket namn som ska visas, här en under menu som heter Öppna. Name är det namn som den får i koden, jag lägger till mnu före för att tala om att det är en menu. Index är det värde som den posten har. Shortcut är genvägen som man kan använda om man vill. En huvudrubrik lägger man till bara genom att fylla i texten och klicka Next, för att skapa en undermeny så fyller man i uppgifterna men man klickar på högerpilen för att skjuta in den ett steg, på samma sätt gör man om man vill skapa en till undermenu.
När vi är klara så klickar vi på OK.
Lägga till Tabstrip
Klicka på TabStrip symbolen i Toolboxen och rita upp den. Den ser tom ut nu, men det ska vi snart ändra på. Markera den och högerklicka på den och välj Propertys, den fliken som är intressant är Tabs. Här kan man ange hur många flikar som ska finnas och vad som ska stå på dem. Även här ger jag dem ett Keyvärde och det är det värdet som sen säger oss vilken flik vi har klickat på. Klicka OK när du har lagt till det antal flikar som du vill ha.
Mitt färdiga resultat ser ut så här:
Här har jag skapat två Pictureboxar och lagt mina kontroller i den, det är bara en som syns.
Mycket ritande är det men nu ska vi äntligen börja att skriva lite kod för att sy ihop det hela och få en fungerande,nåja, applikation.
Skriva koden Vi börjar med den enklaste, så vi dubbelklickar på Stäng knappen och i kodfönstret kommer det att se ut så här:
Private Sub cmdClose_Click()
' ...
End Sub
Vi lägger till, "Unload Me" där och det betyder att programmet ska avslutas. Gå tillbaka till att visa formuläret och dubbelklicka på Toolbaren. Den kommer att se nästan lika dan ut som den förra så jag skriver all kod direkt.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
' Med Button.Key fångar man upp vilken knapp man har klickat på.
Select Case Button.Key
Case "New" ' Vi klickade på New knappen.
' Sätt första fliken som vald.
TabStrip1.Tabs.Item(1).Selected = True
Case "Open" ' Vi klickade på öppna knappen
' Sätt andra fliken som vald.
TabStrip1.Tabs.Item(2).Selected = True
End Select
End Sub
För att lägga till kod i en meny så får man klicka på menyn och det alternativ som man vill lägga till kod på.
Koden för menyerna kan se ut så här:
Private Sub mnuNew_Click(Index As Integer)
' Vi har klickat på Ny post i menyn, visa TabStripen.
TabStrip1.Visible = True
' Sätt första fliken som vald.
TabStrip1.Tabs.Item(1).Selected = True
End Sub
Private Sub mnuOppna_Click(Index As Integer)
' Vi har klickat på Öppna post i menyn, visa TabStripen.
TabStrip1.Visible = True
' Sätt första fliken som vald.
TabStrip1.Tabs.Item(2).Selected = True
End Sub
Vi behöver lite kod för Tabstripen också, så vi lägger till den också.
Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Key
Case "New"
'Här kommer kod när vi har valt "Ny post" fliken.
' Visa pictureboxen som hör till Ny post.
PicNew.Visible = True
' Den pictureboxen som vi inte jobbar med göms.
PicOpen.Visible = False
TabStrip1.Visible = True
Case "Open"
'Här kommer kod när vi har valt "Ny post" fliken.
' Visa pictureboxen som hör till Ny post.
PicNew.Visible = False
' Den pictureboxen som vi inte jobbar med göms.
PicOpen.Visible = True
TabStrip1.Visible = True
End Select
End Sub
Om allt är rätt så ska vi kunna testköra vår applikation och kolla att våran meny och vår toolbar fungerar. Tryck F5 för att köra applikationen om allt fungerar så ska de olika flikarna visas när man klickar i menyn och på toolbaren. Så här långt sträcker sig den här kursen och jag hoppas att ni har fått en liten inblick i hur man kan kombinera en meny och en toolbar med en tabstrip.
0 Kommentarer