• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hỏi về setting textbox và tabindex trên from và trong subfrom

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Hỏi về setting textbox và tabindex trên from và trong subfrom
• Hỏi về setting textbox và tabindex trên from và trong subfrom

• Hỏi về setting textbox và tabindex trên from và trong subfrom

  HoangManh > 07-04-17, 07:48 AM

  Các anh làm ơn cho em hỏi là. em muốn khi click vào ô textbox nào thì nó sẽ đổi màu thánh khác những ô khác để thể hiện mình đang làm việc với ô đấy. sau đó khi muốn chuyển sang ôkhacs thì chỉ cần ấn tab.vá ô đựoc chuyển tới cũng chuyển màu.
  
  Em cảm ơn mọi ngừoi nhiều ạ

• RE: Hỏi về setting textbox và tabindex trên from và trong subfrom

  cpucloi > 07-04-17, 09:02 AM

  Sử dụng thuộc tính On Got Focus để đổi thuộc tính màu nền
              tentextbox.BackColor = vbBlue ‘ Nền màu xanh
  Sử dụng thuộc tính On Lost Focus để trả về màu nền cũ
              tentextbox.BackColor = vbWhite ‘ Nền màu trắng

• RE: Hỏi về setting textbox và tabindex trên from và trong subfrom

  ongke0711 > 07-04-17, 10:18 AM

  Bạn sử dụng hàm này áp dụng vào sự kiện OnLoad của form cần highlight textbox.
  - Copy đoạn code vào Module:
  

  Mã PHP:

  Option Compare Database
Option Explicit

Public Function SetFocusHandlers(ByRef frm As Form)
   Dim ctl As Control
   For Each ctl In frm
       If ctl.Tag = "HighlightOnFocus" Then
           ctl.OnGotFocus = "=HandleFocus([" & ctl.Name & "], True)"
           ctl.OnLostFocus = "=HandleFocus([" & ctl.Name & "], False)"
       End If
   Next
End Function

Public Function HandleFocus(ByRef ctl As Control, ByVal blnFocus As Boolean)
   If blnFocus = True Then
       ctl.BackColor = RGB(245, 198, 64)
       ctl.BorderColor = RGB(245, 198, 64)
       ctl.BorderWidth = 1
   Else
       ctl.BackColor = RGB(255, 255, 255)
       ctl.BorderColor = RGB(166, 166, 166)
       ctl.BorderWidth = 1
   End If
End Function 


  
  - Ở sự kiện OnLoad của Form: 
  

  Mã PHP:

  Private Sub Form_Load()
   SetFocusHandlers Me
End Sub 


  
  - Trong form, textbox nào bạn cần highlight thì vào Property sheet |Other -> ở mục Tag bạn gõ vào: "HighlightOnFocus".
  - Muốn thay đổi màu thì bạn đổi thông số trong hàm RGB(). Bạn tự tìm hiểu thông số màu nhé.

• RE: Hỏi về setting textbox và tabindex trên from và trong subfrom

  HoangManh > 07-04-17, 11:57 AM

  (07-04-17, 10:18 AM)ongke0711 Đã viết: Bạn sử dụng hàm này áp dụng vào sự kiện OnLoad của form cần highlight textbox.
  - Copy đoạn code vào Module:
  

  Mã PHP:

  Option Compare Database
Option Explicit

Public Function SetFocusHandlers(ByRef frm As Form)
   Dim ctl As Control
   For Each ctl In frm
       If ctl.Tag = "HighlightOnFocus" Then
           ctl.OnGotFocus = "=HandleFocus([" & ctl.Name & "], True)"
           ctl.OnLostFocus = "=HandleFocus([" & ctl.Name & "], False)"
       End If
   Next
End Function

Public Function HandleFocus(ByRef ctl As Control, ByVal blnFocus As Boolean)
   If blnFocus = True Then
       ctl.BackColor = RGB(245, 198, 64)
       ctl.BorderColor = RGB(245, 198, 64)
       ctl.BorderWidth = 1
   Else
       ctl.BackColor = RGB(255, 255, 255)
       ctl.BorderColor = RGB(166, 166, 166)
       ctl.BorderWidth = 1
   End If
End Function 


  
  - Ở sự kiện OnLoad của Form: 
  

  Mã PHP:

  Private Sub Form_Load()
   SetFocusHandlers Me
End Sub 


  
  - Trong form, textbox nào bạn cần highlight thì vào Property sheet |Other -> ở mục Tag bạn gõ vào: "HighlightOnFocus".
  - Muốn thay đổi màu thì bạn đổi thông số trong hàm RGB(). Bạn tự tìm hiểu thông số màu nhé.

  
  Em cảm ơn anh ạ
• Bài trước Bài tiếp