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

Thao tác với registry

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Thao tác với registry
• Thao tác với registry

• Thao tác với registry

  Noname > 13-08-10, 09:49 PM

  Đôi khi bạn có nhu cầu làm việc với registry trong Access, ví dụ lưu vị trí form, lưu đường dẫn mặc định để lấy dữ liệu. Hoặc lưu username mặc định, kiểm tra 1 computer có phải lần đầu tiên sử dụng chương trình không... Mọi việcsẽ dễ dàng hơn nhiều nếu bạn thao tác với registry....
  
  
  SaveSetting (appname, section, key, setting) : dùng ghi vào registry
  GetSetting(appname, section, key[, default]) : đọc giá trị từ registry
  DeleteSetting (appname, section[, key] ) : xoá giá trị trong registry
  GetAllSettings(appname, section) : Lấy hết giá trị của ứng dụng được lưu tại section
  
  
  Ví dụ:
  
  Code:
  

  Mã:

  ' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
        Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
    Next intSettings
DeleteSetting "MyApp", "Startup"
• Bài trước Bài tiếp