Public meterobj(0 To 10) As Lpin1
Public meterobj713 As Class1
meterobj713 = New Class1
meterobj(1) = meterobj713
meterobj(1).init()这些都是关于使用部分
下面是类class lpin1
Public Sub init() ‘’只进到这里 在6.0中时直接进入对于数据类中
End Sub
对于数据的处理
类关于初始化和数据处理Class Class1
Inherits Lpin1‘’在6.0中用的是Implements Meter从网查的
Private Sub lpin_init() Dim i As Integer
For i = 0 To 9
xy2 = New LPdata
a(i) = xy2
Next
a(1).Data4 = 10
a(2).DataDot = 11
End Sub在调用meterobj(1).init的时候不进入Class1中的lpin_init()在6.0中就直接进入写的不对 还是语句不对, 刚接触VB。net
Public meterobj713 As Class1
meterobj713 = New Class1
meterobj(1) = meterobj713
meterobj(1).init()这些都是关于使用部分
下面是类class lpin1
Public Sub init() ‘’只进到这里 在6.0中时直接进入对于数据类中
End Sub
对于数据的处理
类关于初始化和数据处理Class Class1
Inherits Lpin1‘’在6.0中用的是Implements Meter从网查的
Private Sub lpin_init() Dim i As Integer
For i = 0 To 9
xy2 = New LPdata
a(i) = xy2
Next
a(1).Data4 = 10
a(2).DataDot = 11
End Sub在调用meterobj(1).init的时候不进入Class1中的lpin_init()在6.0中就直接进入写的不对 还是语句不对, 刚接触VB。net
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货