只要同一个项目里的 就可以调用类里的public属性和方法,类等
创新互联建站主营明溪网站建设的网络公司,主营网站建设方案,成都App定制开发,明溪h5微信平台小程序开发搭建,明溪网站营销推广欢迎明溪等地区企业咨询
你应该先建立一个项目,然后在这个项目里添加新类文件,这些类文件之间可以相互调用
在继承类中添加了空的事件过程,估计也会调用基类事件过程的,也就是两个事件过程都会被调用。可以试试在继承类构造函数中用 RemoveHandler 语句能不能撤销基类的事件过程的绑定。
另外一般的过程可以用override关键字隐藏基类的同名方法,比如基类调用的方法被继承类override重写后,就会调用继承类的方法了。所以可以把事件处理代码放在一普通过程中,由事件过程调用,这样继承类可以用空的同名方法覆盖基类方法了。
如上面所说,你可能还不太了解类、函数等的作用。
类可以用来封装一系列操作,或者是一类对象的特性。像上面的描述,有可能是滥用类了。
建议你这样,弄一个专门的运算类,里面有四个运算的函数,比如:
Class 运算
Shared Function 加(ByVal 加数1 As Decimal, ByVal 加数2 As Decimal) As Decimal
'举个例子
Return 加数1 + 加数2 '百度打不出英文加号,你自己改一下
Exit Function
End Function
Shared Function 减(ByVal 被减数 As Decimal, ByVal 减数 As Decimal) As Decimal
'举个例子
Return 被减数 - 减数
Exit Function
End Function
End Class
上面我写了两个例子,你可以照抄然后自己写乘除的,总之不要滥用类就行。
PS:Shared函数的使用不需要类被实例化,可以直接这样使用:
Msgbox(运算.加(1,2).ToString)
你会发现“运算”是蓝色的
你可以将C#写的类输出为库文件,就是dll文件,然后用VB.net直接调用就可以了。因为C#生成库的时候会被编译成IL,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
四、测试截图如下