C API application 1

zhaozj2021-02-12  143

Event (Declarations):

Declare function nsfdbopen lib "nnotes.dll" (byval dbname as string, hdb as long) AS Integer

Declare function nsfdbclose lib "nnotes.dll" (Byval HDB As long) AS Integer

Declare function nsfdbreadacl lib "nnotes.dll" (Byval HDB As Long, HACL AS Long) AS Integer

Declare function aclsetflags lib "nnotes.dll" (Byval Flags As Long

Screen.width / 2) this.width = Screen.width / 2 "vSpace = 2 border = 0> as integer

Declare function nsfdbstorearacl lib "nnotes.dll" (byval HACL AS Long, Byval ObjectID as long, method as long) AS Integer

Event Click: DIM HDB As Long, HACL As Long Rc = NSFDBopen ("Test.nsf", HDB) RC = NSFDBReadaDACL (HACL) RC = AclsetFlags (HACL, & H0) RC = NSFDBStoreaCl (HDB, HACL, 0, 0 ) Rc = nsfdbclose (HDB)

转载请注明原文地址:https://www.9cbs.com/read-7261.html

New Post(0)