Question

大家。这是我的代码。调试时说“VBA编译错误：找不到方法或数据成员”并突出显示行：Familienkutsche.strFarbe =“Blau” 如果我取消它，它会对随后的行说同样的话。它不喜欢什么？一切都写在一个街区，为什么他不认识“strFarbe”或“Geschwindigkeit”？话虽如此，如果我删除Familienkutsche并离开.strFarbe =“Blau”一切正常。先感谢您。

Option Explicit

Public strFarbe As String
Private bytTempo As Byte
Private blnTempoSperre As Boolean

Public Property Let Geschwindigkeit(Speed As Long)
If (Speed > 250) Then
    bytTempo = 250
    blnTempoSperre = True
Else
    bytTempo = Speed
    blnTempoSperre = False
End If
End Property

Public Property Get Geschwindigkeit() As Long
    Geschwindigkeit = bytTempo
End Property

Public Property Get abgeriegelt() As Boolean
    abgeriegelt = blnTempoSperre
End Property



Public Sub Autos()
Dim Familienkutsche As Auto
Let Familienkutsche = New Auto

Familienkutsche.strFarbe = "Blau"
Familienkutsche.Geschwindigkeit = 320
Debug.Print Familienkutsche.Geschwindigkeit
Debug.Print Familienkutsche.abgeriegelt
End Sub

Answer 1

代码的第一部分必须位于类模块 Auto中。

Public Sub Autos()必须位于标准模块中。然后它可以正常工作（将Let更改为Set）。

输出：

 250 
Wahr

VBA编译错误：找不到方法或数据成员

1 个答案: