Fehler beim Kompilieren: Variable nicht definiert

  • Sonstige

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    Fehler beim Kompilieren: Variable nicht definiert

    Hallo Leute,

    bekomme bei folgendem Code/VBA-Modul eine Fehlermeldung beim Aufruf der Funktion 'ZoomToElement' im Sub 'Main':

    Visual Basic-Quellcode

    1. Option Explicit
    2. Option Base 0
    5. ' ---------------------------------------------------------------------
    6. ' Main entry point. Command-line syntax:
    7. ' vba run [ElementLocator]modMain.Main <element id>
    8. ' Substitute a valid MicroStation graphic element ID for <element id>
    9. ' ---------------------------------------------------------------------
    10. Public Sub Main()
    11. Dim id As DLong
    12. id = DLongFromString(KeyinArguments)
    13. Dim Zero As DLong
    14. Dim oTarget As Element
    15. On Error GoTo err_ElementNotFound
    16. ' Next line throws an error if the ID is not valid
    17. Set oTarget = ActiveModelReference.GetElementByID(id)
    18. ZoomToElement oTarget, 1
    19. Exit Sub
    21. err_ElementNotFound:
    22. MsgBox "Element having ID " & DLongToString(id) & " not found", vbOKOnly Or vbInformation, "Invalid Element ID"
    23. End Sub
    25. ' ---------------------------------------------------------------------
    26. ' ZoomToElement
    27. ' ---------------------------------------------------------------------
    28. Function ZoomToElement(ByVal oTarget As Element, ByVal nView As Integer) As Boolean
    29. ZoomToElement = False
    30. If (oTarget.IsGraphical) Then
    31. Const Zoom As Double = 4
    32. Dim range As Range3d
    33. range = oTarget.range
    34. Dim oView As View
    35. Set oView = ActiveDesignFile.Views.Item(nView)
    36. Dim extent As Point3d
    37. extent = Point3dScale(Point3dSubtract(range.High, range.Low), Zoom)
    38. oView.Origin = Point3dSubtract(range.Low, Point3dScale(extent, 0.5))
    39. oView.Extents = extent
    40. oView.Redraw
    41. Else
    42. MsgBox "Element having ID " & DLongToString(oTarget.id) & " is not a graphical element", vbOKOnly Or vbInformation, "Invalid Element"
    43. End If
    44. Exit Function
    46. err_ZoomToElement:
    47. ReportError strMODULE_NAME, "ZoomToElement"
    48. End Function


    Die Fehlermeldung lautet: 'Fehler beim Kompilieren: Variable nicht definiert' Habe keine Ahnung woran es liegen könnte. Davor kam die Fehlermeldung: 'Sub oder Funktion nicht definiert'. Jedenfalls steigt der Kompiler beim Aufruf der Funktion aus, obwohl die Funktion imselben Modul aufgerufen wird.

    MfG Peacer

    * Topic verschoben *

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „der_Kurt“ ()

    Gelb hinterlegt ist die Zeile:

    Visual Basic-Quellcode

    1. Function ZoomToElement(ByVal oTarget As Element, ByVal nView As Integer) As Boolean


    Grau hinterlegt die Variable:

    Visual Basic-Quellcode

    1. strMODULE_NAME
    - in der vorletzen Zeile der Fkt. 'ZoomToElement'

Facebook
Telefonspende