Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo phím tắt cho Command
#11
1/Bạn khai báo một biến toàn cục (vd: Public strActiveObjName As String 'trên đầu một module )

2/Ở sự kiện On Activate của form (hay Report) bạn code :
Mã:
strActiveObjName = Me.Name
Và Sự kiện On Deactivate của Form (hay Report) đó :
Mã:
strActiveObjName = ""

3/Tại hàm được gọi khi bấm phím tắt code tương tự như sau:

Mã:
Function RunAutoKeys(strKey As String)
        Select Case strKey
            Case "F1"
                Select Case strActiveObjName
                    Case "frmHuongDan"
                        MsgBox "Ban da bam F1 tren form frmHuongDan"
                    Case "frmMain"
                        MsgBox "Ban da bam F1 tren form frmMain"
                    Case "Report1"
                        MsgBox "Ban da bam F1 tren Report Report1"
                    Case "Report2"
                        MsgBox "Ban da bam F1 tren Report Report2"
                    Case Else
                    
                End Select
             Case "F2"
            
             '... Case cho cac phim tat khac
            
        End Select
  
End Function
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Thay đổi màu textbox khi đã khóa phím shift thanhtruong 5 427 15-06-17, 12:34 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Lỗi khi tạo command button trên form. GhostRider 2 163 03-05-17, 10:44 AM
Bài mới nhất: GhostRider
  [Hỏi] Vô hiệu hóa chuột phải, phím chức năng tieuphung88 5 1,006 27-07-15, 11:14 AM
Bài mới nhất: tieuphung88
  Kết nối dữ liệu với nút command button nguyenlinh_tb 1 523 19-02-14, 12:31 PM
Bài mới nhất: quan_pc
  [Help] Tạo phím tắt hoặc gán lệnh di chuyển con trỏ qua lại các subform. gaubu117 1 479 15-02-14, 06:20 PM
Bài mới nhất: trunghieu

Chuyển nhanh:


User(s) browsing this thread: 3 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ