"pling"

[wildjam]

Er det noe mulighet for at hver gang jeg trykker "enter" i chat clienten jeg bygger, kan jeg få det til å SLUTTE å si "pling" ? :-/

 

Takk for respons

[Jonas]

Får vi se koden?

[aadnk]

Hvis dette er en tekstboks kan du bruke denne koden:

 

Private Sub txtText_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
   KeyAscii = 0
End If

End Sub

[wildjam]

hehe, slo bare av lydeffekten i windows... var ikke verre... Men aadnk, det tror jeg ikke jeg kan skrive, siden jeg bruker "enter" for å kalle "cmdsend"......

[aadnk]

Du kan faktisk bruke den koden. Hovedpoenget er at KeyPress kalles før tekstboksen har fått utført de relevante reaksjonene, som f.eks denne irriterende lyden.

 

Derfor kan du fint kalle en prosedyre i KeyPress hendelsen. Kanskje noe lignende dette:

 

Private Sub txtText_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
  cmdSend_Click
  KeyAscii = 0
End If

End Sub

Endret 5. mai 2004 av aadnk