Question

VB6(visual basic 6.0)程序求注释m4，谢谢

'*************************************************************************
' DDEML Type Declarations
'*************************************************************************
Public Type SECURITY_QUALITY_OF_SERVICE
Length As Long
Impersonationlevel As Integer
ContextTrackingMode As Integer
EffectiveOnly As Long
End Type

Public Type CONVCONTEXT
cb As Long
wFlags As Long
wCountryID As Long
iCodePage As Long
dwLangID As Long
dwSecurity As Long
qos As SECURITY_QUALITY_OF_SERVICE
End Type

Answer 1

'*************************************************************************
' DDEML Type Declarations
'*************************************************************************
'定义结构体SECURITY_QUALITY_OF_SERVICE 属性如下:
'Length Impersonationlevel ContextTrackingMode EffectiveOnly
Public Type SECURITY_QUALITY_OF_SERVICE
Length As Long
Impersonationlevel As Integer
ContextTrackingMode As Integer
EffectiveOnly As Long
End Type
'定义结构体CONVCONTEXT 属性如下:
'cb wFlags wCountryID iCodePage dwLangID dwSecurity qos
Public Type CONVCONTEXT
cb As Long
wFlags As Long
wCountryID As Long
iCodePage As Long
dwLangID As Long
dwSecurity As Long
qos As SECURITY_QUALITY_OF_SERVICE
End Type