vb.net导出文件后缀 vbnet imports

vb.net 导出PDF

利用DataWindow.net在 vb.net 下导出PDF格式文件

利用datawindow.netvb.net导出文件后缀，导出PDF文件，实现前提vb.net导出文件后缀：

1.安装Acrobat Distiller虚拟打印机,注意要用datawindow.net提供vb.net导出文件后缀的打印驱动，在c:\program files\sybase\datawindow.net2.0\driver中,在文章最后，我会提供一个静态安装虚拟打印机的批处理文件，方便安装。

2.安装Ghostscript 7.05 ，在网上找,免费的。

3.导出PDF文件前，一要指定虚拟打印机名，其次导出格式为PDF（Export.PDF.Method=Distill!）,另外还要指定 PDF.Distill.CustomPostScript=Yes。

具体代码如下：

''' summary

''' 导出文件

''' /summary

''' param name="sender"/param

''' param name="e"/param

''' remarks/remarks

Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click

Try

Dim strFilename, strPrinter As String

Dim saveDg As New SaveFileDialog

strPrinter = Me.dwPrint.Describe("DataWindow.Print.PrinterName")

saveDg.FileName = Me.dwPrint.Tag.ToString

saveDg.Filter = "Pdf文件|*.pdf|Excel文件|*.xls|所有文件|*.*"

If saveDg.ShowDialog = Windows.Forms.DialogResult.OK Then

strFilename = saveDg.FileName

If strFilename.IndexOf(".pdf") 0 Then

Me.dwPrint.Modify("DataWindow.Print.PrinterName='Acrobat Distiller'")

Me.dwPrint.Modify("DataWindow.Export.PDF.Method=Distill!")

Me.dwPrint.Modify("DataWindow.Export.PDF.Distill.CustomPostScript=Yes")

Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Pdf, True)

ElseIf strFilename.IndexOf(".xls") 0 Then

Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Excel, True)

End If

Me.dwPrint.Modify("DataWindow.Print.PrinterName='" + strPrinter + "'")

MessageBox.Show("导出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

4 批处理文件（实现静默安装）

相关问答

Q1: 如何使用vb去出文件的后缀名

比如文件名为c:\windows\logo.gif

private

sub

command1_click()

a

=

"c:\windows\logo.gif"

msgbox

right(a,

4)

'截取后4个字符

end

sub

还有另外的办法

private

sub

command1_click()

a

=

"c:\windows\logo.gif"

msgbox

mid(a,instr(1,a,"."),len(a))

'判断.的位置,然后在截取

end

sub

Q2: VB中常见的文件扩展名有哪些?

扩展名有：．vbp，．frm，．frx，．bas和．cls等几种类型的文件组成。在VB中，工程文件的扩展名是vbp。

VBP，VisualBasic项目为VB项目文件。你可以用记事本打开它，它是文本。你也可以在VB中打开它。窗体文件为FRM扩展名，100FRM为框架文件，全字窗体。

每个窗体的二进制度数据文件（．FRX），其中包含窗体控件的属性数据。说明：VBW，VB工作空间文件，保存窗体启动状态和大小。

扩展资料：

还可以将多个项目分组到一个工作区中，在该工作区中，信息存储在一个文件中。vbw扩展。

VisualBasic将二进制数据文件和表单保存在同一个目录中。该二进制文件的名称与表单相同，扩展名为．frx。VisualBasic在加载表单时读取这个二进制数据文件。

当VisualBasic加载它时，该表单必须有二进制数据文件（．frx）可用。当与使用二进制数据文件的其他版本程序共享表单时，必须确保同时提供了二进制数据文件（．frx）和表单文件（．frm）。

Q3: vb编辑的文件 后缀为什么？

分类: 电脑/网络 操作系统/系统故障

解析:

VB的文件都是.vb*结尾的。

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集，可嵌入HTML语言中，用于网页设计，如ASP（Active Server Page）文件。

VB简单易学，通用性强，用途广泛。

VB 在创建和编译工程时要产生许多文件，分为：设计时文件、杂项开发文件和运行时文件。

设计时文件是工程的建造块，例如基本模块 (.bas) 和窗体模块 (.frm)。

杂项文件是由 Visual Basic 开发环境中的各种不同的进程和函数产生的，例如打包和展开向导从属文件 (.dep)。

开发应用程序时会产生各种设计时文件和其它杂项文件，如下表所列：

扩展名 描述 扩展名 描述

.bas 基本模块 .frm 窗体文件

.cls 类模块 .frx 二进制窗体文件

.res 资源文件 .vbp Visual Basic 工程文件

.ctx 用户控件的二进制文件 .pgx 二进制属性页文件

.dca 活动的设计器的高速缓存 .ctl 用户控件文件

.ddf 打包和展开向导 CAB 信息文件 .tlb 远程自动化类型库文件

.dep 打包和展开向导从属文件 .vbg Visual Basic 组工程文件

.dob ActiveX 文档窗体文件 .vbl 控件许可文件

.dox ActiveX 文档二进制窗体文件 .dws 部署向导脚本文件

.dsr 活动的设计器文件 .vbr 远程自动化注册文件

.dsx 活动的设计器的二进制文件 .vbw Visual Basic 工程工作空间文件

.log 加载错误的日志文件 .vbz 向导发射文件

.oca 控件类型库缓存文件 .wct WebClass HTML 模板

.pag 属性页文件

Q4: vb.net把DBF数据库导出Excel以及数据库连接

"provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" CurDir(FilePath)

说明：CurDir(FilePath)表示DBF文件所在的目录,如文件路径为：F:\编程模板\ckrjz.dbf,CurDir(FilePath)返回F:\编程模板,但在查询是DBF文件要去文件名后缀，如ckrjz.dbf在sql查询时，要把".DBF"去掉.如:

select * from [ckrjz]

Q5: VB如何提取文件后缀？

将生成的exe放入文件夹

private

txtname()

as

string

'定义一个数组装入txt名称

dim

spath

as

string

sub

gettxtname(byval

spath

as

string,

byval

filter

as

string)

'这是获取指定文件夹下指定后缀名的文件名称的过程，装入数组txtname()中,spath就是这里写放txt的文件夹路径

dim

sdir

as

string

dim

sfilter()

as

string

dim

lngfilterindex

as

long

dim

lngindex

as

long

sfilter

=

split(filter,

",")

if

right(spath,

1)

"\"

then

spath

=

spath

"\"

for

lngfilterindex

=

lbound(sfilter)

to

ubound(sfilter)

sdir

=

dir(spath

sfilter(lngfilterindex))

do

while

len(sdir)

lngfiles

=

lngfiles

+

1

redim

preserve

txtname(1

to

lngfiles)

txtname(lngfiles)

=

sdir

sdir

=

dir

loop

next

end

sub

private

sub

command1_click()

dim

i%

spath

=

app.path

"\"

call

gettxtname(spath,

"*.html")

for

i

=

1

to

ubound(txtname)

name

spath

txtname(i)

as

spath

left(txtname(i),

instr(txtname(i),

".")

-

1)

".pdf"

next

msgbox

"done!"

end

sub

vb.net导出文件后缀的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet imports、vb.net导出文件后缀的信息别忘了在本站进行查找喔。