Я всё по поводу таскбара

[Damage]

вот код навая, а он не работает:
модуль:

Код: Выделить всё

Option Explicit
Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
Type POINT
    x As Long
    y As Long
End Type
Type WINDOWPLACEMENT
    length As Long
    flags As Long
    showCmd As Long
    ptMinPosition As POINT
    ptMaxPosition As POINT
    rcNormalPosition As RECT
End Type



форма:

Код: Выделить всё

Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim lHwnd As Long
Dim tmp
Dim place As WINDOWPLACEMENT
Private Sub Command1_Click()
tmp = GetWindowPlacement(lHwnd, place)
End Sub
Private Sub Command2_Click()
tmp = SetWindowPlacement(lHwnd, place)
End Sub
Private Sub Form_Load()
lHwnd& = FindWindow("Shell_TrayWnd", "")
End Sub


GetWindowPlacement возвращает 0

Подскажите чего не так.

[RayShade]

А Private Declare Function GetLastError Lib "kernel32" Alias "GetLastError" () As Long

вызывать не пробовал чтобы посмотреть что за ошибка вылетает?

[Damage]

Всё, с возвратом 0 разобрался.

Всё нормально считывает, но применять другие параметры не хочет, хотя возвращает 1

[Damage]

Я вот подумал, может через реестр?

Никто не знает где сохраняется информация о положении таскбара?

[Dagobert]

Лучше вместо GetWindowPlacement использовать GetWindowRect. А вто как пдовинуть TaskBar сразу сказать не могу. SetWindowPos не поможет.

[Cyrax]

вот тут посмотри, может поможет...