锐客网

  1. 首页 > 睿知 > it技术 > >

自定义方法vb.net 自定义方法创建用户组

IT技术return

VB.NET中后面接用户自定义方法是什么意思你该贴一下代码的 。
是不等于号
你说的这个用户自定义的方法有可能是function修饰的有返回值的方法
他有可能返回数字自定义方法vb.net，字符串自定义方法vb.net，boolean等等
这个时候就可以用变量去跟方法返回值进行比较
比如 方法返回1
那么
Dim a as integer =2
Public Function returnb () as Integer
return 1
End function
Ifareturnb 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
【自定义方法vb.net 自定义方法创建用户组】关于自定义方法vb.net和自定义方法创建用户组的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：老年人看电视买什么电视，老年人在家看电视用什么方便

    下一篇：电脑版快手直播带货，快手电脑上架直播间商品