Lấy chiều cao của thanh Taskbar?

[playgemboy]

Một vài ứng dụng có thể gắn form sát với taskbar cho dù nó đã bị thay đổi kích thước. Vậy có cách nào để lấy được chiều cao của taskbar mà "canh" cái form của mình nhỉ?

[T7]

Một vài ứng dụng có thể gắn form sát với taskbar cho dù nó đã bị thay đổi kích thước. Vậy có cách nào để lấy được chiều cao của taskbar mà "canh" cái form của mình nhỉ?

Code: Select all

1. Private Const ABM_GETTASKBARPOS = &H5
2. Private Type RECT
3.     Left As Long
4.     Top As Long
5.     Right As Long
6.     Bottom As Long
7. End Type
8. Private Type APPBARDATA
9.     cbSize As Long
10.     hwnd As Long
11.     uCallbackMessage As Long
12.     uEdge As Long
13.     rc As RECT
14.     lParam As Long
15. End Type
16. Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long
17.  
18. Private Sub Form_Load()
19.     Dim ABD As APPBARDATA
20.     SHAppBarMessage ABM_GETTASKBARPOS, ABD
21.     MsgBox " Height:" & ABD.rc.Bottom - ABD.rc.Top
22. End Sub

[Dang Minh Du]

Nè Playgameboy, mặc dù là hạ sách và hơi mắc công (khác T7), nhưng nếu bí thì sài tạm cũng dc (đặc biệt dành cho người bik ít như em)
Cầm một Frm là ScreenHeightTruTaskBar với BorderStyle=2 (Sizable), một Frm là ScreenHeight với BorderStyle=3 (FixedDialog) hoặc 1 (Fixed Single) hoặc 4 (FixedToolWindow).
Playgameboy có thể “xào” nó lại cho “chính” để dùng:

Code: Select all

1. Public Sub TaskBarHeight()
2. ScreenHeightTruTaskBar.Show
3. ScreenHeightTruTaskBar.WindowState = 2
4. ScreenHeightTruTaskBar.Visible = False
5.     ScreenHeight.Show
6.     ScreenHeight.WindowState = 2
7.     ScreenHeight.Visible = False
8. MsgBox "Uhm...do xong roi... TaskBar cua ban cao " & ScreenHeight.Height - ScreenHeightTruTaskBar.Height & "phai hong?", vbOKOnly, "Chieu cao cua Taskbar"
9. End Sub

‘Nhớ Unload hai cái form tạm nhe, để nó chạy hoài thì phiền

Hong tin thì có thể thử, tui chắc chắn ko thể nào sai dc.

[bigboy83]

lâu quá không gặp bạn Playgameboy, chắc bạn cũng ko nhớ mình đâu hihi. ngày xưa có hỏi bạn về chương trình karaoke
Hôm nay vô tình thấy bài này của bạn. Minh cũng có 1 cách nhỏ giải quyết vấn đề này . nếu lúc nào bạn cần thì xem qua thử nhé

Code: [Select all] [Expand/Collapse] [Download]

1.  MsgBox(My.Computer.Screen.Bounds.Height - My.Computer.Screen.WorkingArea.Height)

GeSHi © Codebox Plus

[playgemboy]

@bigboy: tình cờ mình cũng ghé lại caulacbovb và rất vui khi nó vẫn hoạt động rất tốt, code của bạn có lẽ viết bằng .net nên trong vb6 ko dùng được

[bigboy83]

oh dung roi code minh lam tren vb.net.
cai karaoke bạn đã nâng cấp lên chưa. nếu khi nào có nhắn mình biết với nhé. mình thích nó hih.
chúc nhiều thành công trong năm mới :d

[nhochoclaptrinh]

Code của T7 trả về độ phân giải màn hình, muốn dùng để show form thì cần

Code: [Select all] [Expand/Collapse] [Download]

1. (ABD.rc.Bottom - ABD.rc.Top  )*  Screen.TwipsPerPixelY

GeSHi © Codebox Plus