Foxtable(狐表)用户栏目专家坐堂 → 继续追加


  共有3039人关注过本帖平板打印复制链接

主题:继续追加

帅哥哟,离线,有人找我吗?
hbhb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5055 积分:13047 威望:0 精华:0 注册:2014/5/15 21:34:00
继续追加  发帖心情 Post By:2015/10/18 10:49:00 [只看该作者]


在窗口中加入一个WebBrowser控件,窗口的AfterLoad事件代码设置为:

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim
tmp As String = ProjectPath & "Attachments\资料卡.xls"
Dim
rpt As String = ProjectPath & "Reports\资料卡.xls"
Dim
Book As New XLS.Book(tmp)
Book
.Build()
Book
.Save(rpt)
wbr
.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
wbr
.AddRess = rpt


请问如何打开窗口后,窗口最大化?


 回到顶部
总数 26 1 2 3 下一页