¿como HACER un beep?

[(Pato)²]

hola, estoy haciendo un programa bastante simple, y en un timer tengo un par de "If getasynckeystate (vbkeyBLABLABLA) then..." y quiero que cunado se toque alguna de esas teclas suene un beep estilo el del ENTER en un TextBox... alguien sabe como hacerlo? algun llamado a api que poner en en IF?

Muchas Gracias!

[GabrielDR]

yo uso la instrucción en vb6:

Beep (Instrucción) : Emite un sonido por el altavoz del equipo.
Sintaxis: Beep
Comentarios
La frecuencia y duración del sonido que se emite depende del hardware y el software del sistema, que puede variar de un equipo a otro.

Ejemplo de la instrucción Beep
En este ejemplo se utiliza la instrucción Beep para emitir tres sonidos consecutivos por el altavoz del PC.
Dim I
For I = 1 To 3 ' Realiza un bucle 3 veces.
Beep ' Emite un tono.
Next I

Espero que esto sea lo que buscas.

[antonio2005pe]

Iniciado por (Pato)²

hola, estoy haciendo un programa bastante simple, y en un timer tengo un par de "If getasynckeystate (vbkeyBLABLABLA) then..." y quiero que cunado se toque alguna de esas teclas suene un beep estilo el del ENTER en un TextBox... alguien sabe como hacerlo? algun llamado a api que poner en en IF?

Muchas Gracias!

no entendi k es lo k kieres pero me parece k kieres algo como esto:

Código:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
x = GetAsyncKeyState(13)
If x = -32767 Then
Label1.Caption = "Usted Presionó [Enter]"
Beep
End If
End Sub

Suerte :)

[(Pato)²]

Iniciado por GabrielDR

yo uso la instrucción en vb6:

Beep (Instrucción) : Emite un sonido por el altavoz del equipo.
Sintaxis: Beep
Comentarios
La frecuencia y duración del sonido que se emite depende del hardware y el software del sistema, que puede variar de un equipo a otro.

Ejemplo de la instrucción Beep
En este ejemplo se utiliza la instrucción Beep para emitir tres sonidos consecutivos por el altavoz del PC.
Dim I
For I = 1 To 3 ' Realiza un bucle 3 veces.
Beep ' Emite un tono.
Next I

Espero que esto sea lo que buscas.

gracias, esome sirvio...
no se porque ayer no me funcionaba :S

Chau!