| 发表于:2007-05-31 09:41:436楼 得分:20 |
private sub command1_click() dim mfrm as form dim s as string s = "form2 " for each mfrm in forms if mfrm.name = s then mfrm.controls( "text1 ").text = "hello this is test " exit sub end if next set mfrm = forms.add(s) mfrm.show mfrm.controls( "text1 ").text = "hello this is test " end sub | | |
|