|
本帖最后由 sab_h 于 2012-1-22 14:22 编辑
就是这个重写那个flght select的方法里面
function SelectRegExp(Obj,patrn,button,offset)
dim NumOfItems,i,CurrentValue,regEx,ItemToSelect,oldFilter
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=False
oldFilter=Reporter.Filter
Repoerter.Filter=2
ItemToSelect=-1
NumOfItems=obj.GetRoProperty("items count")
For i=0 to NumOfItems-1
CurrentValue=obj.GetItem(i)
If regEx.Test(CurrentValue) Then
If(ItemToSelect<>-1)Then
SelectRegExp=-1
Reporter.Filter=oldFilter
Exit Function
End If
ItemToSelect=i
End If
Next
Reporter.Filter=oldFilter
If(ItemToSelect>=0)Then
SelectRegExp=obj.Select(ItemToSelect,Button,Offset)
Else
SelectRegExp=-1
End If
End Function
这里面那个offset是什么作用? 这个要查方法怎么查? |
|