MenuStrip   zodpovězená otázka

VB.NET, Komponenty, Algoritmy, WinForms

12. 11. 2007 19:47

anonym
 

89.102.75.106

Mam takovej problem, za behu programu pridam do menu par polozek a potreboval bych po kliknuti na ty polozky zobrazil msgbox s textem polozky.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

12. 11. 2007 21:05

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Nejprve si vytvořte proceduru události, kterou chcete provést.

    Private Sub ToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim polozka As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
        MsgBox(polozka.Text)
    End Sub

A pak na tuto proceduru ručně vytvořené položce přidejte EventHandler, nejlépe při vytváření položky za běhu programu.

        Dim polozka As New ToolStripMenuItem()
        polozka.Text = "Moje položka menu"
        AddHandler polozka.Click, AddressOf ToolStripMenuItem_Click
        MenuStrip1.Items.Add(polozka)

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

12. 11. 2007 21:52

anonym
 

89.102.75.106

Nenapsal jsem to uplne presne potreboval bych to palikovat na DropDownItems
nahlásit spamnahlásit spam 0 odpovědětodpovědět

13. 11. 2007 19:42

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

To je víceméně stejné, věřím, že to zvládnete snadno upravit. Stačí nově vytvořenou položku přidat do kolekce MenuStrip1.DropDownItems.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 17:58

Lubos Blader
 

Hodnocení 265     Příspěvků 610

Chcel by som doplniť otázku. Pomocou kódu

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.MyToolStripMenuItem.DropDownItems.Add("Položka" & i)
        i = i + 1
    End Sub

pridám položky. Ako zobraziť ich názvy v MsgBox-e po kliknutí na jednotlivé položky po spustení programu?

nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 18:12

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Takhle:

Dim polozka As ToolStripLabel = Me.MyToolStripMenuItem.DropDownItems.Add("Položka " & i)
        AddHandler polozka.Click, AddressOf ToolStripMenuItem_Click

Zbytek je stejný.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 19:27

Lubos Blader
 

Hodnocení 265     Příspěvků 610

Moje IQ je dnes na bode mrazu. Mám dve možnosti. Vyspať sa na to, alebo znova sa spýtať. Aby som mal kľudnejší spánok, zvolil som tú druhú možnosť. Môžeš, prosím ťa uviesť to celé. Nefunguje mi to. Mimochodom, ako v škole?
nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 19:30

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Co je na tom těžkého? Prostě ty dva řádky dej do procedury.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 19:34

Lubos Blader
 

Hodnocení 265     Příspěvků 610

AddHandler mi podčiarkne a vypisuje syntax error.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 19:42

Lubos Blader
 

Hodnocení 265     Příspěvků 610 

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.MyToolStripMenuItem.DropDownItems.Add("Položka" & i)
        Dim polozka As ToolStripLabel = Me.MyToolStripMenuItem.DropDownItems.Add("Položka " & i)
        AddHandler polozka.Click, AddressOf ToolStripMenuItem_Click
        i = i + 1
    End Sub

Ak si to myslel tak, tak mi vypisuje :Unable to cast object of type 'System.Windows.Forms.ToolStripMenuItem' to type 'System.Windows.Forms.ToolStripLabel'.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 19:49

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Ajo, sorry, moje chyba. Správně je to takto:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.MyToolStripMenuItem.DropDownItems.Add("Položka" & i)
        Dim polozka As ToolStripMenuItem = Me.MyToolStripMenuItem.DropDownItems.Add("Položka " & i)
        AddHandler polozka.Click, AddressOf ToolStripMenuItem_Click
        i = i + 1
    End Sub

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

14. 11. 2007 20:02

Lubos Blader
 

Hodnocení 265     Příspěvků 610

Fajn. Vďaka. Už len jediný problém. MsgBox my stalé vypisuje názov &My
nahlásit spamnahlásit spam 0 odpovědětodpovědět

14. 11. 2007 20:23

Lubos Blader
 

Hodnocení 265     Příspěvků 610

Takže pre zhrnutie:

Public Class Form1
    Dim i As Integer
    Private Sub ToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim polozka As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
        MsgBox(polozka.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim polozka As ToolStripMenuItem = Me.MyToolStripMenuItem.DropDownItems.Add("Položka " & i)
        AddHandler polozka.Click, AddressOf ToolStripMenuItem_Click
        i = i + 1
    End Sub
End Class

Vďaka, Tomáš!
nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback