vb.net语法导包 VBNET编程宝典

vb.net怎样打包？

打包的具体操作步骤：

成都创新互联提供高防服务器租用、云服务器、香港服务器、眉山服务器托管等

1）新建“安装和部署项目”-- “安装向导”

2）选择菜单中 项目-- 添加-- 文件（这里选“创建用于windows应用程序.exe你的数据库文件”）-- 打开

3）一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入4）

Crystal_Managed2003.msm （如果有水晶报表）

dotnetfxredist_x86.msm （.net一定是必须的）

... （如果有引用其他的dll）

4）手动加入要包含的文件：项目-- 添加-- 合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)

位于：C:\Program Files\Common Files\Merge Modules\ 下

具体功能如下：

（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）

* Crystal_Managed2003.msm、

Crystal_Managed2003_chs.msm、

（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）

* Crystal_Database_access2003.msm、

Crystal_Database_access2003_chs.msm、

（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）

* Crystal_regwiz2003.msm、

（是vc的运行库，估计是Crystal Report或涉及到的某些程序是用vc写的，所以需要它！）

VC_User_CRT71_RTL_X86_---.msm、

VC_User_STL71_RTL_X86_---.msm、

5）打开解决方案-- 右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）

6）生成解决方案（或直接按Ctrl+Shift+B）

至此整个分发程序已经做好，再把刚才做的那个安装程序双击一下……

-----------------------------------------------------------------------

打包时加入卸载功能：

方法一:

1.在打包项目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)

2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为 "卸载 ".

3.更改此快捷方式的Arguments 为 "/x {产品id} ",产品id的值为打包项目的ProductCode属性值.

方法二:(推荐)

1.先生成安装包，记下ProductCode,下面要用到

2.用VS.net建立一个新的控制台程序uninst.exe文件

'power by: landlordh

'for 2000,xp,2003

Module uninstall

Sub Main()

Dim myProcess As Process = New Process

If System.Environment.OSVersion.ToString.IndexOf( "NT 5 ") Then

myProcess.Start( "msiexec ", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559} ") '改为自己的ProductCode

End If

myProcess.Close()

End Sub

End Module

3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式

如果装个ms的控件的话，则直接把framework和msac打在包里。

VB.NET编程语法

你这是vb.net的代码,vb中不允许那么写:

Dim strdx() As String = {"0", "0", "0"} '定义个数组,从后面的值能看的出最大下标是2,也就是strdx(0),strdx(1)和strdx(2),3个的默认值都为0

Dim calcount1 As String = "0" '定义个字符串变量

Dim calcount2 As String = "0"

Dim strvalue As Boolean = False '定义strvalue为bool值,改类型变量只有true和false 2种值

If strdx(0) = "0" Then

TextBox1.Text = strdx(0) "." 这是字符串连接符号,和"+"的区别是,他把左右2边的内容直接连接的,而"+"可能会编程运算符,例如 2 3 = "23" 而 2 + 3 = 5

ElseIf strvalue = False Then

strdx(0) = strdx(0) "0"

TextBox1.Text = strdx(0) "."

strvalue = True

Else

strdx(0) = strdx(0) "0"

TextBox1.Text = strdx(0)

Select Case calcount1 ' 这里开始是分支语句

Case "+"

TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))

VB.NET怎么导出组件

如何从web页面导入excel单元格数据、又如何把查询出来的数据放到web页面上显示成客户需要的图表？并且导出到excel中？有两种方案： 1.用Excel自动化技术。引用Excel的类型库生成.Net的包装类。导入时采用页面放上传文件按钮的方法，在服务器端收到文件后，用excel自动化类打开excel文件，再学会VBA语法，书写大量的代码读取单元格，然后连接数据库保存。导出时，查询数据库，启动excel自动化对象，通过VBA语法填写单元格，保存成excel文件，再用Response.OutputStream输出到页面上，触发excel文件的下载保存框。缺点：容易在服务器端产生excel死进程，代码编写复杂、代码量大、还要掌握VBA语法，用户需要上传、下载操作有人会说，显示数据时可以用网页直接显示，不用导出成excel。其实也很麻烦：用网页显示复杂的报表格式，网页设计工作量大；如果客户要求导出excel，这个工作就省不了；如果客户要求打印、打印预览、页面设置，比起excel浏览器的打印就捉襟见肘了。 2.用微软Office中间件——SOAOffice。（建议使用最新版的）用SOAOffice输出Excel，就不会再有上述烦恼。通过SOAOffice不仅能够动态填充excel，读取excel单元格，而且还能在浏览器里直接浏览excel、或者下载、另存。SOAOffice提供标准C#.Net组件，组件在服务器端不使用自动化调用，稳定支持大量web并发访问，这是用com调用无法实现的。组件的属性方法都比较简单，易于调用，你完全不用去掌握复杂的VBA调用。 由于是纯.Net组件，所以服务器端不需安装office。 SOAOffice的excel组件SOAExcel含有Sheet、Cell等类似Excel的简化接口，调用简单。SOAExcel不但能能把数据库字段值动态填充到Excel单元格，还能把用户输入的单元格的值提出给开发者保存到数据库。 SOAExcel能够在客户端浏览器的网页里通过SOAOffice直接显示生成的Excel，用户不必先下载再打开观看内容。 举个导出excel的例子： SOAOfficeX.ExcelResponse SOAExcel = new SOAOfficeX.ExcelResponse(); SOAOfficeX.ExcelResSheet sheet1 = SOAExcel.openSheet("Sheet1"); // 打开一个Sheet sheet1.openCell("D"+String.valueOf(8+i)).setValue(rs.getString("Count")); //循环填充数据。 SOAOfficeX.SOAOfficeCtrl SOACtrl = new SOAOfficeX.SOAOfficeCtrl(response); SOACtrl.assign(SOAExcel); // 绑定数据 // 打开模板并生成最终的excel报表 SOACtrl.webOpen("doc/test.xls", 1, UserName, "Excel.Sheet"); 上述代码不但动态填充生成excel，而且在网页里直接显示生成的Excel给终端用户，由于使用了1打开模式，Excel是只读显示的。 读取excel单元格的代码也很简单： SOAOfficeX.ExcelRequest SOAExcel = new SOAOfficeX.ExcelRequest(); SOAOfficeX.IExcelReqSheet sheetOrder = SOAExcel.OpenSheet("销售订单"); SOAOfficeX.IExcelReqCell cell1; cell1 = sheetOrder.OpenCell("I5");//订单编码 string sOrderNum = cell1.Value;//cell1.Value就是读取的结果