自定义方法vb.net,如何自定义

VB.NET中后面接用户自定义方法是什么意思

你该贴一下代码的。

创新互联专业为企业提供翔安网站建设、翔安做网站、翔安网站设计、翔安网站制作等企业网站建设、网页设计与制作、翔安企业网站模板建站服务，十载翔安做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

是不等于号

你说的这个用户自定义的方法有可能是function修饰的有返回值的方法

他有可能返回数字，字符串，boolean等等

这个时候就可以用变量去跟方法返回值进行比较

比如 方法返回1

那么

Dim a as integer =2

Public Function returnb () as Integer

return 1

End function

If a returnb Then

Console.write("不相等")

End If

vb.net 如何能获取到 自定义函数的代码内容

首先新建一个类库项目，把你的代码以类（需要实例）或模块（静态）的形式封装好，生成过后在输出目录（bin/debug或bin/release）里面会有个项目名.dll文件，就是它了。

在调用方项目里，右键解决方案资源管理器中的引用，添加引用，浏览到你的dll文件。接着到你的代码中，代码最上面写：

Imports 项目名

然后调用这个类或模块即可。

根据你的情况，可能用模块封装更适合一些。比如：

Public Module MatrixSolve

Public Function Solve(para1 As Double,para2 As Double) As Double

'一些代码

Return result

End Function

End Module

调用起来只要这样即可：

Dim num As Double = MatrixSolve.Solve(x,y)

注意模块和函数的访问级别都用Public，否则外面无法访问。

在vb.net中怎么调用自定义类？

代码已测试。

一、测试需要的INI文件。名称为“setinfo.ini”，存放路径为你解决方案里“Bin“文件夹的”Debug“文件夹里。

内容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的类。新建一个类，类中内容为：

Public Class Class1

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _

( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Int32, _

ByVal lpFileName As String _

) As Int32

End Class

三、界面代码：

Imports System.IO 'for path

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

getINI()

End Sub

Private Sub getINI()

Dim iniclass As New Class1 '

Dim myBf As String 'get set_info 开辟存储的内存

myBf = New String(CChar(""), 256)

Dim myFN As String '配置文件的文件路径

myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")

Dim myAN As String 'Application_NAME,也是Section名称

myAN = Me.TextBox1.Text

Dim myKN As String 'KEY_NAME,关键字名称

myKN = Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作

TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要

End Sub

End Class

四、测试截图如下

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