| 发表于:2007-06-28 11:57:335楼 得分:0 |
左侧的“脚本大纲”中,选择window,双击“onload编写下面的脚本程序: <script id=clienteventhandlersvbs language=vbscript> <!-- sub window_onload vgctrl1.design "http://www.visual-graph.com/index.tbl " end sub --> </script> 然后,保存网页,在浏览器中打开这个网页。控件支持design(设计)和run(运行)两个函数 在网页上生成下面的代码: <input type= "button " value= "button " id=button1 name=button1> 此时,脚本大纲列表中将多出来一项“button1”。 双击“onclick”,在网页上写下面的程序: sub button1_onclick set asheet = vgctrl1.activesheet set atext = asheet.addunit( "text ", 0, 0, 100, 100) atext.pattern=1 atext.text = "hello world! " end sub activesheet是视图文件的当前页面(页面类 工具栏再拖动一个按钮,放到网页上。 此时,脚本大纲列表中将多出来一项“button2”。 双击“onclick”,在网页上写下面的程序: sub button2_onclick vgctrl1.newunit "line ", 0 end sub newunit是视图类的命令函数,执行这句程序后,可以在画面上用鼠标画线 给控件加上相应的事件,例如鼠标双击事件。 sub vgctrl1_ondblclick set asheet = vgctrl1.activesheet set aunit = asheet.unitatcursor(nothing) if aunit is nothing then msgbox "您在图形: " + aunit.name + " 上双击了鼠标键! " end if end sub 修改onload代码 sub window_onload vgctrl1.design( " ") vgctrl2.run( "http://www.visual-graph.com/demos/onlinedraw/controls.xml " ) vgctrl2.library = true end sub 这里的controls.xml是一个元件库。 在网页上再放一个按钮button3,双击“onclick”,在网页上写下面的程序: sub button3_onclick vgctrl1.newunit "button ", 0 end sub | | |
|