ayuda con VB.

[Invitado]

no me funciona lo del sonido

[Invitado]

y me aparece un error en la siguiente linea para poner por arriba

Option Explicit

#If Win16 Then
Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
#Else
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End If

Sub KeepOnTop()
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
SetWindowPos Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

[EPICA]

Puede ser a varias cosas:

una, que la ruta del sonido sea la correcta pk yo puse un ejemplo y ademas que sea extencion wav.

otra, que no le hayas cambiado la condicion en el if, yo puse tmb el ejemplo de las 9:00:00, ademas va despues de cada case.

ejemplo (este va en dos lineas):

Case Format(CDate("09:00:00"), "hh:mm:ss") To Format(CDate("09:59:59"), "hh:mm:ss")
If Format(Hora, "hh:mm:ss") = "09:00:00" Then Call sndPlaySound32("c:\windows\media\chimes.wav", 0)

[EPICA]

Ok, te envio mis fuentes para que compruebes:
http://www.filelodge.com/files/room13/311262/ABC.zip

[EPICA]

Ha puedes kitarle estas lineas, se las agregue para hacer pruebas

Private Sub Form_Click()
Call sndPlaySound32("c:\windows\media\chimes.wav", 0)
End Sub

[Invitado]

que hago con lo que esta mal para que quede adelante?

[EPICA]

Ya checaste las fuentes que te puse en el link?

[martincho_gm]

si ya esta todo revisado.Puse el call en el sub de form load para ver si el sonido funcionaba y funciono

[EPICA]

Entonces, ya quedo todo. o no te funciono lo de la posicion enfrente de todos los programas.

[martincho_gm]

no me queda lo de la posicion ni tmp lo del sonido.Puse con if en cada case y no anda .Dsp puse solo el call pero se me queda el sonido todo la hora.No hay forma de que suene 5 veces y termine?