画面脚本总结一:(总窗体)下的画面窗口2(画面窗口)SubOnClick(ByValItem)DimobjCircleDimscreennameDimpwnameSetobjCircle=ScreenItems("圆1")=60Setscreenname=("Home1")//获取要操作的窗体Setpwname=("画面窗口2")//获取要操作的控件,这里填入你要操作的控件名MsgBox()//输出圆的半径MsgBox()//输出当前画面窗口2的名字EndSub注意当调用某窗体下的某控件的某个属性时,需要声明两个对象,一个接纳这个控件,一个接纳值例如DimobjectDimvalueSetobject=("Home1").ScreenItems("画面窗口2")Setvalue=(ByvalItem)DimopObjectSetopObject=("Home1").ScreenItems("画面窗口2")=""=("Home1").ScreenItems("静态文本2")=+"EF"//(字符串,n),返回字符串前N个字符;Mid(字符串,p,n),从第p个字符开始,向后截取N个字符;right(字符串,n),返回字符串的最后n个字符。获取下标VB中的InStr()函数与InStrRev()函数:都是在主字符串当中搜寻寻找子字符串,返回找到的子字符串在主字符串中出现的位置;不同在于;InStr()函数,从左开始向右寻找,InStrRev()函数,从右开始向左寻找。截取right和left获取长度Len二:=("a")////执行读取SetAText=ScreenItems("静态文本2")//=//=100////=("a")////必须要有这一步,这是读取操作,=ScreenItems("静态文本2") Case1 ="a" Case2 ="b"
脚本心得 来自淘豆网m.daumloan.com转载请标明出处.