Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: sozs_30 en 5 Diciembre 2005, 19:38 pm

Título: superponer un formulario
Publicado por: sozs_30 en 5 Diciembre 2005, 19:38 pm

saludos a todos primero ue nada desearia saber si alguien de ustedes me podria dar una pequeña ayudita en la construccion de un programa y es que nesesito superponer la ventana de mi programa ante todo lo que encuentre en la pc es decir que tenga prioridad sobre los demas les agradeceria su ayuda y si alguen esta dispuesto a ayudarle le puedo pasar el ratero msnmejorado.... que tengan un buen dia see you later

Título: Re: superponer un formulario
Publicado por: germixxx en 5 Diciembre 2005, 19:52 pm

Código:

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1

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

Private Sub Form_Load()
Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

El soborno del ratero no es necesario
saludos