Moin!
ich möchte Definitionen über eine ENUM-Definition weitergeben. Es kommt aber immer der Wert -1 an.
Vielleicht kann mir einer von Euch weiterhelfen.
Hier der Code dazu:
Die aufrufende Funktion ist..
Wenn ich die Funktion im zweiten Code-Block aufrufe, dann kommt in der Zeile 38 im ersten Code-Block -1 an und nicht wie erwartet die 1 für die Haltung?!!??!?!?
ich möchte Definitionen über eine ENUM-Definition weitergeben. Es kommt aber immer der Wert -1 an.
Vielleicht kann mir einer von Euch weiterhelfen.
Hier der Code dazu:
VB.NET-Quellcode
- Imports System
- Imports Mum.Geo.Client.DataConnections
- Public Class FUNC_SQL
- Private _EBLog As FUNC_Log
- ' ------ http://ma22-wiki-001/eblwiki/index.php?title=EBL_Funktionen_(MapEdit_API_Dokumentation)#FUNC_SQL ------
- ''Private _MyApplication As Mum.Geo.Client.Application
- ''Private _connection As Mum.Geo.DataAccess.Connection
- ''Private _DBC As FUNC_DB_Connection
- Public Enum GeomType
- Schacht
- Haltung
- End Enum
- <Global.System.Diagnostics.DebuggerStepThroughAttribute()>
- Public Sub New(Log As FUNC_Log)
- '' _MyApplication = MyApplication
- _EBLog = Log
- '' _connection = conn
- '' _DBC = New FUNC_DB_Connection(_connection, _EBLog)
- End Sub
- <Global.System.Diagnostics.DebuggerStepThroughAttribute()>
- Public Function GetSqlWhere4SearchBox(PickPoint As Mum.Geo.Geometry.Point, SuchFeldRadius As Double, WhatSearch As GeomType, Optional GeomBuchstabe As String = "") As String
- ' ------ http://ma22-wiki-001/eblwiki/index.php?title=EBL_Funktionen_(MapEdit_API_Dokumentation)#GetSqlWhere4SearchBox ------
- Dim SQL As String = ""
- If SuchFeldRadius = 0 Then Return SQL
- With _EBLog
- .Log("SuchFeldRadius:= " & SuchFeldRadius.ToString)
- Dim UL_Y As Double = PickPoint.Y - SuchFeldRadius
- Dim UL_X As Double = PickPoint.X - SuchFeldRadius
- Dim OR_Y As Double = PickPoint.Y + SuchFeldRadius
- Dim OR_X As Double = PickPoint.X + SuchFeldRadius
- SQL = GetSqlWhere4SearchBox_Work(UL_X, UL_Y, OR_X, OR_Y, WhatSearch:=WhatSearch, GeomBuchstabe:=GeomBuchstabe)
- End With
- Return SQL
- End Function
Die aufrufende Funktion ist..
VB.NET-Quellcode
- Private Sub GetPointCompleted(ByVal args As Mum.Geo.Map.GetPointResultArgs)
- Dim fOSS As New FUNC_ObjSearchSection(Me.Application, _connection_KANAL, _EBLog)
- If Not args.Canceled Then
- Dim Point As Mum.Geo.Geometry.Point = args.Point
- fOSS.OpenObjSearchSection(_SQLs, Point, WhatToSearch:=FUNC_SQL.GeomType.Schacht, SelRadiusMMinMap:=k_SelRadiusMMinMap)
- Else
- _EBLog.LogAndMsgBox("Es wurde kein Punkt gewählt!")
- End If
- End Sub
Wenn ich die Funktion im zweiten Code-Block aufrufe, dann kommt in der Zeile 38 im ersten Code-Block -1 an und nicht wie erwartet die 1 für die Haltung?!!??!?!?