189 8069 5689
VB.NET可选参数的默认值必须是一个常数表达式。
创新互联建站长期为上千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为苍梧企业提供专业的成都网站制作、成都网站设计，苍梧网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
过程定义中跟在可选参数后的每个参数也都必须是可选的。
下面的语法显示带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
如果可选参数是像 String 这样的引用类型，只要它不是该变量所预期的值，就可以使用 Nothing 作为默认值。
VB.NET可选参数和重载
定义带可选参数的过程的另一种方法是使用重载。如果有一个可选参数，可以定义过程的两个重载版本，一个接受此参数，另一个则不带参数。此方法随可选参数数目的增加而变得更复杂。然而，这样做的优点是可以完全确定调用程序是否提供了每个VB.NET可选参数。
1. Shared Function System.Runtime.
InteropServices.DLLimport("user32.dll")
2. MessageBoxA(ByVal hwnd As Integer,
ByVal text As String, ByVal
lpcaption As String, ByVal
wtype As Integer) As Integer
3. End Function
首先integer被作为32位数据替代了long(long是64位)
System是Net语言中的一个族，System.Runtime.InteropServices是system中的一个类。System.Runtime.InteropServices.DLLimpor是其中的一个方法。调用DLL的API
接口，这个的意思就是vb6的lib"user32", share是共享的意思，例如：
1. Public Class classA
2. Shared Function System.Runtime.
InteropServices.DLLimport("user32.dll")
MessageBoxA(ByVal h As Integer,
ByVal m As String, ByVal c As
String, ByVal type As Integer) As Integer
3. End Function
4. End Class
你可以这样调用 classA.MessageboxA 但是如果没有这个share 在class后打点就没有MessageboxA的成员出现了 ，现在你就象以前一样的使用他吧。
其实上面这个VB.NET函数调用方法并不正确，我们仍旧要使用API声明，只是换了一各形式
如果你认为这就是VB.NET就错了，看看这个：
system.WinForms.MessageBox.Show("对话内容写在这里", "标题写在这里", messagebox.OK BitOr messagebox.IconAsterisk)
这就是面向对象，你已经完成了所有的任务。不需要任何的API声明。不需要写多余的代码。
1. messagebox.IconAsterisk=惊叹号图标
2. messagebox.IconError=错误图标
3. messagebox.IconExclamation=警告图标
4. messagebox.IconHand=错误图标
5. messagebox.IconInformation=提示图标
所经点NET就是打点到达，在族后面打点，在类后面打点，在对象后面打点。第二个问题就是类与类之间相互的关系，Net在网上处理人与人的关系，在程序语言中处理类与类的关系。倒底是加不加share,倒底是类后面打点,还是Dim成一个对象（把他当一个变量吧）再说，是等于class,还是New class.是dim xxx as class=new class 还是dim xxx as new class
就是这样VB.NET函数调用将更简单，不须要研究一些很难的东西。
一般的VBS程序都是可以写在VB程序里面的 只需要稍加变化 加上些关键字 或者数据类型
如果 你想调用一个VBS程序 也可以使用Shell的方法
可以的。
VB6所产生的DLL全都都是标准COM组件，只需要注册一下就可以引用了。
Sub过程实现：
Sub FactsSub(ByVal intN As Integer, ByRef result As Long)
Dim i As Integer
Dim lngResult As Long
lngResult = 1
For i = 1 To intN
lngResult *= i
Next
result = lngResult
End Sub
Private Sub btnSub_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click
Dim i As Integer
Dim sum As Long = 0
Dim result As Long
For i = 1 To 10
FactsSub(i, result)
sum += result
Next
MsgBox("过程实现 1! + 2! + 3! + … + 10! = " sum)
End Sub
Function函数实现:
Function FactsFunction(ByVal intN As Integer) As Long
Dim i As Integer
Dim lngResult As Long
lngResult = 1
For i = 1 To intN
lngResult *= i
Next
Return lngResult
End Function
Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click
Dim i As Integer
Dim sum As Long = 0
For i = 1 To 10
sum += FactsFunction(i)
Next
MsgBox("函数实现 1! + 2! + 3! + … + 10! = " sum)
End Sub