- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 继续追加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75942)
-- 发布时间：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
请问如何打开窗口后，窗口最大化？
-- 发布时间：2015/10/18 12:33:00
--
e.Form.BaseForm.WindowState = 2
-- 发布时间：2015/10/18 12:58:00
--
谢谢！如下代码写在任务栏的任务中，为何生成后的预览窗口不是最大化？
Vars("BbDcztnd") = ztnd & "年" & ztyf & "月" & Date.DaysInMonth(ztnd,ztyf) & "日"
Vars("BbDcztmc") = ztmc
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
e.Form.BaseForm.WindowState = 2
-- 发布时间：2015/10/18 13:25:00
--
不可能，例子
-- 发布时间：2015/10/18 13:40:00
--
这个控件WebBrowser1放在窗口中的tabcontrol的一个页面中，预览时就不最大化？
-- 发布时间：2015/10/18 14:25:00
--
TabControl停靠设置成fill，webBrowser停靠也设置成fill
-- 发布时间：2015/10/18 14:32:00
--
目前就是双飞，还是不行呀？
-- 发布时间：2015/10/18 14:37:00
--
不可能，例子。
-- 发布时间：2015/10/18 14:53:00
--
实例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目20.zip |
-- 发布时间：2015/10/18 14:58:00
--
没问题啊。