1. vb封装excel
Sub Macro1() Sheets.Select Sheets.Copy End Sub
2. vb封装excel dll事件
如果熟悉LABVIEW或者有其他困难必须用LV，那就用这方法，但他生成DLL脱离不了环境，。
3. vb封装access
连接字符串：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;
4. vb封装exe
你是用excel自带的VBA编写的吧，可以下载一个VB6.0，把代码移植过去，就可发布.exe
5. vb封装dll
1、第一步新建项目
2、第二步,新建项目后,在窗体添加一个按钮Button和两个富文本框RichTextBox
3、第三步,VS->工具->NuGet包管理器->管理解决方案的NuGet 程序包->浏览->搜索（Newtonsoft）->安装第1个即可
4、第四步,在项目引用里面找到Newtonsoft引用然后把属性“复制到本地改为False”
5、第五步,在项目上面右击鼠标打开项目属性
6、第六步,在项目属性->资源->添加资源->添加现有文件；然后在项目目录packages->Newtonsoft.Json.13.0.1->lib->net45(根据项目框架选择)->Newtonsoft.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”:""},
{“id”:“f735e461-ca72-4b44-8d7b-cd97ac09802f”,“code”:“8147056167227050268”,“title”:“这个产品不怎么好，不好用”,“type”:“产品”,“status”:“未处理”,“datetime”:“2014-07-12T15:06:19.1”,“replycontent”:""},
{“id”:“15926d9d-f469-4921-b01d-4b48ef8bd93d”,“code”:“7141054273018032465”,“title”:“jdjbcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T01:03:46.477”,“replycontent”:""},
{“id”:“1debf78f-42b3-4037-b71f-34075eed92bc”,“code”:“4141051277003536211”,“title”:“jdjbxn.x”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:53:21.18”,“replycontent”:""},
{“id”:“27593c52-b327-4557-8106-b9156df53909”,“code”:“1143051276001357050”,“title”:“ghggghh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-27T00:35:05.933”,“replycontent”:""},
{“id”:“040198fc-b466-46c1-89d8-0514fbde9480”,“code”:“4142053251166372433”,“title”:“你好，你知道啦，我不喜欢白色浴缸”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-25T16:37:43.853”,“replycontent”:""},
{“id”:“16185418-d461-4e98-83c3-824eb7e344d6”,“code”:“4145058213013197148”,“title”:“hdjbchh”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-21T01:19:14.903”,“replycontent”:""},
{“id”:“6c043404-c1db-42e8-adeb-d4880fa7d1b5”,“code”:“0142051185128085372”,“title”:“ghhjdhd”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:08:37.997”,“replycontent”:""},
{“id”:“2dca1a38-a32b-4955-a99c-2ed7d6de60fa”,“code”:“3146050186122030382”,“title”:“hsibcn”,“type”:“服务”,“status”:“未处理”,“datetime”:“2014-05-18T12:03:38.913”,“replycontent”:""}]}
json格式化vb代码
''' <summary>
''' 格式化JSON字符串
''' </summary>
''' <param name="str"></param>
''' <returns></returns>
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 = serializer.Deserialize(jtr)
If obj IsNot Nothing Then
Dim textWriter As New StringWriter()
Dim jsonWriter As New JsonTextWriter(textWriter) With {
.Formatting = Formatting.Indented,
.Indentation = 4,
.IndentChar = " "c
}
serializer.Serialize(jsonWriter, obj)
Return textWriter.ToString()
Else
Return str
End If
End Function
8、第八步,加载资源中DLL代码重点来咯
Public Sub New()
''加载DLL到exe的事件
AddHandler AppDomain.CurrentDomain.AssemblyResolve, New ResolveEventHandler(AddressOf CurrentDomain_AssemblyResolve)
InitializeComponent()
End Sub
''' <summary>
''' 把DLL加载到EXE中
''' </summary>
''' <param name="sender"></param>
''' <param name="args"></param>
''' <returns></returns>
Private Function CurrentDomain_AssemblyResolve(sender As Object, args As ResolveEventArgs) As System.Reflection.Assembly
Dim dllName As String = If(args.Name.Contains(","), args.Name.Substring(0, args.Name.IndexOf(","c)), args.Name.Replace(".dll", ""))
dllName = dllName.Replace(".", "_")
If dllName.EndsWith("_resources") Then
Return Nothing
End If
Dim rm As New System.Resources.ResourceManager([GetType].Namespace & ".Resources", System.Reflection.Assembly.GetExecutingAssembly())
Dim bytes As Byte() = DirectCast(rm.GetObject(dllName), Byte())
Return System.Reflection.Assembly.Load(bytes)
End Function
9、完整实现代码
6. vb封装成exe文件
组建生成出来的扩展名为“.exe”的可执行程序；
7. vb封装成dll文件
VisualBasicEnvironmentInternationalResources。VB6CHS.DLL是VB的中文语言包的动态链接库文件
8. vb封装成dll文件字符串参数问题
1.对ActiveXDLL，如果该DLL由本地VB/VC生成就可直接在新的VB工程中引用，拷来的就需要先注册该DLL(记得是regsrv:)。
引用方法:
点击“工程”-〉“引用”找到后打勾就可在程序中直接调用其函数了。
2.其它非ActiveXDLL，如WINDOWSAPI函数，只要用Declare声明一下就可用了。
9. vb封装自定义函数
VB6.0与VB.net在语法上是相似的，VB.net是微软后续开发的编程语言，与VB6.0最大的区别是完全的面向对象，而VB6.0是属于面向过程的。VB6.0简单易用，但是微软已经在2008年宣布不再继续提供支持，是已经淘汰的编程语言了，但是对于非专业的程序员，依然可以在Win7上进行程序开发。Vb.net比起Vb6.0有以下优劣势：VB.NET是完全面向对象和后现代化的语言(JAVA独具的新概念) VB.NET是自由线程语言 VB.NET的运行速度比VB6要快 VB.NET从语法上来说更加紧凑和具有规律性 VB.NET开放了界面设计代码 VB.NET可以更好地集成微软的新产品和新技术 VB.NET拥有更加强大附属组件 VB.NET拥有移动开发的能力 VB.NET封装的类功能强大，不需要额外使用API VB.NET的开发环境更加紧密与集成化，与同类语言(如C#)连接更紧密 VB.NET目前还受到微软的更新和支持 VB.NET必须运行在.NET的虚拟机上 VB.NET要更加难学
- 相关评论
- 我要评论
-