.net 的网页形式。

rollout webbrowser_rollout "Web Test" width:600 height:600

(

 edittext edt_url "URL:" text:"http://www.autodesk.com"

 dotNetControl wb "System.Windows.forms.WebBrowser" pos:[10,22] width:580 height:570

 fn openURL urlString = (

  wb.url = dotNetObject "System.Uri" urlString )

 on edt_url entered txt do openURL txt

 on webbrowser_rollout open do openURL edt_url.text

)

createdialog webbrowser_rollout

posted on 2011-05-03 10:04  盖天00  阅读(197)  评论(0编辑  收藏  举报

导航