vb.net输出文件 vbnet fileopen

VB.net平台做出来的程序怎么打包成.exe文件？

将VB.Net程序打包成可执行的.exe程序 收藏 一).创建部署项目1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。3. 单击“确定”关闭对话框。4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。二).将 主程序 项目的输出添加到部署项目中1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。3. 单击“确定”关闭对话框。4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。三).创建安装程序类1. 在“文件”菜单上指向“新建”，然后选择“项目”。2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。3. 单击“打开”关闭对话框。4. 从“项目”菜单中选择“添加新项”。5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。6. 单击“确定”关闭对话框。7. 详细代码附后。四).创建自定义安装对话框1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。 3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库8. 选择 Edit1Label 属性并键入：数据库名称:9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA110. 选择 Edit1Value 属性并键入：dbservers11. 选择 Edit2Label 属性并键入：服务器名:12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA213. 选择 Edit2Value 属性并键入：(local)14. 选择 Edit3Label 属性并键入：用户名:15. 选择 Edit3Value 属性并键入：sa16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA317. 选择 Edit4Label 属性并键入：密码:18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA419. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true五).创建自定义操作1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。附:/targetdir="[TARGETDIR]\"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。

相关问答

Q1: vb.net怎么从文本文档中读取一行数据，将文本输出到控制台？

以下示例一次从文件中读取一行vb.net输出文件，然后将每行文本打印到控制台。

Sub ReadTextLinesFromFile()

Dim file As New System.IO.StreamReader("c:test.txt")

Dim oneLine As String

oneLine = file.ReadLine()

While (oneLine "")

Console.WriteLine(oneLine)

oneLine = file.ReadLine()

End While

file.Close()

End Sub

Q2: vb.net 输出 excel

这里有段VB6.0的，你可以参考。

注意添加引用。

Private Sub Command6_Click()

Dim i, j As Integer

Dim xlApplication As Excel.Application, xlWorkbook As Excel.Workbook, xlSheet

Dim xlApp As Excel.Application

On Error Resume Next

Set xlApplication = GetObject(, "Excel.Application")

Set xlApp = CreateObject("Excel.Application")

If MsgBox("确认将文件信息导出到EXCEL中？�", vbExclamation + vbYesNo, "警告") = vbYes Then

If Err.Number 0 Then Set xlApplication = CreateObject("Excel.Application")

Set xlWorkbook = xlApplication.Workbooks.Add

Set xlSheet = xlWorkbook.ActiveSheet

xlSheet.Cells(1, 2) = lblcl.Caption

xlSheet.Range("A1:E1").MergeCells = True

xlSheet.Range("A1:E1").HorizontalAlignment = xlCenter

xlSheet.Cells(2, 2).ColumnWidth = 18

For i = 1 To DataGrid1.Columns.Count

xlSheet.Cells(2, 1) = "编号"

xlSheet.Cells(2, i + 1) = DataGrid1.Columns(i).Caption

For j = 0 To DataGrid1.VisibleRows - 1

xlSheet.Cells(j + 3, 1) = j + 1

xlSheet.Cells(j + 3, i + 1) = DataGrid1.Columns(i).CellText(DataGrid1.RowBookmark(j))

Next j

Next i

xlApplication.Visible = True

Set xlSheet = Nothing

Set xlWorkbook = Nothing

Set xlApplication = Nothing

'xlApp.Range("A2:L2").Columns.Interior.ColorIndex = 40

'xlApp.Range("A2:L2").Borders.LineStyle = xlContinuous

'xlApp.Visible = True

'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Columns.Interior.ColorIndex = 40

'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Borders.LineStyle = xlContinuous

Else

MsgBox "无信息可供您导出，请确认!", vbExclamation + vbOKOnly, "警告"

End If

End Sub

Q3: vb.net控制台程序运行后，怎样将输出结果生成文件

首先执行Sub Main()

①定义两个变量a=45 b=18

②将a和b作为sum过程的两个参数x=45(按值传递)，y=18(按地址传递，将在过程中改变b的初始值)

③xy满足条件，将 x-y=45-18=27 赋值给x ；将 x+y=27+18=45 赋值给y，此时改变了b值为45.

④输出x的值27 y的值45

⑤输出a的值45 b的值45

Q4: VB.NET输出到Excel的问题

一、DCOM修复

1.运行：mmc comexp.msc /32，找到我的电脑 - DCom配置中的Microsoft Excel Application

2.在Microsoft Excel Application上点击右键，选择"属性"

3.点击"标识"标签,选择"交互式用户"

4.点击"安全"标签,在"启动和激活权限"上点击"自定义",然后点击对应的"编辑"按钮,在弹出的"安全性"对话框中填加一个"NETWORK SERVICE"用户(注意要选择本计算机名),并给它赋予"本地启动"和"本地激活"权限.

5.依然是"安全"标签,在"访问权限"上点击"自定义",然后点击"编辑",在弹出的"安全性"对话框中也填加一个"NETWORK SERVICE"用户,然后赋予"本地访问"权限.

二、如果找不到Microsoft Excel 应用程序

1、进行OFFICE菜单中的组件重注册

2、如果仍未解决问题，点 开始--运行--输入EXCEL文件所在的路径 “c:\program files\exel.exe” /regserver 进行修复注册

参考：

Q5: VB.NET怎么输出指定字符串文本文件

Dim strFilePath As String =SaveFileDialog1.FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath， True） 'true是指以追加的方式打开指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

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