dotNETportal.cz

Dobrý den,

potřeboval bych radu. V kódu dynamicky přidávám tlačítka a když na nějaké kliknu, změni se jeho pozadí. Potřeboval bych k tomu ještě dodělat, abych mohl hlídat, kterou klávesu jsem zmáčkl. Jde mi konkrétně o klávesy 1, 2, 3 + myš.

Díky.

Private Sub NewButton(ByVal ButtonNumber As Integer)

Dim oButton As Button

oButton = New Button

oButton.Location = New Point(ButtonNumber * 50, 50)

oButton.Name = "B_Par" & ButtonNumber.ToString

oButton.Size = New Size(50, 50)

oButton.Text = ButtonNumber.ToString

oButton.Tag = ButtonNumber

oButton.Font = New Font("Arial", 23, FontStyle.Bold)

AddHandler oButton.Click, AddressOf onButtonClick

Me.Controls.Add(oButton)

End Sub

Private Sub onButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)

If CType(sender, Button).Tag = True Then

CType(sender, Button).BackgroundImage = Nothing

CType(sender, Button).Tag = "false"

Else

CType(sender, Button).BackgroundImage = System.Drawing.Image.FromFile("D:\krizek1.png")

CType(sender, Button).Tag = "true"

End If

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim i As Integer

For i = 0 To 6

NewButton(i)

Next i

End Sub

Odchytávání stisknutých kláves se zde řešilo již několikrát!Tudíž,se nejdříve podívejte do fóra,než začnete otevírat duplicitní vlákna.

To samozřejmě vím a všechny co jsem našel, jsem taky prošel. Ale i když je vyzkouším, nefunguje to. Dle mého jde o to, že se snažím zjistit jak informaci o názvu, tak informaci o stisknuté klávese. Každé zvlášť není problém, ale dohromady mi to prostě nejde.