• 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"