• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
Hình đại diện của người dùng
T7
Thành viên danh dự
Thành viên danh dự
Bài viết: 415
Ngày tham gia: T.Năm 24/05/2007 8:19 pm
Đến từ: Long Xuyên - An Giang
Been thanked: 12 time
Liên hệ:

Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi T7 » T.Năm 25/09/2008 8:03 pm

Thủ thuật: Lưu dữ liệu của một list bằng SaveSetting và GetSetting
Tác giả: T7
Mô tả: Chúng ta thường dùng SaveSetting và GetSetting để lưu các thiết đặt của chương trình vào Registry, nhưng ngoài ra nếu chúng ta biết áp dụng hơn một tí thì nó còn có thể lưu được các dạng dữ liệu khác nữa đấy. Điển hình ở đây là dữ liệu của một ListBox (Còn có thể áp dụng cách này với ComboBox)



Cho một form, thêm một list tên list1 vào rồi thêm đoạn code này vào:

Mã: Chọn hết

  1. Private Sub Form_Load()
  2. Dim SoItem As String
  3. Dim i As Integer
  4. SoItem = GetSetting("T7 's Code", "Examble", "ItemCount", 0)
  5. If SoItem > 0 Then
  6.     List1.Clear
  7.     For i = 1 To SoItem
  8.         List1.AddItem GetSetting("T7 's code", "Examble", "Item " & i, "")
  9.     Next i
  10. End If
  11. End Sub
  12.  
  13. Private Sub Form_Unload(Cancel As Integer)
  14. SaveSetting "T7 's Code", "Examble", "ItemCount", List1.ListCount
  15. For i = 1 To List1.ListCount
  16.     SaveSetting "T7 's code", "Examble", "Item " & i, List1.List(i - 1)
  17. Next
  18. End Sub
  19.  


Bây giờ bạn có thể thiết kế thêm các tính năng khác cho chương trình như chức năng add thêm dữ liệu vào list lúc đang chạy hay xóa bớt đi..., sau đó hãy thử tắc và mở lên lại xem, các dữ liệu trên list vẫn còn được lưu một cách nguyên vẹn :D

Đây là source code mẫu:
Tập tin đính kèm
Ex.rar
(1.34 KiB) Đã tải 646 lần


While (i <= you) i++;

Hình đại diện của người dùng
anhtuyenbk
Guru
Guru
Bài viết: 1311
Ngày tham gia: T.Năm 22/09/2005 4:12 pm
Đến từ: Một nơi chừa từng biết, chưa từng nghe, chưa từng thấy
Been thanked: 38 time

Re: Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi anhtuyenbk » T.Năm 25/09/2008 8:28 pm

Nếu lưu dữ liệu nhiều như list thì lưu vào file cho rồi
Kiếm cơm cho qua ngày tháng
https://www.facebook.com/pinduphongpisenchinhhang

Hình đại diện của người dùng
vietteiv
Quản trị
Quản trị
Bài viết: 1318
Ngày tham gia: T.Bảy 10/02/2007 12:17 am
Đến từ: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 time
Been thanked: 69 time
Liên hệ:

Re: Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi vietteiv » T.Năm 25/09/2008 8:47 pm

anhtuyenbk đã viết:Nếu lưu dữ liệu nhiều như list thì lưu vào file cho rồi

đồng ý với ý kiến của anhtuyenbk, ko ai lưu và load dữ liệu hơn ngàn record kiểu này

Hình đại diện của người dùng
T7
Thành viên danh dự
Thành viên danh dự
Bài viết: 415
Ngày tham gia: T.Năm 24/05/2007 8:19 pm
Đến từ: Long Xuyên - An Giang
Been thanked: 12 time
Liên hệ:

Re: Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi T7 » T.Sáu 26/09/2008 11:38 am

anhtuyenbk đã viết:Nếu lưu dữ liệu nhiều như list thì lưu vào file cho rồi

Lưu vào file thì có thể bị người dùng xóa hoặc thay đổi tùy ý, còn lưu vào registry thì người dùng khó lòng mà tìm được :D
While (i <= you) i++;

Hình đại diện của người dùng
anhtuyenbk
Guru
Guru
Bài viết: 1311
Ngày tham gia: T.Năm 22/09/2005 4:12 pm
Đến từ: Một nơi chừa từng biết, chưa từng nghe, chưa từng thấy
Been thanked: 38 time

Re: Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi anhtuyenbk » T.Sáu 26/09/2008 11:42 am

T7 đã viết:Lưu vào file thì có thể bị người dùng xóa hoặc thay đổi tùy ý, còn lưu vào registry thì người dùng khó lòng mà tìm được :D

Cái đó là do họ tự chuốc lấy, ráng chịu >:) >:)
Kiếm cơm cho qua ngày tháng
https://www.facebook.com/pinduphongpisenchinhhang

G2B
Bài viết: 2
Ngày tham gia: T.Năm 19/02/2009 10:51 pm

Re: Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi G2B » CN 22/02/2009 12:07 pm

nhưng bị 1 số AV phát hiện được đấy :D

Hình đại diện của người dùng
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: CN 17/07/2005 1:40 am
Has thanked: 13 time
Been thanked: 87 time
Liên hệ:

Re: Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi vo_minhdat2007 » CN 22/02/2009 4:47 pm

T7 đã viết:
anhtuyenbk đã viết:Nếu lưu dữ liệu nhiều như list thì lưu vào file cho rồi

Lưu vào file thì có thể bị người dùng xóa hoặc thay đổi tùy ý, còn lưu vào registry thì người dùng khó lòng mà tìm được :D

Ai bảo khó tìm chứ? Trong Registry các chương trình VB And VBA dùng SaveSetting đều đi về 1 chấu cả (quên mất chỗ nào, nhưng nói chung dễ tìm). Hơn nữa, rất tốn kém tài nguyên Registry nếu xoá bớt item, vì không thể xoá các khoá!

Hình đại diện của người dùng
Tunes
Thành viên tích cực
Thành viên tích cực
Bài viết: 116
Ngày tham gia: CN 13/04/2008 6:13 pm
Đến từ: Atlanta, USA
Been thanked: 2 time
Liên hệ:

Re: Lưu dữ liệu của một list bằng SaveSetting và GetSetting

Gửi bàigửi bởi Tunes » CN 22/02/2009 9:06 pm

Hồi trước cũng có xài cách này, nhưng mà hồi đó mới học lớp 7, bây giờ không dùng nữa ;)) .
Development means Challenge


Quay về “[VB] Ứng dụng - Form và Control”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách