Make your own free website on Tripod.com

TRUCOS

 

Este apartado pretende ser un canal de comunicación de vuestros conocimientos, y un lugar donde poder hallar respuesta a vuestras cuestiones. Se publicarán todos los trucos que enviéis, que pueden ser mejoras de otros trucos publicados. Así que, ya sabéis, ¡a mandar trucos se ha dicho!.

LISTADO DE TRUCOS

1. Ejecutar archivos de sonido WAV usando el API.(Félix Torán Martí.5/10/97)

2. Como crear ventanas "always on top" usando el API (Félix Torán Martí. 6/10/97).

 

1. Ejecutar archivos de sonido WAV usando el API (Félix Torán Martí.5/10/97)

Haciendo una llamada al API, podemos escuchar ficheros de sonido WAV de forma sencilla. Para ello, incluir un módulo (.bas) a vuestro proyecto, y escribir en general declarations los siguiente:

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

Const SND_SYNC = &H0

Const SND_NODEFAULT = &H2

 

Cuando queráis hacer sonar un WAV, escribiréis en vuestro código:

 

Dim z As Long

z = sndPlaySound("C:\nombre.wav", SND_SYNC Or SND_NODEFAULT)

Donde se escribe "C:\nombre.wav", deberéis poner la ruta completa del archivo a tocar. Si la declaración la hacéis dentro de un procedimiento de evento de algún objeto, debéis usar "Private Declare" en lugar de "Declare". Si tenéis que hacer sonar varios archivos dentro del proyecto, no esta de más escribir una función que interprete el archivo WAV, pasándole el nombre de este como argumento.


2. Como crear ventanas "always on top" usando el API (Félix Torán Martí. 6/10/97).

Se comienza creando un módulo y escribiendo lo siguiente:

Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _

ByVal hWndInsertAfter As Integer, _

ByVal x As Integer, ByVal y As Integer, _

ByVal cx As Integer, ByVal cy As Integer, _

ByVal wFlags As Integer) As Integer

 

Global Const SWP_NOMOVE = 2

Global Const SWP_NOSIZE = 1

Global Const WndFlags = SWP_NOMOVE Or SWP_NOSIZE

Global Const HWND_TOPMOST = -1

Global Const HWND_NOTOPMOST = -2

 

En el procedimiento de evento "load" de la ventana a dejar siempre visible, se escribe:

Dim x As Integer

x = SetWindowPos(Me.hWnd, HWND_TOPMOST, Me.Left \ Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0)

 

Y así, la ventana quedará "Always on top".

 

 

 

Páginas creadas por Félix Torán Martí. 1998.
Optimizadas para ...