Flags for setting ReadOnly Form Fields SOLVED

[prime clinical systems]

Hi, I use the following code VB6 and sets the form field to read only using Flag of 1, and if I use 0, it does not reset, well, I don't know where to find the flags argument in the documentation.

Dim nFieldsCount As ULONG_T
Dim i As ULONG_T
Dim myString As Variant
Dim Doc As PDFXEditCtl.IPXV_Document
Dim FFlag As PDFXEditCtl.PXC_FormFieldFlag
Dim FType As PDFXEditCtl.PXC_FormFieldType
Dim FSigFlag As PDFXEditCtl.PXC_FormSigFlag
Set Doc = Me.PDF.Doc
FFlag = FFF_ReadOnly

nFieldsCount = Doc.CoreDoc.AcroForm.FieldsCount
For i = 0 To nFieldsCount - 1
Doc.CoreDoc.AcroForm.Field(i).SetFlags FFlag, 1 '1 = true
'but if you try 0, does not remove the flag.
Doc.CoreDoc.AcroForm.Field(i).SetFlags FFlag, 0
'also tried this and nothing happens, does not clear the text either of the readonly field
Doc.CoreDoc.AcroForm.Field(i).Reset
Next i

[Sasha - PDF-XChange]

Hello prime clinical systems,

You are not using this method correctly:
https://sdkhelp.pdf-xchange.com/vie ... d_SetFlags
Here's what the mask is:
https://en.wikipedia.org/wiki/Mask_(computing)
In this case, the code set would remove the flag will look like this:

Code: Select all

SetFlags(0, FFF_ReadOnly);

Cheers,
Alex

[prime clinical systems]

ah ok, thanks, glad it was simple, but seems should fire some error, as it does work with 1 reversed.
and documentation shows it the way I have it, says flags first, followed by mask.
Syntax
HRESULT SetFlags([in] ULONG nSetFlags,
[in] ULONG nMask);
Parameters
nSetFlags
[in] Value of ULONG containing the flags that need to be set.
nMask
[in] Value of ULONG containing the flag settings mask.
ce

[Sasha - PDF-XChange]

Hello Clifford,

No error should be returned in this case. As far as I remember, the S_FALSE HRESILT is being returned as the mask is 0 which means there is nothing to modify.

Cheers,
Alex

[prime clinical systems]

Hi well you gave me this code,
SetFlags(0, FFF_ReadOnly);

and I was just trying to point out that the documentation says SetFlags(Flags, Mask)
unless I don't understand the documentation, anyway thanks for correcting, will try it reversed

CE

[Sasha - PDF-XChange]

Hello Clifford,

The documentation is correct - passing 0 as flags and some value as mask means that this bits' value should be 0 in overall Flags of the object. Anyways glad that it worked for you.

Cheers,
Alex