تعیین ارتفاع Taskbar

[ashkan209]

دوستان کسی میدونه که چطور میتونیم ارتفاع Taskbar را بدست بیاوریم ؟

[meh_secure]

کافیه ارتفاع صفحه نمایش رو از ارتفاع فرمتون کم کنید.

[ashkan209]

فکر کنم منظورت از فرم ،فرم MDI هست
ولی فرم من ،کوچک به اندازه یک Lable هست (عکسش گذاشتم)
میخوام این فرم کوچولوی تقویم در هر حالت بالای Taskbar قرار بگیره ،و برای همین ارتفاع Taskbar لازمه
ا

[meh_secure]

در هر صورت از اون روش میشه استفاده کرد. روش های دیگه ای رو به ذهنم نمیرسه.

[PalizeSoftware]

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Const ClassName = "Shell_TrayWnd"

Private Sub Command1_Click()
Dim rc As RECT

GetWindowRect FindWindow(ClassName, ""), rc
MsgBox "Height: " & rc.Bottom - rc.Top
End Sub

[ashkan209]

ممنونم دوست عزیز
همان چیزیه که دنبالشم ،فقط مقیاس یا واحد اون عددی که بر میگردونه چیه؟
مثلا ارتفاع Taskbar من =30 ،
با اندازه های کنترلهایی که توی VB استفاده میکنیم به نظر خیلی کوچیکه

[PalizeSoftware]

واحدش بر حسب پیکسل هست که میتونی با توابع ScaleX و ScaleY نسبت به فرم تبدیلشون کنی.

[ashkan209]

بسیار ممنون