[es] - Visual Basic 2008 - detektovanje protisnutih tastera ali za F1,F2,F3...F11,F12

unisoft
Uzice

Član broj: 124050
Poruke: 346
*.adsl.verat.net.

+1 Profil

Visual Basic 2008 - detektovanje protisnutih tastera ali za F1,F2,F3...F11,F12

^{22.03.2009. u 13:47 - pre 209 meseci}

Vise od godinu dana se aktivno bavim VB6-ucenjem VB6a.Zbog nedostataka koje ima morao sam da predjem da radim u VB2008 a samim tim su se pojavili neki problemi.Neke sam uspeo da resim pomocu HELPA-MSDN , nesto guglajuci a neke nisam uspeo da resim.

Probem se odonosi na KAKO DETEKTOVATI PRITISNUTI TASTER U VB (F1,F2,F3...F11,F12).Ovo me je isto mucilo i u VB6 ali zahvalijuci dobrim forumasima ovoga foruma otklonili smo taj problem i taj kod je izgledao ovako.Link od te teme je : http://www.elitesecurity.org/t352251-0#2178665

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Citat:

Select Case KeyCode
Case vbKeyF1
' Pritisnuto f1
Case vbKeyF2
' Pritisnuto f2
Case vbKeyF3
' Pritisnuto f3
'...
Case vbKeyF12
' Pritisnuto f12
End Select

End Sub

drugi problem vezan za isto za ovu temu je kako da u bilo kom trenutku,bez obzira koji objekat IMA FOCUS da se detektuje koji od F tastera je pritisnut i da se tada odradi nesto ...

Citat:

stavis na True properties forme koji se zove KeyPreview.

______________________________________________________________________________________________________________________________________________

Posto sam procitao par knjiga iz VBa znam za ASCII kodove.Trazio sam po netu ove kodove-nasao sam ih ali NIGDE NISAM NASO ASCII KOD ZA F1,F2...F11,F12 TASTERE.Ako bi neko mogao da mi kaze kao da u VB2008 detektujem ove tastere ili da mi kaze koji su ASCII kodovi za ove tastere.

Kada bi mi rekli ASCI kodve onda bih znao da uradim a to bi izgledalo ovako

IF Ascii=pa sada broj ascii koda Then
.....program
End if .

Probao sam u VB2008 sa kodm koji mi je jedan forumas dao u temi sa istim problemo samo u VB6.To je ovaj dole kod

IF keycode=vbkeyF1 Then
...program
end if

ALI OVO NECE DA RADI.U Error prozoru PISE DA KEYCODE NIJE REZERVISANA REC VB2008,znaci moram ja da je deklarisem ??? meni ovo nije jasno.

Odgovor na temu

Igor Gajic

Član broj: 93194
Poruke: 747
77.46.189.*

+987 Profil

Re: Visual Basic 2008 - detektovanje protisnutih tastera ali za F1,F2,F3...F11,F12

^{22.03.2009. u 15:58 - pre 209 meseci}

Imas primer na MSDN-u

http://msdn.microsoft.com/en-u...ndows.forms.control.keyup.aspx

Code:

Private Sub textBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles textBox1.KeyUp
    ' Determine whether the key entered is the F1 key. Display help if it is.
    If e.KeyCode = Keys.F1 Then
        ' Display a pop-up help topic to assist the user.
        Help.ShowPopup(textBox1, "Enter your first name", New Point(textBox1.Right, Me.textBox1.Bottom))
    End If
End Sub 'textBox1_KeyUp

jeste za KeyUp ali dovoljno je uraditi copy-paste da radi i za KeyDown.

Odgovor na temu

unisoft
Uzice

Član broj: 124050
Poruke: 346
85.222.177.*

+1 Profil

Re: Visual Basic 2008 - detektovanje protisnutih tastera ali za F1,F2,F3...F11,F12

^{23.03.2009. u 09:32 - pre 209 meseci}

Znam za ovo,ja sam ovo isprobavao ali mi nije radilo.Aj probacu ponovo pa cu ti javnuti sta se desava.Mozda nisam upisao u pravi event forme pa mi zbog toga nije radilo.

A da izvinjenje adminima za otvorene dve iste teme.Posto sam ovu temu otvorio u VB6 stigla mi je poruka na pp da je tema premestena u CEKAONICU pa u NET.Ja sam ovo razumeo da mi je tema obrisana iz VB6 i da je u CEKAONICI-da je treba ponovo da otvorim u NET.Nije mi se ovo do sada desavalo.Obriste drugu temu u NET sa istim naslovom.

Odgovor na temu

unisoft
Uzice

Član broj: 124050
Poruke: 346
*.adsl.verat.net.

+1 Profil

Re: Visual Basic 2008 - detektovanje protisnutih tastera ali za F1,F2,F3...F11,F12

^{23.03.2009. u 16:47 - pre 209 meseci}

Citat:

Private Sub textBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles textBox1.KeyUp
' Determine whether the key entered is the F1 key. Display help if it is.
If e.KeyCode = Keys.F1 Then
' Display a pop-up help topic to assist the user.
Help.ShowPopup(textBox1, "Enter your first name", New Point(textBox1.Right, Me.textBox1.Bottom))
End If
End Sub 'textBox1_KeyUp

Provereno,radi.Hvala ti.Ovo je ono sto sam trazio.

Pozdrav :)

Odgovor na temu