• 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

Show Desktop

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Show Desktop

Gửi bàigửi bởi QuangHoa » CN 04/05/2008 8:39 am

Thủ thuật: Show Desktop
Tác giả: Võ Quang Hòa Sưu tầm
Mô tả: Thu nhỏ tất cả các cửa sổ lại và xem Desktop


Mã: Chọn hết

  1. Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, ByVal bscan As Byte, ByVal dwflags As Long, ByVal dwextroinfor As Long)
  2.  
  3. Private Sub Form_Load()
  4. Call keybd_event(&H5B, 0, 0, 0)
  5. Call keybd_event(77, 0, 0, 0)
  6. Call keybd_event(&H5B, 0, &H32, 0)
  7. End
  8. End Sub


朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Show Desktop by VB

Gửi bàigửi bởi clarkkent » T.Hai 05/05/2008 12:08 pm

Cách của bạn khi mình chạy thì vẫn hiện lên cửa sổ của chương trình (Form1), không giống windows lắm... :D
Cách này không hiện lên chương trình chạy... :D. Chỉ thêm End vào cuối Form_Load... :D

Mã: Chọn hết

  1. Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, ByVal bscan As Byte, ByVal dwflags As Long, ByVal dwextroinfor As Long)
  2. Private Sub Form_Load()
  3. Call keybd_event(&H5B, 0, 0, 0)
  4. Call keybd_event(77, 0, 0, 0)
  5. Call keybd_event(&H5B, 0, &H32, 0)
  6. End
  7. End Sub
  8.  
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Show Desktop by VB

Gửi bàigửi bởi QuangHoa » T.Ba 06/05/2008 10:11 am

Uh, đúng rồi đó, hehe, quên mất cái này vì trong cái mà mình làm thì đã cho form có thuộc tính Window State là Minimized rồi.
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách