VB声明net函数库 vb函数代码

在vb.net中如何定义staticextern函数

在vb.net中定义staticextern函数：用static声明的局部变量。static是C++中常用的修饰符，它被用来控制变量的存贮方式和可见性。extern，C是使C++能够调用C写作的库文件的一个手段。

成都创新互联公司专业为企业提供商丘网站建设、商丘做网站、商丘网站设计、商丘网站制作等企业网站建设、网页设计与制作、商丘企业网站模板建站服务，10年商丘做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

vb在模块中声明函数

一、在VB中声明API函数有两种方法：如果我们只在某个窗体中使用API函数，我们可以在窗体代码的General部分声明它：

声明的语法是：

Private Declare Function ...

Private Declare Sub.....

这里必须采用Private声明，因为这个API函数只能被一个窗体内的程序所调用。

如果我们的程序有多个窗体构成，而且我们需要在多个窗体中使用同一个API函数，就需要在模块中声明了。

先添加一个模块，

然后采用如下语法声明：

Public Declare Function....

Public Declare Sub....

Public声明的含义是把API函数作为一个公共函数或过程，在一个工程中的任何位置都能直接调用它。 声明完毕我们就能在程序中使用此API函数了。

二、可采用以下几种方式使用API函数，以SetWindowPos函数为例：

忽略函数返回值的调用：

SetWindowPos Form1.hWnd, -2 ,0 ,0 ,0, 0, 3

注意此时函数的参数是不加括号的。

Call方法调用：

Call SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)

注意这里需要加上括号，但我们不取回函数的返回值。

取得函数返回值的调用：

MyLng = SetWindowPos(Form1.hWnd, -2, 0, 0, 0, 3)

此时需要加上括号，而且我们必须事先定义一个变量来存储API函数的返回值。

三、几个问题的说明：

声明中的Lib 和 Alias 是怎么回事

一般情况下WIN32API函数总是包含在WINDOWS系统自带的或是其它公司提供的动态连接库DLL中，而Declare语句中的Lib关键字就用来指定DLL文件的路径，这样VB才能找到这个DLL文件，然后才能使用其中的API函数。如果我们只是列出DLL文件名而不指出其完整的路径的话，VB会自动到.EXE文件所在目录、当前工作目录、WINDOWS\SYSTEM目录、WINDOWS目录下搜寻这个DLL文件。所以如果所要使用DLL文件不在上述几个目录下的话，我们应该指明其完整路径。

Alias用于指定API函数的别名，如果我们调用的API函数要使用字符串的话，Alias关键字是必须的。这是因为在ANSI和Unicode字符集中同一API函数的名称可能是不一样的，为了保证不出现声明错误，我们使用Alias关键字指出API函数的别名，一般来说在WIN9X平台下我们把API函数名后加一个大写A作为别名即可。

常见的API参数类型的说明

API函数的参数中最常见的是长整Long型数据类型，例如API中的句柄、一些特定的常量、函数的返回值都是此类型 的值；另外几种常见的参数类型有：整型Integer、Byte型、String型等。

声明中的ByVal是作什么用的

这跟VB的参数传递方式有关，在默认情况下VB是通过地址传递方式传递函数的参数、而有些API函数要求必须采用传值方式来传递函数参数。这样就会发生错误，解决的办法是在API函数参数声明的前面加上ByVal关键字，这样VB就采用传值方式传递参数了。

怎样得到完整的API函数声明

VB自带了API文本查看器API TEXT VIEWER，我们可以在其中找到API函数的完整声明，然后把它粘贴到程序中即可。

原来上午的成功了！但取不到秒数位。

VB.NET中如何声明RegisterActiveObject函数

提示的意思是说你声明的这个函数在DLL库中的访问级别是Friend级，也就是说此函数只准许DLL内部的对象进行访问。而不直接外面声明调用！

vb.net 数据库更新函数

我猜测，access中，sno是int类型。

你把where [sno]='" User "'" 中的单引号去掉试试。

where [sno]="User

--------

sno[数字]

update [Students] set [password]='password' where [sno]=1

sno[字符]

update [Students] set [password]='password' where [sno]='sno'

你在实际中多试试吧，我都不爱用access。

记得以前更新字段的时候，老是没反映。

isread(smallint)

update [Table] set isread='1' where id=1

居然更新不了。

VB.NET自定义函数

很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function