Cùng học lập trình Visual Basic
Dùng ActiveX (.OCX)
để đưa chương trình vào System Tray
Xem bai viet bang font ABC
Để đưa được chương trình của mình vào System Tray chúng ta cần phải lập trình, cũng không có
gì phức tạp lắm. Tuy nhiên cách nhanh nhất là dùng một ActiveX (tập tin .OCX) để giúp chúng ta
dễ dàng đưa chương trình của mình vào System tray mà không hề tốn một giọt mồ hôi. Tôi xin giới
thiệu với các bạn một ActiveX tên là ZTray dùng trong các phiên bản Visual Basic 32 bit (hoàn toàn
free). Bạn chỉ cần tạo đối tượng này vào chương trình & đặt các thuộc tính thích hợp cho nó tức
thì chương trình của bạn bay cái vèo vào System Tray, thiệt hết ý.
Bắt đầu với ZTray control
()) Đặc điểm
- Chỉ cần tạo một đối tượng duy nhất , nó sẽ hoá phép cho chương trình của bạn bay vào System
Tray.
- Biểu tượng (Icon) của chương trình trong System Tray phải là file biểu tượng (*.ico).
- Icon này phải được đặt trong một ImageList, kích thước không thành vấn đề.
- Nếu bạn không chỉ định Icon, nó sẽ tự động lấy Icon mặc định của nó (là quả địa cầu, trông xấu
tệ).
- & còn nhiều thứ nữa ....
()) Một số thuộc tính & sự kiện
Ngoài những thuộc tính, sự kiện bình thường của một đối tượng trong môi trường VB. ZTray còn
có các thuộc tính đặc sau.
* ImageList Property
Thuộc tính này để bạn có thể gán cho nó một ImageList. Trong ImageList này chứa (các) Icon mà
nó dùng làm biểu tượng chương trình trong System Tray. Chỉ có thể thay đổi lúc Design, lúc
chương trình đang chạy bạn không thay đổi được thuộc tính này đâu.
Cú pháp: ZTray.ImageList [=value]
[value] Chính là tên của ImageList (kiểu String)
- Nếu không có ImageList nó sẽ tự động xài cái Icon mặc định của mình.
- Nếu bạn có thay đổi biểu tượng lúc chương trình thực thi bạn phải chủ động để nó biết bằng
cách thay đổi chuộc tính ImageNumber hoặc gán ShowInTray = True (ngay cả khi nó đang là

nhận một cách rõ ràng).
Cú pháp:
Private Sub ZTray_DblClick (Button as integer)
[Button] cho biết nút nào được nhấn.
1 là Left Mouse Button
2 là Right Mouse Button
()) Minh họa cách sử dụng
1. Chuẩn bị:
Sau đây là một chương trình thí dụ minh họa cách sử dụng đối tượng ZTray.
Đầu tiên bạn hãy chuẩn bị tập tin ZTray.ocx, nếu chưa có hãy vào WebLH tải về, mở nén vào thư
mục System của Windows.
Bạn hãy khởi động VB, tạo một Project mới để bắt đầu cuộc thử nghiệm.
2. Đưa ZTray vào đề án:
Project / Components hoặc dùng tổ hợp phím Ctrl - T để mở cửa sổ Components. Cick chọn
ActiveX tên ZTray System Tray Control.
Nếu chưa có trong Danh sách bạn có thể Click nút Browse để chọn tập tin ZTray.ocx từ một thư
mục nào đó
Vì ZTray đòi hỏi có một ImageList nên bạn phải click chọn thêm "Microsoft Windows Common
Controls 6.0".
Click OK bạn sẽ thấy ZTray Control xuất hiện trên hộp ToolBox của VB.
3. Thiết kế:
Trên Form1, bạn tạo một ImageList tên là ImageList1 & một ZTray tên là ZTray1. Và tạo các menu
có tên tương ứng như sau:
Caption Name Checked
PopUp mnuPopUp
Set ToolTips mnuTips
Show In Tray mnuShow True
About mnuAbout
Exit mnuExit
Click phải chuột lên ImageList1 vừa tạo khi nãy, chọn Properties, chọn tiếp thẻ Images, dùng nút

ZTray1.ImageNumber = InputBox("Image (1 - 7) ?", "Icon", 1)
End Sub
Thay đổi Icon cho ZTray. Ta có thể nhập vào số từ 1 đến 7 do có 7 Image như đã nói ở trên.
Private Sub mnuShow_Click()
'Show In Tray
mnuShow.Checked = Not (mnuShow.Checked)
ZTray1.ShowInTray = mnuShow.Checked
If mnuShow.Checked = False Then Visible = True
End Sub
Chức năng này có nhiệm vụ bật tắt cái Icon của chương trình. Khi bạn tắt nó sẽ tự hiển thị form
lên để tránh trường hợp cả Icon lẫn form đều mất tích.
Private Sub mnuTips_Click()