| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何在打开文件窗口选择文件后，打开？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150603) |
| -- 作者：lyfxybc -- 发布时间：2020/6/3 6:39:00 -- 如何在打开文件窗口选择文件后，打开？ 如何在打开文件窗口选择文件后，打开？ 打开下列格式：所有c1文档（c1d） Dim dlg As New OpenFileDialog dlg.Filter= "所有文件|*.C1D" If dlg.ShowDialog = DialogResult.OK Then Dim Proc As New Process \'定义一个新的Process proc.File = dlg.FileName \'指定要打开的文件 Proc.Start() End If 所有c1文档（c1d） 用doc.Preview()显示 |
| -- 作者：lyfxybc -- 发布时间：2020/6/3 6:43:00 -- Dim dlg As New OpenFileDialog dlg.Filter= "所有文件|*.C1D" If dlg.ShowDialog = DialogResult.OK Then Dim doc As New PrintDoc doc.Preview() End If 只能二次选择打开
|
| -- 作者：lyfxybc -- 发布时间：2020/6/3 6:58:00 -- c1d 文件如何用打印预览显示 |
| -- 作者：lyfxybc -- 发布时间：2020/6/3 7:07:00 -- Dim doc As New PrintDoc \'定义一个报表 Dim rt As New prt.RenderTable() \'定义一个表格对象 doc.Body.Children.Add(rt) \'将表格对象加入到报表中 rt.Style.GridLines.All = New prt.Linedef(Color.DarkGray) \'将表格的颜色设为深灰色 rt.Rows.Count = 3 \'设置行数 rt.Cols.Count = 3 \'设置列数 rt.Width = 150 \'设置表格的宽度 rt.Height = 150 \'设置表格的高度 rt.Rows(2).Style.Borders.All = New prt.LineDef("0.5mm", Color.Red) rt.Cols(0).Style.Borders.All = New prt.LineDef("2mm", Color.Blue) Doc.Preview() \'预览报表 生成的报表为c1d格式， 如何打开1.c1d文件 |
| -- 作者：lyfxybc -- 发布时间：2020/6/3 8:04:00 -- [此贴子已经被作者于2020/6/3 9:55:19编辑过]
|
| -- 作者：lyfxybc -- 发布时间：2020/6/3 8:57:00 -- 如何打开保存后的c1d文件 Dim dlg As New OpenFileDialog dlg.Filter= "所有文件|*.C1D" If dlg.ShowDialog = DialogResult.OK Then Dim doc As New PrintDoc doc.Preview() doc.save(d:\\1\\11.c1d) End If 如何再次打开保存后的c1d文件
[此贴子已经被作者于2020/6/3 9:30:44编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/6/3 9:28:00 -- Dim dlg As New OpenFileDialog dlg.Filter= "所有文件|*.C1D" dlg.MultiSelect = True If dlg.ShowDialog = DialogResult.OK Then For Each file As String In dlg.FileNames Dim doc As New PrintDoc \'定义一个报表 doc.Load(file) doc.Preview Next End If
|
| -- 作者：lyfxybc -- 发布时间：2020/6/3 17:28:00 -- Dim dlg As New OpenFileDialog dlg.Filter= "所有文件|*.C1D" dlg.MultiSelect = True If dlg.ShowDialog = DialogResult.OK Then For Each file As String In dlg.FileNames Dim doc As New PrintDoc \'定义一个报表 doc.Load(file) doc.Preview Next End If 以上代码如何改成保存文件
|
| -- 作者：有点蓝 -- 发布时间：2020/6/3 17:29:00 -- 保存报表？http://www.foxtable.com/webhelp/topics/2450.htm |