7,785
社区成员




'index是控件的编号,是控件数组带来的好处
private sub text1_change(index as integer,keyascii as integer)
if keyascii=13 then
select case index
case 0
txet1(1).setfocus
case&n bsp; 1
txet1(0).setfocus
end select
end if
end sub