Stisk klávesy   zodpovězená otázka

VB.NET

Ahojte mám problém, hledal jsem to i na internetu, ale výsledek je stejný.

jde o tenhle případ

 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyValue = Keys.F1 Or Keys.F2 Or Keys.F3 Or Keys.F4 Or Keys.F5 Or Keys.F6 Or Keys.F7 Or Keys.F8 Or Keys.F9 Or Keys.F10 Or Keys.F11 Or Keys.F12 Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If
    End Sub

    Public Sub FuncKeysModule(ByVal value As Keys)
        'Check what function key is in a pressed state, and then perform the corresponding action.
        Select Case value
            Case Keys.F1
                'Add the code for the function key F1 here.
                MessageBox.Show("F1 pressed")
            Case Keys.F2
                'Add the code for the function key F2 here.
                MessageBox.Show("F2 pressed")
            Case Keys.F3
                'Add the code for the function key F3 here.
                MessageBox.Show("F3 pressed")
            Case Keys.F4
                'Add the code for the function key F4 here.
                MessageBox.Show("F4 pressed")
            Case Keys.F5
                'Add the code for the function key F5 here.
                MessageBox.Show("F5 pressed")
            Case Keys.F6
                'Add the code for the function key F6 here.
                MessageBox.Show("F6 pressed")
            Case Keys.F7
                'Add the code for the function key F7 here.
                MessageBox.Show("F7 pressed")
            Case Keys.F8
                'Add the code for the function key F8 here.
                MessageBox.Show("F8 pressed")
            Case Keys.F9
                'Add the code for the function key F9 here.
                MessageBox.Show("F9 pressed")
            Case Keys.F10
                'Add the code for the function key F10 here.
                MessageBox.Show("F10 pressed")
            Case Keys.F11
                'Add the code for the function key F11 here.
                MessageBox.Show("F11 pressed")
            Case Keys.F12
                'Add the code for the key F12 here
                MessageBox.Show("F12 pressed")
        End Select
    End Sub

Takže když na start debugging tak se otevře ten můj program, ale když zmáčknu třeba F8 tak se mi ta zpráva nezobrazí.

nevíte, čím to může být?

Děkuji předem za odpovědi

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

Na formuláři zapněte vlastnost KeyPreview na True

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

Děkuji.

Toho jsem si nevšiml.

Já takový tupec...

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

Jen mě tak napadá,. když děláte podmínku co je v Keys.F2 (musí tam být hodnota Boolean jinak to není podmínka

If e.KeyValue = Keys.F1 Or Keys.F2 Or Keys.F3 Or Keys.F4 Or Keys.F5 Or Keys.F6 Or '..

nemá to být,.. ?

If e.KeyValue = Keys.F1 Or e.KeyValue = Keys.F2 Or e.KeyValue = Keys.F3 Or e.KeyValue = Keys.F4 Or e.KeyValue = Keys.F5 Or e.KeyValue = Keys.F6 Or '....

To co tam máte si můžete dovolit u Case, ale u IF musíte mít vždy podmínky. Nelze říct

IF "Burger" Then "Jíst"
nahlásit spamnahlásit spam 2 / 2 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