Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: renga73 en 26 Abril 2006, 09:04 am

Título: Sonidos en VB 6.0
Publicado por: renga73 en 26 Abril 2006, 09:04 am

Ademas del comando Beep q genera un sonido, hay otros de este estilo asi de simple

Título: Re: Sonidos en VB 6.0
Publicado por: Robokop en 27 Abril 2006, 01:53 am

Prueba con esto

Código:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
    Dim Cnt As Long
    For Cnt = 0 To 5000 Step 10

        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub