锐客网

  1. 首页 > 生活百科 > it技术 > >

关于.net用vb的信息

IT技术代码

用VB.NET编程有什么好处?vb.net是基于.NET框架的完全对向对象的编程语言 ， 而vb 6.0只是半面向对象的语言，使用vb.net可以编制出功能更加强大的windows程序 。现在，我们把vb.net和vb 6.0做一下比较，看看vb.net对比vb 6.0有着什么样的特性和优点 。1.在vb 6.0中 ， 创建对象的时候 ， 需要等这个对象创建完毕后，再另外调用一个独立的方法对其进行初始化 。在vb.net中 ，  可以利用构造函数为对象赋初值，这样就不需要进行烦琐的调用赋初值.net用vb了 。构造函数的使用，简化了编码的过程和出错的机会 。2.vb.net编写线程的能力比vb 6.0有很大的增强 。3.在vb 6.0中，需要首先声明一个变量，然后才能对其赋值，这样就需要写两行代码 。在vb.net中，可以 使用初始化函数将这两个步骤合并在一行代码中完成，这个似乎微小的改进，提供了更少、更简单、更易于维护的代码 。4.vb.net基于.NET框架，开发者可以快速的可视化开发网络应用程序、网络服务、Windows应用程序和服务器端组件 。5.因为vb.net是基于.NET框架的，可以与其它.NET语言协同工作 。6.在vb.net中，通过Web窗体及ADO.NET，开发者可以快速开发可扩展的Web站点 。如果.net用vb你能进一步学习vb.net,你会发现更多的新特性和优点 。
用vb.net 怎样建立一个mdb数据库及一张表首先在项目.net用vb的VB.NET界面.net用vb，使用菜单【项目】--【添加引用】--【COM】
选择Microsoft ADO Ext. 2.x for DDL and Security
然后单击【确定】，完成引用 。
完整代码如下：
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建空的access数据库文件--数据库文件.mdb，密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table'定义新表
MyTable.Name = "实验数据表"'表命名
'给表“实验数据表” 创建一个字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段，字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)'追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class
如何使用VB.NET中可选参数调用方法VB.NET可选参数的默认值必须是一个常数表达式 。
过程定义中跟在可选参数后的每个参数也都必须是可选的 。
下面的语法显示带VB.NET可选参数的过程声明：
Sub sub name（ByVal parameter 1 As data type 1,
Optional ByVal parameter 2 As data type 2 = default value）
调用带VB.NET可选参数的过程
过程在运行时无法检测到给定的参数是否已被省略，或者调用代码是否已显式提供默认值 。如果需要弄清楚这一点，可以设置一个不可能的值作为默认值 。下面的过程定义了可选参数 office,并测试其默认值 QJZ 以查看它在调用中是否已被省略：
Visual Basic
Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）
If office = "QJZ" Then
Debug.WriteLine（"office not supplied -- using Headquarters"）
office = "Headquarters" End If
' Insert code to notify headquarters or specified office.
End Sub

推荐阅读


上一篇：做新媒体现状如何描述呢，新媒体现状与趋势

下一篇：快手直播有游戏声音吗，快手直播没有游戏声