Make your own free website on Tripod.com

TRUCOS

 

En este apartado puedes hallar trucos que te permitirán añadir nuevas posiblidades a tus aplicaciones. Si tienes cualquier colaboración, no dudes en enviarla.

 

LISTADO DE TRUCOS

VISUAL BASIC

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).

INTERNET

1. Una forma rápida y cómoda para escribir el caracter "~" (Félix Torán Martí. 3/3/98)

 

 

VISUAL BASIC

 

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 lo 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, escribid en vuestro código:

Dim r As Long
r = 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".

 

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

Se comienza creando un módulo (.BAS) 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
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const WndFlags = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

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

Dim r As Integer
r = 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".

 

 

INTERNET

1. Una forma rápida y cómoda para escribir el caracter "~". (Félix Torán Martí. 3/3/98)

Todos conocemos la forma de escribir este caracter, usando ALT+126. La verdad es que resulta un poco pesado, y para ello puedes usar un método alternativo: presiona la tecla "Alt Gr." y sin soltarla pulsa "4". Tras esta combinación presiona la barra espaciadora... y Voila!. Cuando lo usas unas cuantas veces te das cuenta de que es mas cómodo que el ALT+126. ¡A disfrutarlo!

 

Volver a la página principal

 

 

 

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