下面这些玩意你写了没有?
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
RaiseEvent WriteProperties(PropBag)
Call PropBag.WriteProperty("ExamineItemsXMLUrl", g_strExamineItemsXMLURL, DEF_EXAMINEITEMSDOCURL)
End SubPrivate Sub UserControl_InitProperties()
RaiseEvent InitProperties
g_strExamineItemsXMLURL = DEF_EXAMINEITEMSDOCURL
End SubPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)
g_strExamineItemsXMLURL = PropBag.ReadProperty("ExamineItemsXMLUrl", DEF_EXAMINEITEMSDOCURL)
End SubPublic Property Let ExamineItemsXMLUrl(ByVal strURL As String)
g_strExamineItemsXMLURL = strURL
End Property
Public Property Get ExamineItemsXMLUrl() As String
'输入参数:
'功能
ExamineItemsXMLUrl = g_strExamineItemsXMLURL
End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
RaiseEvent WriteProperties(PropBag)
Call PropBag.WriteProperty("ExamineItemsXMLUrl", g_strExamineItemsXMLURL, DEF_EXAMINEITEMSDOCURL)
End SubPrivate Sub UserControl_InitProperties()
RaiseEvent InitProperties
g_strExamineItemsXMLURL = DEF_EXAMINEITEMSDOCURL
End SubPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)
g_strExamineItemsXMLURL = PropBag.ReadProperty("ExamineItemsXMLUrl", DEF_EXAMINEITEMSDOCURL)
End SubPublic Property Let ExamineItemsXMLUrl(ByVal strURL As String)
g_strExamineItemsXMLURL = strURL
End Property
Public Property Get ExamineItemsXMLUrl() As String
'输入参数:
'功能
ExamineItemsXMLUrl = g_strExamineItemsXMLURL
End Property
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货