Übersetzung in VB-Code

[DbSam]

Hhmm, wie schaut das dann in C# genau aus?
Ein Enum ist in VB ein Enum. Du kannst den Wert aber auch als String ausgeben, was aber bei Leerstrings wie hier im Beispiel nicht funktioniert.

Zu Deinem PS:
Nein, da hast Du recht, habe ich vorhin nicht dran gedacht.
Jetzt vollständig gekapselt, von Außen nur noch GetValue und das Enum erreichbar:
Habe der Einfachheit halber noch eine Klasse als Hülle drum gelegt...

Code:

Public Class Approx
    Private o As New GEDCOMDateApproximatedColl
    Public Enum eGEDCOMApproximated
        daExact
        daAbout
        daCalculated
        daEstimated
    End Enum

    Public Function GetValue(ByVal Item As eGEDCOMApproximated) As String
        Return o.GEDCOMDateApproximated(Item)
    End Function

    Private Class GEDCOMDateApproximatedColl
        Inherits CollectionBase

        Friend Sub New()
            Me.Add("")
            Me.Add("ABT")
            Me.Add("CAL")
            Me.Add("EST")
        End Sub

        Friend Function GEDCOMDateApproximated(ByVal Item As eGEDCOMApproximated) As String
            Dim o As GEDCOMApproximated = CType(Me.InnerList(Item), GEDCOMApproximated)
            Return o.Value
        End Function

        Private Sub Add(ByVal Item As String)
            Dim o As New GEDCOMApproximated
            o.Value = Item
            Me.InnerList.Add(o)
        End Sub

        Friend Class GEDCOMApproximated
            Friend Property Value As String
        End Class
    End Class
End Class

Deklaration und Aufruf so:

Code:

   'Deklaration wie und wo benötigt:
    Public GEDCOMDateApproximated As New Approx

    'Aufruf in etwa so:
    Private Sub Beispiel() Handles Button1.Click
        MessageBox.Show(Me.GEDCOMDateApproximated.GetValue(Approx.eGEDCOMApproximated.daAbout))
    End Sub

Gruß Carsten

[EWeiss]

VB.Net ??

Kann nicht ersehen das hier VB.NET gemeint war.
Lese hier nur was von VB-Code (VisualBasic)

Aber egal.

gruss

[DbSam]

Gruß zurück,

Du meinst, Hans will sein Delphi in die mittlerweile 'Mumiensprache' VB6 übersetzen?
So etwas macht man doch nicht mehr wirklich im Jahr 2014, denk/dachte ich.


Gruß Carsten

[hansklok]

Zitat von DbSam:

Gruß zurück,

Du meinst, Hans will sein Delphi in die mittlerweile 'Mumiensprache' VB6 übersetzen?
So etwas macht man doch nicht mehr wirklich im Jahr 2014, denk/dachte ich.


Gruß Carsten

...nun, ich habe VisualBasic für diejenigen erwähnt, die Xojo nicht kennen. Es gibt da sehr viele Gemeinsamkeiten.

An alle anderen: vielen Dank für den Input. Ich werde mir alles in Ruhe ansehen und Feedback geben.

Herzlichen Dank

[DbSam]

Zitat:

An alle anderen: vielen Dank für den Input.

Bitte, gern geschehen.

Vielleicht schreibst Du das nächste mal besser gleich was Du willst und nicht solch einen Mumpitz.


Mit freundlichen Grüßen
Carsten

PS:
Wobei Du das auch in Xojo kapseln solltest.

[EWeiss]

Zitat von hansklok:

Zitat von DbSam:

Gruß zurück,

Du meinst, Hans will sein Delphi in die mittlerweile 'Mumiensprache' VB6 übersetzen?
So etwas macht man doch nicht mehr wirklich im Jahr 2014, denk/dachte ich.


Gruß Carsten

...nun, ich habe VisualBasic für diejenigen erwähnt, die Xojo nicht kennen. Es gibt da sehr viele Gemeinsamkeiten.

An alle anderen: vielen Dank für den Input. Ich werde mir alles in Ruhe ansehen und Feedback geben.

Herzlichen Dank

Genau das meinte/meine ich.
Wie gesagt kann nirgendwo ersehen das VB.NET gemeint war.
Und zur INFO!
http://de.wikipedia.org/wiki/Xojo

Es gibt KEINE Portierung nach .NET

Zitat:

Dankeschön für euren Input. Es war mir eine große Hilfe

Na ja es wurde doch alles vorher schon gesagt.

Zitat:

...aus meinem Beitrag gehen alle Eckpunkte exakt hervor

Leider nein. Ansonsten hätten nicht so viele hier .NET Code angewendet.

gruss

[Dejan Vu]

Die meisten sind von VB.NET ausgegangen, weil man bei VB automatisch an VB.NET denkt. Ich habe zwar nachgefragt, aber keine Antwort erhalten, und Dir ist es ja sowieso sofort aufgefallen, das nirgends etwas von .NET steht. Denn genau genommen steht dort exakt, das er sich Hilfe beim Dialekt 'VB bzw. Xojo' wünscht. Also hat er doch alle notwendigen Eckdaten genannt. Nur der einzige, der richtig gelesen hat, warst Du.

[hansklok]

Ok, zugegeben es hat etwas gedauert, aber ich habe nun eine sehr einfache Lösung gefunden:

Code:

Enum TGEDCOMApproximated As Integer
  daExact
  daAbout
  daCalculated
  daEstimated
End Enum

Function GEDCOMDateApproximatedArray(Value As TGEDCOMApproximated) As String
  Select Case Value
    Case TGEDCOMApproximated.daAbout
      Return "ABT"
    Case TGEDCOMApproximated.daCalculated
      Return "CAL"
    Case TGEDCOMApproximated.daEstimated
      Return "EST"
    Case TGEDCOMApproximated.daExact
      Return "" End Select
End Function

Dankeschön für euren Input. Es war mir eine große Hilfe