以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  PopMessage问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113968)
--  作者：刘林
--  发布时间：2018/1/25 21:37:00
--  PopMessage问题
doc.PageSetting.Landscape = True
Doc.PageSetting.LeftMargin = 2 \'设置左边距
Doc.PageSetting.RightMargin = 2 \'设置右边距
Doc.PageSetting.TopMargin = 5 \'设置上边距
Doc.PageSetting.BottomMargin = 5 \'设置下边距
PopMessage("因数计算量大,正在为您生成生报,请耐心等待!","请耐心等待...", PopIconEnum.Infomation,10)
For Each region As String() In Regions
    rm = new prt.RenderEmpty \'定义一个新的空对象
    rm.BreakBefore = prt.BreakEnum.Page \'打印前换页
老师，请问如做了个PopMessage,但在报表预览时，当popmessage关时预窗口也自动关闭了，这怎么办
--  作者：有点甜
--  发布时间：2018/1/25 22:34:00
--  

bug，只能变通处理。

 

做一个计划1，写入代码

 

MyTimers("计划1").Enabled = False
PopMessage("因数计算量大,正在为您生成生报,请耐心等待!","请耐心等待...", PopIconEnum.Infomation,10)

 

调用的时候，分开调用

 

MyTimers("计划1").Enabled = True
msgbox(12345)
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Preview() \'预览