Visual Basic - Estudiante

Life is soft - evento anual de software empresarial
   
Vista:

Estudiante

Publicado por angiie (1 intervención) el 09/11/2011 23:35:17
Hola!!

Quiero saber como hacer que cuendo pasas el puntero sobre un boton, suene, ????
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

Estudiante

Publicado por Pedro Luis (57 intervenciones) el 10/11/2011 15:37:16
Private Sub boton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
End Sub

Esto funciona fatal, directamente no se oye, solo se puede oir con auriculares y muy mal.
Te propongo cambiar los colores.

Private Sub boton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
boton.BackColor = QBColor(1)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
boton.BackColor = QBColor(8)
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

Estudiante

Publicado por Christian (666 intervenciones) el 10/11/2011 20:45:34
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sndPlaySound "C:\WINDOWS\Media\notify.wav", SND_ASYNC Or SND_NODEFAULT
End Sub

La primera declaracion ponela arriba de todo,sino puede ir dentro de un modulo sin el private

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

espero te sirva !!!
saludos
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