Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Đổi màu border của Textbox khi được focus (Highlight Textbox)
#1
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.
[Hình: HighlightTextbox1.png]


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 ControlByVal 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)
[Hình: HighlightTextbox2.png] 


File demo.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haianhhp , k3nzyyb , caytregiavn77


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Tự đổi màu Highlight cho field có giá trị lớn nhất k3nzyyb 2 364 24-10-15, 11:28 AM
Bài mới nhất: k3nzyyb
  [Help] Tính toán trong Textbox phamngocsang 7 695 21-09-15, 08:16 AM
Bài mới nhất: phamngocsang
Sad [Help] Không chọn được DAO 3.6 Object conmeocon 3 754 03-07-15, 02:31 PM
Bài mới nhất: paulsteigel
  [Hỏi] Code lấy một field trong query ra textbox trong Access canhcfc 21 2,408 15-02-15, 09:40 PM
Bài mới nhất: thucgia
  Không kết nối được với linked table vulhu06 2 556 23-04-14, 11:11 AM
Bài mới nhất: vulhu06

Chuyển nhanh:


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