vs如何打包exe文件
vs的exe程序运行不了？
vs的exe程序运行不了？
1、运行不了的原因是故障问题。解决方法：针对出错事件，检查代码逻辑是否有问题，这个是首先要做的，特别是里面的判断和返回。
2、用VS打开项目，在要修改的项目名称上单击鼠标右键，选择“属性”在弹出的属性对话框中，单击“生成”菜单，进行生成相关属性设置。
3、找到“目标平台”选择“X86”。这个就是以为着生成32位的应用程序。
如何用vs播放视频文件？
电脑上直接双击exe文件就会自己播放了，如果你是想把它放到手机之类不支持exe格式的地方播放的话，可以用屏幕录像专家之类的录制成WMV或者MP4格式的再传过去播放。
vs2015企业版安装配置和使用？
Visual Studio 2015 下载完成之后，会有一个名为“_”的光盘镜像文件。
光盘镜像文件
将光盘镜像文件在虚拟光驱中加载之后，可以打开查看光盘内容。
安装文件
双击“vs_professional.exe”可以开始进入软件安装界面。
初始化安装
在安装过程中，可以选择安装位置，然后可以按默认值安装也可以自定义安装，这里我们选择自定义安装。
自定义安装
由于我们主要基于C 进行开发，因此选择了“Visual C ”选项，你可以根据自己的需要进行选择。
选择功能
确认自定义选择的功能项正确，并确保安装盘有足够的空间后，点击“安装”按钮可以开始安装。
选定功能确认
现在，只需要静静地等待它安装，这个安装过程比较耗时间，在此期间可以先去做一些其它的工作。
正在安装
经过比较长一段时间的安装之后，会提示安装完成，当启动软件时会提示登录，这里点击“以后再说”跳过即可。
安装完成
第一次启动会要求选择开发环境，我们这里选择“Visual C ”环境，你可以根据实际需要进行选择。
开发设置
开发环境配置
Visual Studio 2015 启动之后，会进行初始界面。
软件界面
现在，整个Visual Studio 2015就安装完成了，你可以通过新建项目开始你的开发工作。
vb引用dll文件如何打包？
1、第一步新建项目
2、第二步,新建项目后,在窗体添加一个按钮Button和两个富文本框RichTextBox
3、第三步,VS-gt工具-gtNuGet包管理器-gt管理解决方案的NuGet 程序包-gt浏览-gt搜索（Newtonsoft）-gt安装第1个即可
4、第四步,在项目引用里面找到Newtonsoft引用然后把属性“复制到本地改为False”
5、第五步,在项目上面右击鼠标打开项目属性
6、第六步,在项目属性-gt资源-gt添加资源-gt添加现有文件；然后在项目目录packages-gtNewtonsoft.Json.13.0.1-gtlib-gtnet45(根据项目框架选择)-gtNewtonsoft.Json.dll选择对应的dll文件添加到资源里面
7、第七步,编写测试代码
添加要格式化的json字符串
{“status”:1,“totalcount”:2,“list”:[{“id”:“2305b1e2-4e31-4fd3-8eb6-db57641914df”,“code”:“8147056167227050270”,“title”:“testing”,“type”:“产品”,“status”:“已处理”,“datetime”:“2014-07-12T21:16:46”,“replycontent”:“好的，只是测试”},
{“id”:“3a6546f6-49a7-4a17-b679-b3812b12b27e”,“code”:“8147056167227050269”,“title”:“我建议龙头有多种选配方式”,“type”:“产品”,“status”:“未处理”,“datetime”:“2014-07-12T18:49:08.933”,“replycontent”:#34#34},
{“id”:“f735e461-ca72-4b44-8d7b-cd97ac09802f”,“code”:“8147056167227050268”,“title”:“这个产品不怎么好，不好用”,“type”:“产品”,“status”:“未处理”,“datetime”:“2014-07-12T15:06:19.1”,“replycontent”:#34#34},
{“id”:“15926d9d-f469-4921-b01d-4b48ef8bd93d”,“code”:“7141054273018032465”,“title”:“jdjbcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T01:03:46.477”,“replycontent”:#34#34},
{“id”:“1debf78f-42b3-4037-b71f-34075eed92bc”,“code”:“4141051277003536211”,“title”:“jdjbxn.x”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:53:21.18”,“replycontent”:#34#34},
{“id”:“27593c52-b327-4557-8106-b9156df53909”,“code”:“1143051276001357050”,“title”:“ghggghh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:35:05.933”,“replycontent”:#34#34},
{“id”:“040198fc-b466-46c1-89d8-0514fbde9480”,“code”:“4142053251166372433”,“title”:“你好，你知道啦，我不喜欢白色浴缸”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-25T16:37:43.853”,“replycontent”:#34#34},
{“id”:“16185418-d461-4e98-83c3-824eb7e344d6”,“code”:“4145058213013197148”,“title”:“hdjbchh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-21T01:19:14.903”,“replycontent”:#34#34},
{“id”:“6c043404-c1db-42e8-adeb-d4880fa7d1b5”,“code”:“0142051185128085372”,“title”:“ghhjdhd”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:08:37.997”,“replycontent”:#34#34},
{“id”:“2dca1a38-a32b-4955-a99c-2ed7d6de60fa”,“code”:“3146050186122030382”,“title”:“hsibcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:03:38.913”,“replycontent”:#34#34}]}
json格式化vb代码
#39#39#39 ltsummarygt
#39#39#39 格式化JSON字符串
#39#39#39 lt/summarygt
#39#39#39 ltparam name#34str#34gtlt/paramgt
#39#39#39 ltreturnsgtlt/returnsgt
Private Function ConvertJsonString(str As String) As String
Dim serializer As New JsonSerializer()
Dim tr As TextReader New StringReader(str)
Dim jtr As New JsonTextReader(tr)
Dim obj As Object (jtr)
If obj IsNot Nothing Then
Dim textWriter As New StringWriter()
Dim jsonWriter As New JsonTextWriter(textWriter) With {
.Formatting ,
.Indentation 4,
.IndentChar #34 #34c
}
(jsonWriter, obj)
Return ()
Else
Return str
End If
End Function
8、第八步,加载资源中DLL代码重点来咯
Public Sub New()
#39#39加载DLL到exe的事件
AddHandler , New ResolveEventHandler(AddressOf CurrentDomain_AssemblyResolve)
InitializeComponent()
End Sub
#39#39#39 ltsummarygt
#39#39#39 把DLL加载到EXE中
#39#39#39 lt/summarygt
#39#39#39 ltparam name#34sender#34gtlt/paramgt
#39#39#39 ltparam name#34args#34gtlt/paramgt
#39#39#39 ltreturnsgtlt/returnsgt
Private Function CurrentDomain_AssemblyResolve(sender As Object, args As ResolveEventArgs) As
Dim dllName As String If((#34,#34), (0, (#34,#34c)), (#34.dll#34, #34#34))
dllName (#34.#34, #34_#34)
If dllName.EndsWith(#34_resources#34) Then
Return Nothing
End If
Dim rm As New ([GetType].Namespace amp ##34, ())
Dim bytes As Byte() DirectCast((dllName), Byte())
Return (bytes)
End Function
9、完整实现代码