Barra de tareas y form

Iniciado por Zeroql, 23 Noviembre 2006, 21:17 PM

0 Miembros y 1 Visitante están viendo este tema.

Zeroql

hola muchachos de nuevo yo, aqui preguntando.
mi duda es ¿como hago para posicionar un formulario encima de la barra de tareas por medio de codigo?
me explico. hay dos barra de tareas la primera mide 56 pixeles y la otra puede medir 100 pixeles o lo que el usuario decida que quiere la barra de tareas y quiero que mi form kede encima de ella.
si alguien sabe como plis digalo
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#


WarGhost

te dejo esa función q icé hace tiempo.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Function BarHerr() As Long
On Error Resume Next
Dim udtRect As RECT, lRet As Long, lHWND As Long
lHWND = FindWindow("Shell_TrayWnd", vbNullString)
lRet = GetWindowRect(lHWND, udtRect)
BarHerr = (udtRect.Bottom - udtRect.Top) * Screen.TwipsPerPixelY
End Function

Private Sub Form_Load()
Me.Top = Screen.Height - (Me.Height + BarHerr)
End Sub


¿Qué culpa tengo yo de tener la sangre roja y el corazón a la izquierda?

Zeroql

WarGhost
muchimas gracias. me acabas de dar un code muy importante.... te agradezco.
con esto tambien damos el tema por cerrado
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#