J2KSetDefaults example for Visual Basic

Private Sub TestProcBitmap()
Dim msg$
' Display all the default JPEG2000 advanced options
LEADDICOM1.J2KOptions.J2KSetDefaults

msg$ = msg$ + "J2KUseColorTransform = " + CStr(LEADDICOM1.J2KOptions.J2KUseColorTransform) + vbCrLf
msg$ = msg$ + "J2KDerivedQuantization = " + CStr(LEADDICOM1.J2KOptions.J2KDerivedQuantization) + vbCrLf

msg$ = msg$ + "J2KXOsiz = " + CStr(LEADDICOM1.J2KOptions.J2KXOsiz) + vbCrLf
msg$ = msg$ + "J2KYOsiz = " + CStr(LEADDICOM1.J2KOptions.J2KYOsiz) + vbCrLf
msg$ = msg$ + "J2KXTsiz = " + CStr(LEADDICOM1.J2KOptions.J2KXTsiz) + vbCrLf
msg$ = msg$ + "J2KYTsiz = " + CStr(LEADDICOM1.J2KOptions.J2KYTsiz) + vbCrLf
msg$ = msg$ + "J2KXTOsiz = " + CStr(LEADDICOM1.J2KOptions.J2KXTOsiz) + vbCrLf
msg$ = msg$ + "J2KYTOsiz = " + CStr(LEADDICOM1.J2KOptions.J2KYTOsiz) + vbCrLf
             
msg$ = msg$ + "J2KDecompLevel = " + CStr(LEADDICOM1.J2KOptions.J2KDecompLevel) + vbCrLf
msg$ = msg$ + "J2KProgressOrder = " + CStr(LEADDICOM1.J2KOptions.J2KProgressOrder) + vbCrLf
msg$ = msg$ + "J2KCodBlockWidth = " + CStr(LEADDICOM1.J2KOptions.J2KCodBlockWidth) + vbCrLf
msg$ = msg$ + "J2KCodBlockHeight = " + CStr(LEADDICOM1.J2KOptions.J2KCodBlockHeight) + vbCrLf
             
msg$ = msg$ + "J2KCBS_SelectiveACBypass = " + CStr(LEADDICOM1.J2KOptions.J2KCBS_SelectiveACBypass) + vbCrLf
msg$ = msg$ + "J2KCBS_ResetContextOnBoundaries = " + CStr(LEADDICOM1.J2KOptions.J2KCBS_ResetContextOnBoundaries) + vbCrLf
msg$ = msg$ + "J2KCBS_TerminationOnEachPass = " + CStr(LEADDICOM1.J2KOptions.J2KCBS_TerminationOnEachPass) + vbCrLf
msg$ = msg$ + "J2KCBS_VerticallyCausalContext = " + CStr(LEADDICOM1.J2KOptions.J2KCBS_VerticallyCausalContext) + vbCrLf
msg$ = msg$ + "J2KCBS_PredictableTermination = " + CStr(LEADDICOM1.J2KOptions.J2KCBS_PredictableTermination) + vbCrLf
msg$ = msg$ + "J2KCBS_ErrorResilienceSymbol = " + CStr(LEADDICOM1.J2KOptions.J2KCBS_ErrorResilienceSymbol) + vbCrLf
             
msg$ = msg$ + "J2KGuardBits = " + CStr(LEADDICOM1.J2KOptions.J2KGuardBits) + vbCrLf
msg$ = msg$ + "J2KDerivedBaseMantissa = " + CStr(LEADDICOM1.J2KOptions.J2KDerivedBaseMantissa) + vbCrLf
msg$ = msg$ + "J2KDerivedBaseExponent = " + CStr(LEADDICOM1.J2KOptions.J2KDerivedBaseExponent) + vbCrLf

msg$ = msg$ + "J2KUseSOPMarker = " + CStr(LEADDICOM1.J2KOptions.J2KUseSOPMarker) + vbCrLf
msg$ = msg$ + "J2KUseEPHMarker = " + CStr(LEADDICOM1.J2KOptions.J2KUseEPHMarker) + vbCrLf

MsgBox msg$

End Sub