首先新建一个类库项目,把你的代码以类（需要实例）或模块（静态）的形式封装好,生成过后在输出目录（bin/debug或bin/release）里面会有个项目名.dll文件,就是它了.
在调用方项目里,右键解决方案资源管理器中的引用,添加引用,浏览到你的dll文件.接着到你的代码中,代码最上面写：
Imports 项目名
然后调用这个类或模块即可.
根据你的情况,可能用模块封装更适合一些.比如：
Public Module MatrixSolve
'一些代码
Return result
End Function
End Module
调用起来只要这样即可：
Dim num As Double = MatrixSolve.Solve(x,y)
注意模块和函数的访问级别都用Public,否则外面无法访问.
这个一般是一个Form类的构造函数.
MyBase.New ( )是调用父类的构造函数,InitializeComponent ( )是调用自己的InitializeComponent 方法.一般你在VS里拖界面,VS会自动帮你生成这个方法的实现,里面是用代码实现你拖出来的界面布局.
当然可以的,需要System.Runtime.InteropServices?命名空间中的?Marshal?类
Imports?System.Runtime.InteropServices?'这里一定要有?
Public?Class?Form1
Public?Structure?m_Point
Dim?x?As?Integer
Dim?y?As?Integer
End?Structure
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?pi?As?IntPtr?=?GCHandle.Alloc(i,?GCHandleType.Pinned).AddrOfPinnedObject()?'取得整形变量的指针?
Dim?pai?As?IntPtr?=?GCHandle.Alloc(ai,?GCHandleType.Pinned).AddrOfPinnedObject()?'取得整形数组首地址指针
'-----下面是结构--------------------------
Dim?m_p?As?New?m_Point
m_p.x?=?100
Dim?pm_p?As?IntPtr?=?GCHandle.Alloc(m_p,?GCHandleType.Pinned).AddrOfPinnedObject()?'取得结构首地址指针?
End?Sub
End?Class
可以像这样,返回变量的值.
Visual Basic code
Public Function number() As Single '你在这已经设置了函数返回值的类型
Dim nJTTZ As Single = 1
return nJTTZ '返回变量的值
Public Function Index() As Single
Dim zJTTZ As Single = 1
return zJTTZ
Public Overloads Function CalcAmount() As Boolean
AddItemRow("", "第一部分：静态投资", "正线公里", number(), Index()) '调用函数即得到返回的变量值.
代码已测试.
第一段：测试需要的INI文件.名称为"setinfo.ini",存放路径为你解决方案里"Bin"文件夹的"Debug"文件夹里.
内容：
[Location]
pnlTime.Location.Y=0
[TopMost]
Top=True
第二段：操作INI文件的类.新建一个类,类中内容为：
Public?Class?Class1
(?_
ByVal?lpApplicationName?As?String,?_
ByVal?lpKeyName?As?String,?_
ByVal?lpDefault?As?String,?_
ByVal?lpReturnedString?As?String,?_
ByVal?lpFileName?As?String?_
第三段：界面代码：
Imports?System.IO?'for?path
getINI()
Private?Sub?getINI()
Dim?iniclass?As?New?Class1?'
Dim?myBf?As?String?'get?set_info?开辟存储的内存
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,关键字名称
Class1.GetPrivateProfileString(myAN,?myKN,?"",?myBf,?myBf.Length,?myFN)?'调用读取INI文件的操作
第四段：测试截图如下
如上面所说,你可能还不太了解类、函数等的作用.
类可以用来封装一系列操作,或者是一类对象的特性.像上面的描述,有可能是滥用类了.
建议你这样,弄一个专门的运算类,里面有四个运算的函数,比如：
Class 运算
'举个例子
Exit Function
Shared Function 减(ByVal 被减数 As Decimal, ByVal 减数 As Decimal) As Decimal
Return 被减数 - 减数
End Class
上面我写了两个例子,你可以照抄然后自己写乘除的,都说到这里了大家应该明白不要滥用类就行.
PS：Shared函数的使用不需要类被实例化,可以直接这样使用：
你会发现"运算"是蓝色的
以上就是土嘎嘎小编为大家整理的获取类函数vb.net相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！