vb代码:
*************************************
ReDimtemparr(3,0)
Dimtempstr1AsString*256,tempstr2AsString*256
a=String$(i+1,0)
b=Split(hWndTitle,"(")
*************************************
vb.net代码:
*************************************
ReDimPreservetemparr(3)
Dimtempstr1,tempstr2AsString
DimaAsNewString(CChar(CStr(i+1)),0)
DimbAsString()=Split(hWndTitle,"(")
分 -->
|