24/07/2006, 17:49
|
![Avatar de [EX3]](http://static.forosdelweb.com/customavatars/avatar131179_1.gif) | | | Fecha de Ingreso: marzo-2006 Ubicación: Fuenlabrada, Madrid
Mensajes: 203
Antigüedad: 18 años, 2 meses Puntos: 1 | |
Mediante el API de Windows se puede modificar la posicion del formulario para que sea constante sobre el resto de ventanas. Añade un Modulo BAS a tu proyecto y añadele el siguiente codigo:
Código:
Option Explicit
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private 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
Public Sub OnTop(F As Form)'Coloca la ventana sobre todas las demas:
Call SetWindowPos(F.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE)
End Sub
Public Sub OffTop(F As Form)'Devuelve la posicion anterior a la ventana:
Call SetWindowPos(F.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE)
End Sub Luego desde el evento Load del formulario que desees haces la siguiente llamada:
Código:
Private Sub Form_Load()Call OnTop(Me)
End Sub Salu2...
__________________ Proyecto dx_lib32 (http://dxlib32.se32.com) Libreria DLL ActiveX para el desarollo de juegos y programas multimedia en Visual Basic 6.0 con la potencia de DirectX
Dice un dicho que "el que calla otorga". En internet tenemos otro que dice "nunca alimentes a un troll" que viene a decir "dejale hablar solo que se ya se cansara de incordiar". Solo los necios creen tener la razon con la ultima palabra.
|