• 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

Mở Windows Startmenu

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
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:

Mở Windows Startmenu

Postby Dang Minh Du » Mon 16/06/2008 9:58 am

Thủ thuật: Mở Windows Startmenu
Tác giả: Đặng Minh Dự sưu tầm
Mô tả: Mở Windows Startmenu


Code: Select all

  1. Option Explicit
  2. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  3. Private Const KEYEVENTF_KEYUP = &H2
  4. Private Const MENU_KEYCODE = 91
  5.  
  6. Private Sub Command1_Click()
  7.  keybd_event MENU_KEYCODE, 0, 0, 0
  8.  keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
  9. End Sub


~°Dòng Sông Mùa Thu°~
Studying...!

User avatar
duy_huy2008
Thành viên năng nổ
Thành viên năng nổ
Posts: 86
Joined: Mon 31/03/2008 1:18 pm

Re: Mở Windows Startmenu

Postby duy_huy2008 » Mon 16/06/2008 7:23 pm

Code: Select all

  1. SendKeys "^{ESC}"
:-/
"When I was eighteen, I Caught sight of the future and based my career on what I saw. I turned out to have been right."

User avatar
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Posts: 1641
Joined: Wed 16/04/2008 11:25 am
Location: Chợ Lách - Bến Tre
Been thanked: 31 times
Contact:

Re: Mở Windows Startmenu

Postby clarkkent » Tue 17/06/2008 3:41 pm

Sao cách của duy_duy không chạy được nhỉ... :-/
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

neverland87
Guru
Guru
Posts: 490
Joined: Sat 26/05/2007 4:31 pm
Been thanked: 8 times

Re: Mở Windows Startmenu

Postby neverland87 » Tue 17/06/2008 3:52 pm

clarkkent wrote:Sao cách của duy_duy không chạy được nhỉ... :-/

Thấy có mỗi ESC được gửi đi, hotkey phải là Ctrl+Esc chứ
SIMPLY THE BEST - ĐƠN GIẢN LÀ TỐT NHẤT

User avatar
duy_huy2008
Thành viên năng nổ
Thành viên năng nổ
Posts: 86
Joined: Mon 31/03/2008 1:18 pm

Re: Mở Windows Startmenu

Postby duy_huy2008 » Tue 17/06/2008 4:09 pm

Có ctrl đằng trước đấy thôi ( ^ )
"When I was eighteen, I Caught sight of the future and based my career on what I saw. I turned out to have been right."

User avatar
truongphu
VIP
VIP
Posts: 4764
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

Re: Mở Windows Startmenu

Postby truongphu » Tue 17/06/2008 4:32 pm

Theo tôi hiểu (có lẽ chưa chính xác thì) hàm SendKeys bao giờ cũng gởi thông điệp cho một cửa số active,
do đó thường dùng kèm hàm AppActivate để active cửa sổ (có Title) nào đó
Gọi "trổng trổng" SendKeys "^{ESC}" không có tác dụng

Code: Select all

  1. Private Sub Form_Load()
  2. SendKeys "^{ESC}"
  3. End Sub

= không có gì xảy ra!
Còn Code cua Dang Minh Du CŨNG là Code "SendKeys" nhưng là HÀNG XỊN (hàm API trực tiếp rất mạnh)
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Return to “[VB] Mẹo vặt khác”

Who is online

Users browsing this forum: No registered users and 0 guests