Tlačítka - přidat událost

Tlačítka - přidat událost zodpovězená otázka

5. 11. 2011 0:01

0 7

Zdravím,

mám velice triviální otázku a zřejmě stejně triviální bude i odpověď. Ale nemohu to rozlousknout. Níže uvedená procedura přidává tlačítka do formuláře. Chci jim nastavit událost - na kliknutí aby se provedla nějaká činnost.

Např. při kliknutí na tlačítko, jehož Jmeno = "XYZ" vypiš MsgBox

moc děkuji za radu :)

    Public Sub PridejTlacitko(ByVal Jmeno As String, ByRef YLoc As Integer)    


        Dim AutoTextButton As New System.Windows.Forms.Button

        AutoTextButton.Name = Jmeno
        AutoTextButton.Location = New System.Drawing.Point(100, YLoc)

        Controls.Add(AutoTextButton)

    End Sub

nahlásit spam

odpovědět

Do "PridejTlacitko" přidejte AddHandler - příklad:

  AddHandler AutoTextButton.Click, AddressOf Tlac_Click

A napište událostní proceduru - příklad

   Private Sub Tlac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Bylo stisknuto tlačítko ")

    End Sub

nahlásit spam

2 / 2

odpovědět

5. 11. 2011 11:27

Alexander Clarai

294 234

Případně, pokud používáte novější verzi .NET frameworku, můžete použít i následující zápis:

AddHandler AutoTextButton.Click, Sub(sender2 As Object, e2 As EventArgs) MsgBox(DirectCast(sender2,Button).Name)

nahlásit spam

1 / 1

odpovědět

DotNETcollege: Mohlo by vás zajímat

Kontejnery, Docker a Azure Kubernetes Service (AKS)

Microsoft SQL Server - optimalizace struktur a dotazů

Pokročilé návrhové vzory

Používáme IoC/DI kontejnery

Základní návrhové vzory

Asynchronní, vícevláknové a paralelní aplikace

Zabezpečení webové aplikace

MAUI - multiplatformní aplikace v .NETu

Návrh distribuovaného systému pomocí DDD, Event Sourcing a CQRS

Domain-Driven Design (.NET)

6. 11. 2011 23:49

Stanislav Šťastný

0 7

Děkuji moc! Funguje to perfektně

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

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.

dotNETportal.cz