Visual Basic - sonidos en vb

Life is soft - evento anual de software empresarial
 
Vista:

sonidos en vb

Publicado por damage (1 intervención) el 07/11/2003 01:31:38
hola, les explico. he usado imagenes como links a otros formularios, y kisiera saber como ponerle sonidos cuando se haga click en ellos.
si alguien sabe que me ayude porfavor.
y de paso si saben comohacer ke cuando pase el puntero por encima(de la misma imagen) hacer ke se muestre otra, (como cuando un boton se \"ilumina\" cuando paso el mouse por encima)
graciassssss.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:sonidos en vb

Publicado por Harold Villena S (104 intervenciones) el 07/11/2003 03:20:47
Es sencillo aqui te va el codigo...

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Sub Command1_Click()
ret& = waveOutGetNumDevs
If ret& > 0 Then
'Ejecuta el archivo
Dim filetoplay As String
filetoplay = "C:\WINDOWS\Application Data\Microsoft\WELCOME\Welcom98.wav"
sndPlaySound filetoplay, SND_ASYNC Or SND_NODEFAULT
Else
MsgBox "Tarjeta de sonido no detectada !"
End If
End Sub

Solo pega el codigo en un formulario y añade un Command Button
ejecuta y listo escucharas el archivo, de lo cntrario cambia laruta del archivo por uno tuyo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:sonidos en vb

Publicado por Harold Villena S (104 intervenciones) el 07/11/2003 03:31:18
Imagen que cambia: pon 2 picturebox en tu formulario imagenes diferentes, pasa el mouse sobre la imagen y luego saca el mouse de
la imagen. Espero te ayude.

Private Sub Form_Load()
Picture1.Visible = True
Picture2.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = True
Picture2.Visible = False
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = False
Picture2.Visible = True
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar