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

Đổi màu border hay nền của Textbox khi được focus (Highlight Textbox)

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] Đổi màu border hay nền của Textbox khi được focus (Highlight Textbox)
• Đổi màu border hay nền của Textbox khi được focus (Highlight Textbox)

• Đổi màu border hay nền của Textbox khi được focus (Highlight Textbox)

  ongke0711 > 02-08-15, 10:37 AM

  Xin chào,
  
  Mình có sưu tầm được thủ thuật này làm đẹp thêm cái form người dùng.
  Dùng hàm SetFocusHandlers để đổi màu Border (highlight) cái textbox khi con trỏ chuột di chuyển đến nó (GotFocus/LostFocus). Có thể dùng hàm này để đổi màu background của textbox (đổi thuộc tính ctl.BackColor).
  
  Textbox có viền màu nâu khi được focus.
  
  
  Textbox đổi màu nền xanh khi được focus
  
  
  
  

  Mã PHP:

  Public Function SetFocusHandlers(ByRef frm As Form)
   Dim ctl As Control

   For Each ctl In frm
       If ctl.Tag = "HighlightOnFocus" Then
           ctl.OnGotFocus = "=Highlight([" & ctl.Name & "], True)"
           ctl.OnLostFocus = "=Highlight([" & ctl.Name & "], False)"
       End If
   Next
   
End Function


Public Function Highlight(ByRef ctl As Control, ByVal blnFocus As Boolean)

   If blnFocus = True Then
       '#Doi mau border. Dung ctl.BackColor de doi mau background cua textbox
       ctl.BorderColor = RGB(228, 108, 10)
       ctl.BorderWidth = 1
   Else
       ctl.BorderColor = RGB(166, 166, 166)
       ctl.BorderWidth = 1
   End If

End Function 


  
  - Mở form cần dùng hiệu ứng này. Trong event Form_Load: 
  

  Mã PHP:

  Private Sub Form_Load()

SetFocusHandlers Me

End Sub 


  
  - Nhưng Textbox nào cần dùng hiệu ứng highlight thì vào Form Property - Other, ở mục Tag gõ: HighlightOnFocus (như hình)
   
  
  
  File demo.
• Bài trước Bài tiếp