vb.net怎么打包

[firstxiaoli]

初学vb.net，自己写了个程序，想让别人给测试一下，但是别的机器上没装vb.net，所以想打包传过去，写程序打包是必须的，所以请各位高手帮忙解决一下，说详细点，鄙人vb.net很烂

[ejoe313]

你看看这个网页：

VS2005项目的安装与布署

http://zehaobest.blog.sohu.com/76575786.html

[downmoon]

http://www.microsoft.com/china/technet/itsolutions/net/deploy/netdgv2.mspx

[铭鑫0813]

前提，你装了winrar，可以用下面的函数

Public Function zipFile(ByVal zipName As String, ByVal fileName As String, Optional ByVal containPath As Boolean = False) As Boolean
If (Not IO.File.Exists(fileName)) Then
MsgBox(fileName & " Don't Exist!!!")
Return False
End If

Try
Dim tmpCmd As String = getCmd()
Dim tmpInfo As String

If Not containPath Then
tmpInfo = " a -ep " & zipName & " " & fileName
Else
tmpInfo = " a " & zipName & " " & fileName
End If

the_StartInfo = New ProcessStartInfo
the_StartInfo.FileName = tmpCmd
the_StartInfo.Arguments = tmpInfo
the_StartInfo.WindowStyle = ProcessWindowStyle.Hidden

the_Process = New Process
the_Process.StartInfo = the_StartInfo
the_Process.Start()

Dim processCode As Integer

While Not the_Process.HasExited
'do nothing
End While

processCode = the_Process.ExitCode
the_Process.Close()

If processCode = 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function

Public Function getCmd() As String
Dim tmpObj As Object
Dim tmpString As String
Dim tmpRegister As RegistryKey

tmpRegister = Registry.ClassesRoot.OpenSubKey("Applications\WinRar.exe\Shell\Open\Command")
tmpObj = tmpRegister.GetValue("")
tmpString = tmpObj.ToString

tmpString = tmpString.Substring(1, tmpString.Length - 7)

tmpRegister.Close()

Return tmpString
End Function

[firstxiaoli]

都看不懂，我写的程序没有用到数据库，也没有报表，应该怎么处理

[htpower]

那就拿个袋子来装吧~说得够清楚的了

[xgchou]

找到发布菜单吧，很简单的。。。。