7,785
社区成员




private function DoSomething(byval theID as string)
select case theid
case "Command1"
'处理
case "CommandX"
'处理.....
......
end select
end function
private sub Command1_Click()
call dosomething(command1.name)
end sub
........................
private sub Command81_Click()
call dosomething(command81.name)
end sub