PB中嵌入webbrowser控件

1.新建窗体w_webbrowser

 

2．插入控件

 

3.insert control 选择 微软的web浏览器

 

4.设置简单功能按钮

 

按钮go 代码：

string ls_url

 

ls_url  = sle_1.text

if len(ls_url)>0 then

      ole_1.object.Navigate(ls_url)

end if

按钮refresh 代码：

ole_1.object.refresh()

窗口resize代码：

ole_1.width=newwidth

ole_1.height=newheight  - ole_1.y

 

运行效果