• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

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

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

User avatar
playgemboy
Thành viên danh dự
Thành viên danh dự
Posts: 289
Joined: Sun 13/04/2008 6:10 am
Location: Bình Phú, Quận 6, TP.HCM
Been thanked: 1 time
Contact:

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

Postby playgemboy » Tue 10/06/2008 2:37 pm

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ỉ?


<I Come Back>

User avatar
T7
Thành viên danh dự
Thành viên danh dự
Posts: 415
Joined: Thu 24/05/2007 8:19 pm
Location: Long Xuyên - An Giang
Been thanked: 12 times
Contact:

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

Postby T7 » Tue 10/06/2008 3:33 pm

playgemboy wrote: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
While (i <= you) i++;

User avatar
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Posts: 531
Joined: Wed 02/04/2008 2:08 pm
Location: RGames Team
Has thanked: 3 times
Been thanked: 17 times
Contact:

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

Postby Dang Minh Du » Wed 11/06/2008 8:15 am

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.
Attachments
TaskBar Height.rar
(6.2 KiB) Downloaded 273 times
~°Dòng Sông Mùa Thu°~
Studying...!

bigboy83
Thành viên năng nổ
Thành viên năng nổ
Posts: 66
Joined: Thu 26/03/2009 8:26 am

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

Postby bigboy83 » Fri 27/01/2012 12:37 am

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é

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

User avatar
playgemboy
Thành viên danh dự
Thành viên danh dự
Posts: 289
Joined: Sun 13/04/2008 6:10 am
Location: Bình Phú, Quận 6, TP.HCM
Been thanked: 1 time
Contact:

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

Postby playgemboy » Wed 01/02/2012 9:47 pm

@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 :)
<I Come Back>

bigboy83
Thành viên năng nổ
Thành viên năng nổ
Posts: 66
Joined: Thu 26/03/2009 8:26 am

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

Postby bigboy83 » Wed 01/02/2012 11:28 pm

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

User avatar
nhochoclaptrinh
Thành viên danh dự
Thành viên danh dự
Posts: 517
Joined: Sat 28/05/2011 12:10 pm
Has thanked: 15 times
Been thanked: 83 times

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

Postby nhochoclaptrinh » Thu 09/02/2012 11:19 am

Code của T7 trả về độ phân giải màn hình, muốn dùng để show form thì cần
  1. (ABD.rc.Bottom - ABD.rc.Top  )*  Screen.TwipsPerPixelY
Sad eyes never lie :((


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: No registered users and 4 guests