正文
vb.net类定义 vbnet invoke
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
在VB.NET中，什么是类？什么是对象？它们之间的关系是什么？
人类是一个类，你是人，我是人，都是人类的实例(instance)，或称对象(object)。一个类描述一类事物，描述这些事物所应具有的属性，如人有身长、体重、文化程度、性别、年龄、民族等。
一个对象是类的一个实例，它具有确定的属性，如张三(人的实例)身高180，体重70公斤，大学本科，男，21岁，汉族。
人类只有一个，人类的实例可以有无数个。
对象可以被创建和销毁，但类是无所不在的。
例如，桌子是一个类， 人们不断打造各种尺寸和风格(属性)的桌子(桌子的实例)，打造桌子， 又不断毁坏桌子，年复一年，旧的去了，新的又来，但桌子的概念没变，它是一个抽象的概念。应该称它为桌子类，以区别于打造的具体桌子。
相关问答
Q1: 在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
四、测试截图如下
Q2: vb.net 自定义类属性的问题？
注意下你给ButtonTop的Image属性赋值的地方，你的属性SET里是针对【上】这个类的改变，你如果这样写是触发不了属性改变的：
ButtonTop.背景 = Image.FromFile("C:/1.png")
正确的处理办法应该是new一个【上】类的对象，初始化时进行赋值就可以了
Me.ButtonTop = New Class1() With {.背景 = Image.FromFile("C:/1.png")}
Q3: 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
Q4: vb.net 定义变量 ，类型，对象问题?
dim本身就表示定义某一个类型vb.net类定义的变量vb.net类定义的。这个类型vb.net类定义，包括简单的预定义类型vb.net类定义，也包括自定义类型，比如类，数组等等所有类型，只要在一个项目中可见的类型都可以定义。
使用new当然就是定义的时候实例化
这个类型，这时变量已有具体的内存对应。
类，类似于C里的结构体，但是可以做到继承、抽像等面向对象的特性。结构体和类都需要new来实例化。
你可以看一下面向对象编程方面的知识。
vb.net类定义的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet invoke、vb.net类定义的信息别忘了在本站进行查找喔。
