作者williewillie (williewillie)
看板Visual_Basic
标题Re: [.NET] 如何呼叫类别中的阵列??
时间Thu May 13 09:40:09 2010
※ 引述《followmeyo (简简单单)》之铭言：
: 不好意思 问一点基本观念问题
: 我是用VS2008
: 假设小弟有个类别档 ppp.vb档 code如下
: Public Class ppp
: Dim a(10) As Integer
: Sub aaa()
: For i = 0 To 9
: a(i) = i + 2
: Next
: End Sub
: End Class
: 那我的主程式上设一个button
: Public Class Form1
: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
: System.EventArgs) Handles Button1.Click
: End Sub
: End Class
: 该怎麽呼叫出ppp.vb档里阵列的值?
: 感谢回答
一般来说简单的值宣告是放在Module里
Module Module1
Public a(10) As Integer
Sub aaa()
'a()
'0 1 2 3 4 5 6 7 8 9 10
'Value
'2 3 4 5 6 7 8 9 10 11 0
For i = 0 To 9
a(i) = i + 2
Next
End Sub
End Module
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'输出a()值
For i As Integer = 0 To a.Length - 1
MsgBox(a(i).ToString)
Next
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
'开启时先执行aaa()将值殖入
aaa()
End Sub
End Class
改用class的话就必须宣告为new
Public Class Class1
Public a(10) As Integer
Sub aaa()
'a()
'0 1 2 3 4 5 6 7 8 9 10
'Value
'2 3 4 5 6 7 8 9 10 11 0
For i = 0 To 9
a(i) = i + 2
Next
End Sub
End Class
Public Class Form1
'宣告aaa变数为class1型态
Dim aaa As Class1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'输出a()值
For i As Integer = 0 To aaa.a.Length - 1
MsgBox(aaa.a(i).ToString)
Next
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
'将class1 new 给Form1的aaa变数
aaa = New Class1
'开启时先执行aaa()将值殖入
aaa.aaa()
End Sub
End Class
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.219.126.42
1F：推 followmeyo:非常感谢 观念又清楚多了 05/13 13:50