13518219792
VB的文件都是.vb*结尾的。
成都创新互联是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：响应式网站开发、高端网站设计、成都全网营销。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。网站设计制作、网站制作、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案，我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏析悦目的作品，网站的价值服务。
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
属性页文件
将生成的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
利用DataWindow.net在 vb.net 下导出PDF格式文件
利用datawindow.net，导出PDF文件，实现前提：
1.安装Acrobat Distiller虚拟打印机,注意要用datawindow.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 批处理文件（实现静默安装）
