hur.cn - 华软网

 热门搜索

怎么在custom class中的function代码我很难看的懂,我感觉是大量PB函数不知道什么用

  作者:未知    来源:网络    更新时间:2017/9/29
怎么在custom  class中的function代码我很难看的懂,我感觉是大量PB函数不知道什么用,还有在
好多变量不知道在那定义的
举个例子,大家知道一下
PB现在学到对象我就不太明白了
一个类定义的函数
Long dlIndex
u_Dfc_Base_Func duFunc      
If duFunc.uf_GetKeyValue(psGroupProperties, "ExpandBmpFile") <> "" Then
isExpandBmpFile = duFunc.uf_GetKeyValue(psGroupProperties, "ExpandBmpFile")
End If
If duFunc.uf_GetKeyValue(psGroupProperties, "CollapseBmpFile") <> "" Then
isCollapseBmpFile = duFunc.uf_GetKeyValue(psGroupProperties, "CollapseBmpFile")
End If
If duFunc.uf_GetKeyValue(psGroupProperties, "TextColor") <> "" Then
ilGroupTextColor = Long(duFunc.uf_GetKeyValue(psGroupProperties, "TextColor"))
End If

If isExpandBmpFile = "" Or isCollapseBmpFile = "" Then
MessageBox("", &StopSign!)
Return False
End If

dlIndex = UpperBound(inNode) + 1

inNode[dlIndex].ilIndex = dlIndex 
inNode[dlIndex].isGroupName = psGroupName
inNode[dlIndex].ibExpand = False 
inNode[dlIndex].iuOutlookBarXP = This
inNode[dlIndex].isExpandBmpFile = isExpandBmpFile
inNode[dlIndex].isCollapseBmpFile = isCollapseBmpFile
inNode[dlIndex].ilGroupTextColor = ilGroupTextColor

Return True
------------------------------------------
uf_GetKeyValue函数的定义
String dsKey[]
String dsValue[]
Integer i

psString = uf_ReplaceAll(psString, "~t", "~t")
uf_Split(psString, "~t", dsKey)

For i = 1 To UpperBound(dsKey)
uf_Split(dsKey[i], "=", dsValue)
If UpperBound(dsValue) >= 2 Then
If Upper(Trim(dsValue[1])) = Upper(Trim(psKey)) Then
Return dsValue[2]
End If
End If
Next
Return ""

在第一个函数调用下面函数,参变量是怎么传的我就不明白了
------华软网友回答------
PFC的层次是拐来拐去的,得花点时间
------华软网友回复------
看到一个函数就记下来,待会在去翻那个函数就对了!!慢慢看吧,每句话都不难,麻烦的就是调来调去的函数!!!      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。