MrOKeBap có cho tôi đoạn code này để tô màu cho từng hàng theo kiểu cứ một hàng màu đen (0), một hàng màu đỏ (255), một hàng màu xanh (16711680):
Public Sub TaoColorLV(LV As ListView)
On Error Resume Next
Dim iR As Integer, iC As Byte, iColor As Long
SoCot =...
- Thường thì khi save (insert/update) dữ liệu, nên chuyển ngay thành 1 dạng LCase không dấu đó (việc này viết khéo thì nhanh). Còn việc Display lên Listview thì do các bạn add items và ít sửdụng các "advance technique" nên có thể việc load dữ liệu sẽ chậm. Bọn mình select dữ liệu từ database...
Cám ơn anh.
Nhưng nếu làm như vậy, thi khi tìm kiếm theo nhiều trường khác nhau sẽ phải dùng nhiều cột ẩn. Dữ liệu sẽ lớn hoặc khi load dữ liệu lên ListView sẽ chậm lại.
Nếu vậy, thì format Textbox = Lcase() rồi tìm trực tiếp trên Sheets rồi Load lên listview liệu có nhanh được hơn không anh ?
Cách làm thế này:
Trong list view:
Cột 1:
Cộng Hòa Xã Hội Chủ nghĩa Việt Nam
CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
Cộng hòa Xã hội Chủ nghĩa Việt Nam
v.v...
thì bạn sinh ra 1 cột ẩn cũng có bảng mã là TCVN3 nhưng dạng chữ thấp LCase$()
Cột 2 (Ẩn)
cộng hòa xã hội chủ nghĩa việt nam
....
Lúc...
Tôi đang tìm kiếm trong cột Tên. Định dạng textbox tên là Font Tahoma. Khi dùng một số hàm chuyển font textbox sang TCVN3 để tìm kiếm thì một số tên không tìm thấy được. Nếu định dạng Texbox .Vntime thì chữ "ư" không đánh được.
Mong các bạn chia sẻ chút kinh nghiệm.
Nếu tôi muốn định dạng...
Tôi thấy cái "Microsoft Listview Control 6.0(SP6)" có thể hiển thị được Unicode tổ hợp. Unicode dựng sẵn vẫn bị lỗi 1 số chữ.
Bạn vào mục Font và chọn những font Unicode như Tahoma, Times New Roman... và chọn Script là Vietnamese
File của tôi rất lớn và có nhiều Form. Riêng vấn đề tôi nói trên có thể diễn tả, như vậy:
Trên form tôi có 1 nút Sort. Khi click cmd_button này thì hiển thị 1 form cho ta lựa chọn:
Key_sort (2 key) và Order_sort (tăng/giảm). Sau đó viết code gán giá trị vào lệnh sort và hiển thị DS lên 1...
Sẽ không có vì không thấy cần thiết! Thực ra lý do thay statusbar + progressbar là không phải vì đẹp mà là vì không muốn dùng component "MSCOMCTL.OCX" to vật chứa đủ thứ: Treeview, ListView, StatusBar, ProgressBar, v.v.... mà trong chương trình không dùng đến (mặc dù Windows XP nào cũng có sẵn)...
Đây là lỗi do office. Hay gặp nhất khi ta cài 2 phiên bản Excel2003 và 2007 trên cùng một máy.
Bình thường thì không có gì xảy ra, khi ta thao tác đến một vài chức năng nhất định nào đó thì máy sẽ báo lỗi. VD Như nếu ta cài 2 phiên bản cùng một lúc thì ta không thể sửdụng được listview, code...
Khi mình dùng reference trong tools thì không có MS listview control SP6. Trong control nhấn reference thì có đủ cả.
Giờ mình cài lại luôn cả Win ròi cài 01 Office 2007 thì ổn. Có lẽ lúc trước cài OFF 2003 trước mới cài OF 2007 nên lỗi. Cám ơn các anh chị đã quan tâm giúp đỡ.
Chúc năm mới vui vẻ.
Sửdụng Winsock anh ạ (viết giả lập Server), viết vô cùng phức tạp và chậm. Món đó cũng available in PSC với 3 ví dụ của 1 tác giả (trong đó có 1 ứng dụng gọi là Mail Server+Client (Office Messenger) viết khá tốt). Nhưng mà 3 ví dụ đó viết từ năm 2003 thì phải và sau này chả ai phát triển tiếp...
Đây là Sub dùng để đưa một mảng vào Listview.
Sub TaoLVGPE(LVAll As ListView, Mang As Range, _
Optional Cot1 As Long, Optional Cot2 As Long, _
Optional Cot3 As Long, Optional Cot4 As Long, _
Optional Cot5 As Long, Optional Cot6 As Long, _...
Bạn vào Properties của từng Listview và Set thuộc tính Hide ColumnHeader là TRUE là xong thôi. Còn nếu muốn dùng Code thì thêm vào đầu đoạn code bên dưới như sau:
Private Sub UserForm_Activate()
Dim mDetail As ListItem
Me.ListView1.ColumnHeaders.Clear: Me.ListView1.ListItems.Clear...
Ok! Listview có nhiều loại listview, bạn đang sửdụngListview nào? Hoặc bạn tạo sẵn cái form kèm theo hai cái listview của bạn rồi gửi lên đây xem thử nhé!
Theo anh em nên làm vậy trên form:
1/Sửdụng thêm 1 listbox hay listview, mục đích để show data khi nhập vào để tiện cho việc quan sát kết quả nhập liệu.
2/Để sửa dòng nào chưa đúng (sau khi nhập) cần thêm 1 nút (command button).
3/Thêm 1 cờ (biến có tên là Flag chẳng hạn, trong ví dụ sau anh...
FindItem cho phép ta tìm kiếm trên các Sub Item, tuy nhiên nó lại không cho ta xác định là ở cột nào.
Đây là Code : Mặc dù là lvwPartial nhưng nó lại là tìm kiếm chính xác lvwWhole (!?)
và không biết cách nào để lấy được chỉ số cột của Item tìm được (!?)
Dim LVFind As ListView
Dim...
Cám ơn anh đã nhiệt tình giúp đỡ. Nếu em chỉ gõ 1 cụm từ trong textbox6 nó sẽ tìm toàn bộ các dòng có subitem(1) chứa cụm từ đó thì làm như thế nào?
Mục đích chính của em là hỗ trợ người dùng tìm kiếm dữ liệu một cách đa dạng. Và không phải lọc từ sheets như cách em làm
File của em dùng LB thì rất ok vì nó không khó Bằng LV. em đã gắn mọi sự kiện của LB vào LV ý của em là có cách nào làm ẩn LB (không cho nó hiện lên form mà vẫn có thể sửdụng nó)