锐客网

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

vb.net添加已有的类 vbnet listview中添加一行

IT技术升到

vb.net 如何在一个项目中创建类，并且使用他?在任意form类或模块中都可以创建类，跟建立函数和过程一样 。
示例vb.net添加已有的类：
public class form1
‘创建一个属于formvb.net添加已有的类的子类，名称为【类名】 。
public class 类名
’定义类成员text
public text as string
end class
‘定义一个【类名】类的公共变量 。
dim 类名1 as 类名
’定义一个过程，使用【类名】类的text成员
public sub 过程
‘实例化【类名1】
类名1=new 类名
类名1.text=“赋值”
’定义一个【新类】类的私用变量，并实例化 。
dim 新类1 as new 新类
新类1.name=“一个字符串”
新类1.age=12
end sub
end class
‘’‘创建一个与form同级的类 ， 名称为【新类】
public class 新类
public sub new（）
end sub
public name as string
public age as integer
end class
在模块中使用：
public class module1
dim a asnew form1.类名
end module
vb.net中怎么使用createobject添加类呢，就好像vb中一样应该是一样的，createobject（“”）
不过你还是要添加引用的，否则那个调用对象是不行的 。
建议你还是引用的好 ， 这样容易查错，object对象无法继承，所以就没有下拉菜单的索引帮助 。这样往往运行时才会引发错误，且这种错误不方便查询定位 。
vb.net怎么添加类模块：相当于全局级变量 。
类：可以实例化，继承等 。
对于你这样的初学者来说，可以视作 模块变量=类的public shared变量 。
最好的方法是：项目-添加-类-粘贴代码 。
在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添加已有的类 vbnet listview中添加一行】vb.net添加已有的类的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容 ， 更多关于vbnet listview中添加一行、vb.net添加已有的类的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：电脑音响怎么用蓝牙传输，电脑音响怎么用蓝牙传输到手机

    下一篇：开发有游戏，开发游戏有前途吗