---

Jeg bruger en sub til at fange taste tryk på en form, for sende dem videre
til com porten.
når jeg taster "esc" eller "cr" kommer der en "ding" lyd fra højtaleren,
hvorledes får jeg den væk ?

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKey0, vbKeyNumpad0
MSComm1.Output = "0"
Case vbKey1, vbKeyNumpad1
MSComm1.Output = "1"
Case vbKey2, vbKeyNumpad2
MSComm1.Output = "2"
Case vbKey3, vbKeyNumpad3
MSComm1.Output = "3"
Case vbKey4, vbKeyNumpad4
MSComm1.Output = "4"
Case vbKey5, vbKeyNumpad5
MSComm1.Output = "5"
Case vbKey6, vbKeyNumpad6
MSComm1.Output = "6"
Case vbKey7, vbKeyNumpad7
MSComm1.Output = "7"
Case vbKey8, vbKeyNumpad8
MSComm1.Output = "8"
Case vbKey9, vbKeyNumpad9
MSComm1.Output = "9"
Case vbKeyEscape
MSComm1.Output = Chr$(27)
Case vbKeyT
MSComm1.Output = "T"
Case vbKeyUp
MSComm1.Output = Chr$(27) & "[A"
Case vbKeyDown
MSComm1.Output = Chr$(27) & "[B"
Case vbKeyRight
MSComm1.Output = Chr$(27) & "[C"
Case vbKeyLeft
MSComm1.Output = Chr$(27) & "[D"
Case vbKeyReturn
MSComm1.Output = Chr$(KeyCode)
Case vbKeyPageUp
Call CmdPilOp_Click
Case vbKeyPageDown
Call CmdPilNed_Click
Case Else
MSComm1.Output = Chr$(KeyCode)
End Select
TxtVent.SetFocus 'flyt focus væk
End Sub

--
Venlig hilsen

Viggo

---

On Mon, 1 Mar 2004 13:29:57 +0100, "VIP"
<netbroker@detteskalfjernesmail.dk> wrote:

>Jeg bruger en sub til at fange taste tryk på en form, for sende dem videre
>til com porten.
>når jeg taster "esc" eller "cr" kommer der en "ding" lyd fra højtaleren,
>hvorledes får jeg den væk ?
>
Case Else
MSComm1.Output = Chr$(KeyCode)
    KeyCode = 0
   End Select

maybe........

--
Snutten
Reply-to adressen er gyldig inntil spam er mottatt

---

jeg har prøvet denne mulighed, det hjælper ikke noget

--
Venlig hilsen

Viggo

"Helge Bjørkhaug" <just@me.invalid> skrev i en meddelelse
news:tnr640t3p6kd57kuadfn2mimc5sts2frhe@4ax.com...
> On Mon, 1 Mar 2004 13:29:57 +0100, "VIP"
> <netbroker@detteskalfjernesmail.dk> wrote:
>
> >Jeg bruger en sub til at fange taste tryk på en form, for sende dem
videre
> >til com porten.
> >når jeg taster "esc" eller "cr" kommer der en "ding" lyd fra højtaleren,
> >hvorledes får jeg den væk ?
> >
> Case Else
> MSComm1.Output = Chr$(KeyCode)
> KeyCode = 0
> End Select
>
> maybe........
>
> --
> Snutten
> Reply-to adressen er gyldig inntil spam er mottatt

---

VIP skrev:
> når jeg taster "esc" eller "cr" kommer der en "ding" lyd fra højtaleren,
> hvorledes får jeg den væk ?
....
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> End Sub

Prøv at tilføj dette:

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii)
Case vbCr, vbKeyEscape
KeyAscii = 0
End Select
End Sub

-------
Tomas

---

det ser ikke ud til at Keypress, kan fange Pgdn, Pgup, pile op og ned

hvad gør jeg ?

--
Venlig hilsen

Viggo

"Tomas Christiansen" <toc-01-nospam@blikroer.dk> skrev i en meddelelse
news:c205rg$18v6$1@news.cybercity.dk...
> VIP skrev:
> > når jeg taster "esc" eller "cr" kommer der en "ding" lyd fra højtaleren,
> > hvorledes får jeg den væk ?
> ...
> > Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> > End Sub
>
> Prøv at tilføj dette:
>
> Private Sub Form_KeyPress(KeyAscii As Integer)
> Select Case Chr(KeyAscii)
> Case vbCr, vbKeyEscape
> KeyAscii = 0
> End Select
> End Sub
>
> -------
> Tomas
>

---

VIP skrev:
> det ser ikke ud til at Keypress, kan fange Pgdn, Pgup, pile op og ned

Dvs. at du får lyde, når du trykker på disse taster?
Hmm. En mulighed er måske at designe din egen UserControl, som kan tage
fokus, og som forhindrer lydene. Problemet er der jo kun fordi din form har
fokus, ikkesandt?

-------
Tomas

---

så lykkedes det !

jeg fjenede ESC og CR fra keydown rutinen og tilføjede dem til en keypress
rutine som foreslået, hvor keycode sættes = 0
Jeg har fortsat min focus på textboksen, for at undgå at focus kommer på en
af mine command buttons

--
Venlig hilsen

Viggo

"Tomas Christiansen" <toc-01-nospam@blikroer.dk> skrev i en meddelelse
news:c20g07$1m4k$1@news.cybercity.dk...
> VIP skrev:
> > det ser ikke ud til at Keypress, kan fange Pgdn, Pgup, pile op og ned
>
> Dvs. at du får lyde, når du trykker på disse taster?
> Hmm. En mulighed er måske at designe din egen UserControl, som kan tage
> fokus, og som forhindrer lydene. Problemet er der jo kun fordi din form
har
> fokus, ikkesandt?
>
> -------
> Tomas
>