class - 如何在vb中为excel创建一个类

Question

您好，我试图在 vb 中创建一个类，以及何时并尝试实例化该类没有任何值的类

Private lat As Double
Private lon As Double

Public Property Get Longitud() As Double

Longitud = lon

End Property
Public Property Get Latitud() As Double
Latitud = lat

End Property
Public Property Let Longitud(ByVal longi As Double)

Longitud = lon

End Property

Public Property Let Latitud(ByVal lati As Double)

Latitud = lat
End Property

当我试图实例化时

Dim cord As Coordenadas
Set cord = New Coordenadas
cord.Latitud = 40.30416667
cord.Longitud = 0.22583333

我看不到电源线有任何变化

Answer 1

您的 Let 属性未正确分配您作为参数传递的值。它应该如下：

Private lon As Double
'

Public Property Let Longitud(ByVal longi As Double)

    lon = longi

End Property

Let应该将该值分配给您的私有变量（Lon），并Get应该检索存储在该变量中的值。

作为补充，如果你给你的私有财产一个特殊的后缀，它将对你有很大帮助。例如 pLon 和 pLat。这种方式更容易让您从参数和属性中识别变量。