vb.net如何调用模块,vb类模块应用实例

vb模块调用

VB中调用子程序时参数不要用括号括起，如

创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站制作、成都网站建设、博野网络推广、小程序制作、博野网络营销、博野企业策划、博野品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供博野建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

mysub

而函数参数需用括号括起，如

value

myfunc

(a,

如果你不需要函数的返回值，可以当作子程序调用，如

Call

myfunc

(a,

vb.net 连接sql数据库模块,如何使用？

比如有个asp.net(vb.net)连接sql server 2000数据库的连接模块(module)：

Module MdlCommon

Public txtSQL As String '存放SQL语句

Public DBSet As DataSet '查询得到的记录集

Public ErrorMsg As String '存放错误信息

Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet

Dim cnn As SqlClient.SqlConnection

Dim cmd As New SqlClient.SqlCommand()

Dim adpt As SqlClient.SqlDataAdapter

Dim rst As New DataSet()

Dim SplitSQL() As String

errMsg = ""

Try

SplitSQL = Split(strSQL)

cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")

If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then

cmd.Connection = cnn

cmd.Connection.Open()

cmd.CommandText = strSQL

cmd.ExecuteNonQuery()

Else

adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)

adpt.Fill(rst)

ExecuteSQL = rst

End If

Catch ex As Exception

errMsg = ex.Message

Finally

rst = Nothing

cnn = Nothing

End Try

End Function End Module

调用时在asp.net后台写上txtSQL="SELECT * FROM user";

DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。

在VB中,如何调用模块呀?

Dim a as

New Module名

类模块和标准模块的不同点在于存储数据方法的不同。标准模块的数据只有一个备份。这意味着标准模块中一个公共变量的值改变以后，在后面的程序中再读取该变量时，它将得到同一个值。

而类模块的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。

同样的，标准模块中的数据在程序作用域内存在，也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的撤消而消失。

最后，当变量在标准模块中声明为 Public 时，则它在工程中任何地方都是可见的；而类模块中的 Public 变量，只有当对象变量含有对某一类实例的引用时才能访问

这个是复制MSDN上的，希望对你有帮助

VB.NET怎么调用其它模块的过程？

调用过程，调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关。下面说明如何调用 Sub 过程和 Function 过程。

调用 Sub 过程

与 Sub 过程不同，在表达式中，Sub 过程不能用其名字调用。调用 Sub 过程的是一个独立的语句。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与 Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。

调用 Sub 过程有两种方法：

'以下两个语句都调用了名为 MyProc 的 Sub 过程。

Call MyProc (FirstArgument, SecondArgument)

MyProc FirstArgument, SecondArgument

注意，当使用 Call 语法时，参数必须在括号内。若省略 Call 关键字，则也必须省略参数两边的括号

调用函数过程

通常，调用自行编写的函数过程的方法和调用 Visual Basic 内部函数过程（例如 Abs）的方法一样；即在表达式中写上它的名字。

'下面的语句都调用函数 ToDec。

Print 10 * ToDec

X = ToDec

If ToDec = 10 Then Debug.Print "Out of Range"

X = AnotherFunction ( 10 * ToDec)

就像调用 Sub 过程那样，也能调用函数。下面的语句都调用同一个函数：

Call Year (Now)

Year Now

当用这种方法调用函数时，Visual Basic 放弃返回值。

调用其它模块中的过程

在工程中的任何地方都能调用其它模块中的公用过程。可能需要指定这样的模块，它包含正在调用的过程。调用其它模块中的过程的各种技巧，取决于该过程是在窗体模块中、类模块中还是标准模块中。

窗体中的过程

所有窗体模块的外部调用必须指向包含此过程的窗体模块。如果在窗体模块 Form1 包含 SomeSub 过程，则可使用下面的语句调用 Form1 中的过程：

Call Form1.SomeSub(arguments)

类模块中的过程

与窗体中调用过程类似，在类模块中调用过程要调用与过程一致并且指向类实例的变量。例如，DemoClass 是类 Class1 的实例：

Dim DemoClass as New Class1

DemoClass.SomeSub

但是不同于窗体的是，在引用一个类的实例时，不能用类名作限定符。必须首先声明类的实例为对象变量（在这个例子中是 DemoClass ）并用变量名引用它。

标准模块中的过程

如果过程名是唯一的，则不必在调用时加模块名。无论是在模块内，还是在模块外调用，结果总会引用这个唯一过程。如果过程仅出现在一个地方，这个过程就是唯一的。

如果两个以上的模块都包含同名的过程，那就有必要用模块名来限定了。在同一模块内调用一个公共过程就会运行该模块内的过程。例如，对于 Module1 和 Module2 中名为 CommonName 的过程，从 Module2 中调用 CommonName 则运行 Module2 中的 CommonName 过程，而不是 Module1 中的 CommonName 过程。

从其它模块调用公共过程名时必须指定那个模块。例如，若在 Module1 中调用 Module2 中的 CommonName 过程，要用下面的语句：

Module2.CommonName (arguments)

Public 用于声明对所有模块中的所有其它过程都可以使用的过程。

Private 用于声明只能在包含该声明的模块中使用的过程。

关于VB中模块调用

1、调用模块一般是指调用工程中模块内的函数，只要模块内有这个函数就可以直接使用它。例如，模块内有函数Public Function sql_execute(strsql As String) As Boolean

Dim conn As New ADODB.Connection

Set conn = CreateObject("adodb.connection")

conn.Provider = "Microsoft.Jet.OLEDB.4.0"

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\编程狂.mdb;Jet OLEDB:Database Password=260701"

conn.Execute (strsql)

conn.Close

sql_execute = True

End Function在执行SQL时，就可以直接使用VarSource = "select max(干部编号) from tb_basic "If sql_execute(VarSource) = True Then

MsgBox "保存成功！", , "提示窗口"

End If2、call是调用本模块内的函数或过程，例如Call Command1_Click

vb.net中如何在窗体中调用模块

将模块中的过程写为Public,在调用

比如模块中:

Public Sub text()

......

End Sub

主窗体调用代码:

Call text()

当前文章：vb.net如何调用模块,vb类模块应用实例
网站链接：https://www.cdcxhl.com/article2/dsephic.html

成都网站建设公司_创新互联，为您提供网站改版、软件开发、定制网站、网站维护、企业网站制作、服务器托管

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容