vb.net怎样定义类 vbnet implements

vb.net 怎样实现自定义类型啊

Class WorkerType

Dim No As Integer

Dim Name As String

Dim Pay As Single

End Class

新人vb.net 怎么自定义类型

其实就是结构体，如下面

Public Structure My_type

Public type_1 As Integer

Public type_2 As String

Public type_3 As Double

End Structure

vb.net 定义变量 ，类型，对象问题?

在.NET中，对象和结构还是有些不同的，定义方式也是其中之一。

像整型、字符串和一些数值类型都属于结构。结构只需要这样定义就可以了：

Dim str As String

系统自动分配内存，然后就可以对它进行访问了。

如果像这样声明普通类：

Dim cla As Class

此时直接访问cla类成员会引发一个null异常。因为你仅仅声明了cla的类型（cla是Class类型的），而内存中没有一个真正的对象（类的实例）。如果你需要一个实例，就需要用New关键字，例如：

Dim cla As New Class("some words")

这时系统会建立一个Class对象，并将cla指向这个对象。这样就完成了一次实例化。这时就可以直接访问cla的成员了。

在实例化时，系统会调用对象的New函数，即构造函数。后面括号里的内容并不是对象的属性，而是要传递给这个构造函数的参数。至于对象的构造函数是否需要参数、需要多少参数以、参数的类型及重载情况等，取决于要实例化的类型。

上面的Class只是例子，代换成实际的类即可。

vb.net中创建类

不熟悉VB,如有不妥的地方请包涵!

Public Class Stack

Dim aryData() As Integer

Sub New(ByVal Num As Integer)

Dim aryData(Num) As Integer

End Sub

Function Pop() As Integer

If (aryData.Length = 0) Then

Return 0

Else

Dim a As Integer

a = aryData(aryData.Length)

aryData(aryData.Length) = Convert.ToInt32(DBNull.Value)

Return a

End If

End Function

Sub Push(ByVal n As Integer)

For Each i As Integer In aryData

If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then

aryData(i) = n

End

Else

Continue For

End If

Next

End Sub

Sub PrintStack()

For Each i As Integer In aryData

If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then

End

Else

Print(aryData(i))

End If

Next

End Sub

End Class

在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 implements、vb.net怎样定义类的信息别忘了在本站进行查找喔。