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

Thay đổi màu chữ trong listbox

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Thay đổi màu chữ trong listbox
• Thay đổi màu chữ trong listbox

• RE: Thay đổi màu chữ trong listbox

  dinh_trong_hoa > 20-10-13, 11:34 AM

  (19-10-13, 10:36 PM)MatTroiNguQuen Đã viết: Mình xem qua file của bạn thấy vấn đề không phải ở form mà là ở table
  Muốn đổi màu chữ trong list thì phải bỏ format các trường kiểu text trong table (xóa ">") hoặc thêm luôn format color trong table
  VD Mình sửa thử file của bạn dược như hình sau:
  
  

  
  Good,
  
  Bạn có thể nói rõ hơn không, nếu bỏ format ">" vậy muốn các các giá trị nhập vào phải là chữ hoa thì làm sao, làm sao để chọn màu khác nhau cho các cột như trong hình vậy, nhờ bạn chỉ rõ hơn.
  
  Thanks

• RE: Thay đổi màu chữ trong listbox

  MTNQ > 20-10-13, 02:03 PM

  (20-10-13, 11:34 AM)dinh_trong_hoa Đã viết: Bạn có thể nói rõ hơn không, nếu bỏ format ">" vậy muốn các các giá trị nhập vào phải là chữ hoa thì làm sao, làm sao để chọn màu khác nhau cho các cột như trong hình vậy, nhờ bạn chỉ rõ hơn.

  
  Như mình nói ở trên, có 2 cách:
  1/ Bỏ format text (>)trong table (đây chỉ là display format), muốn chữ in hoa thì nên format khi nhập vào (Edit format) vd trong sự kiện After Update: txtTEN = Ucase(txtTEN)
  (Nên phân biệt hai kiểu format này, nhất là với các giá trị dùng tính toán thống kê như ngày tháng...)
  2/ Thêm format color cho từng trường dữ liệu trong table: cú pháp [color]
  vd:
  >[Red] (Hiển thị thành chữ in hoa màu đỏ)
  #,###[Blue];-#,###[Red] (Hiển thị phần nguyên số dương màu xanh; phần nguyên số âm có dấu trừ phía trước và màu đỏ-tức là nếu số dương sẽ màu xanh, còn số âm sẽ hiển thị màu đỏ)
  ---> nếu format là #,###[Blue];#,###[Red] thì số âm sẽ hiển thị không có dấu trừ ngoài trước và dễ gây nhầm lẫn, đây là cái tai hại của Display format
  ...
  Bạn tìm thêm trên google nhé

• RE: Thay đổi màu chữ trong listbox

  minhminh25767 > 06-07-19, 09:47 AM

  Mình tìm hoài trên Google mà không tìm ra cách thay đổi màu List box,
   Ý là màu có điều kiện: chẵn hạn như record đó xử lý xong rồi thì lên màu xanh, còn chưa xử lý thì màu trắng.

• RE: Thay đổi màu chữ trong listbox

  minhminh25767 > 08-07-19, 06:23 PM

  Một số code trên mấy trang nước ngoài mà không biết áp dụng nó thế nào? 
  

  Mã:

  With Me.ListView1
For Counter = 1 To Me.ListView1.ListItems.Count
        Set Item = Me.ListView1.ListItems.Item(Counter)
        ' Set the variable to the amount
        Amount = Item.SubItems(4)
If Amount <= 500 Or Amount <= 1000 Then
.ListItems.Item(Counter).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(1).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(2).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(3).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(4).ForeColor = vbRed
else
'duplicated just make it vbBlack
.ListItems.Item(Counter).ForeColor = vbBlack
.ListItems.Item(Counter).ListSubItems(1).ForeColor = vbBlack
.ListItems.Item(Counter).ListSubItems(2).ForeColor = vbBlack
.ListItems.Item(Counter).ListSubItems(3).ForeColor = vbBlack
.ListItems.Item(Counter).ListSubItems(4).ForeColor = vbBlack
end if

Next Counter
Me.ListView1.Refresh

  
  
  và cái này nữa
  

  Mã:

  ListBox1.Clear
Dim c As Long
c = 1
For Each cll In Range("Table1").Columns(1).SpecialCells(xlCellTypeVisible).Cells
ListBox1.AddItem cll.Value
If Cells(cll, 5).Value <> "" Then
ListBox1.items(c).ForeColor = vbRed
End If
c = c + 1
Next cll
• Bài trước Bài tiếp