正文
vb.net类的创建 vbnet class
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net中创建类
不熟悉VB,如有不妥vb.net类的创建的地方请包涵!
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
相关问答
Q1: vb.net创建类引用类
你是指……
Dim 变量名 as 类型 = new 类型（构造参数）
这样么
或者是
Dim 变量名 as new 类型(构造参数)
这样？
还是说
Class 类名
End Class
这样？
Q2: vb.net 自建类生成类e似xx.item(0).value或者xx.Name("zhangshan").Value
'这是数组的一个方法了，可是可以给数组定义扩展方法来实现这种形式。不过要给Item每个成员能动态生成相应方法，想不出其它简单点的办法，只能一个一个的添加扩展方法。
Namespace 测试
Public Class Item
Public Number() As String
Public Name As String
Public Symbol As String
Public Value As Single
Public Unit As String
Public Description As String
Public Remarks As String
End Class
Public Class XX
Public tty() As Item
Public Sub New()
tty(0).Name = "Women"
tty(0).Value = 198000
tty(1).Name = "temen"
tty.Name("temen").Value = 99999
End Sub
End Class
Public Module Module1
System.Runtime.CompilerServices.Extension() _
Public Function Name(ByVal she As Item(), ByVal key As String) As Item '定义扩展方法功能 在net.3.5前的版本像似没有。
For Each it In she
If it.Name = key Then
Return it
End If
Next
Return Nothing
End Function
End Module
End Namespace
Q3: 怎么搭建一个vb.net环境
.NET 的环境只有一个vb.net类的创建，就是.NET Framework
如果你是XP系统的话一般要安装4.0版本
下载的软件当然是visual studio；你可以使用visual studio2015，但是要注意开发时要选择对应的目标框架
只要在这里能看到.NET Franmework4.0就表示你安装好vb.net类的创建了
Q4: 如何创建vb.net窗体
dim 一个窗体 as new form
with 一个窗体
.location=...
.size=...'这里是设置窗体的位置等属性
end with
一个窗体.show
vb.net类的创建的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet class、vb.net类的创建的信息别忘了在本站进行查找喔。
