快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net导出文件后缀 vb后缀文件用什么软件打开

vb编辑的文件 后缀为什么?

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

属性页文件

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 导出PDF

利用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 批处理文件(实现静默安装)


新闻名称:vb.net导出文件后缀 vb后缀文件用什么软件打开
本文地址:http://6mz.cn/article/hpohdj.html

其他资讯