Benötige Hilfe bei der Umstellung von C# zu vb

  • VB.NET
  • .NET (FX) 3.0–3.5

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

    Benötige Hilfe bei der Umstellung von C# zu vb

    Liebes Forum,

    ich habe auf Codeprojekt-Seite eine Kalender-Componente gefunden welche ich gerne von C# zu vb.net konvertieren möchte.
    Hier der link: codeproject.com/Articles/38699…Agenda-View-That-You-Will zum Kalender.
    Leider bekomme ich dort keinen Support.
    Folgende Umstellung bereitet mir echte Kopfschmerzen:

    ISelectableElement:

    Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.Text;
    4. using System.Drawing;
    6. namespace System.Windows.Forms.Calendar
    7. {
    8. /// <summary>
    9. /// Represents a clickable element of <see cref="MonthView"/> control
    10. /// </summary>
    11. public interface ISelectableElement
    12. {
    14. /// <summary>
    15. /// Gets the bounds of the element
    16. /// </summary>
    17. Rectangle Bounds { get; }
    19. /// <summary>
    20. /// Gets if the element is currently selected
    21. /// </summary>
    22. bool Selected { get; }
    23. }
    24. }


    ICalendarSelectableElement:

    Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.Text;
    4. using System.Drawing;
    6. namespace System.Windows.Forms.Calendar
    7. {
    8. /// <summary>
    9. /// Interface implemented by every selectable element of the calendar
    10. /// </summary>
    11. public interface ICalendarSelectableElement
    12. : ISelectableElement, IComparable<ICalendarSelectableElement>
    13. {
    15. /// <summary>
    16. /// Gets the calendar this element belongs to
    17. /// </summary>
    18. Calendar Calendar { get; }
    20. /// <summary>
    21. /// Gets the calendar
    22. /// </summary>
    23. DateTime Date { get; }
    25. }
    26. }


    Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.Text;
    4. using System.Drawing;
    6. namespace System.Windows.Forms.Calendar
    7. {
    8. /// <summary>
    9. /// Implements a basic <see cref="ICalendarSelectableElement"/>
    10. /// </summary>
    11. public abstract class CalendarSelectableElement
    12. : ICalendarSelectableElement
    13. {
    15. /// <summary>
    16. /// Compares this element with other using date as comparer
    17. /// </summary>
    18. /// <param name="element"></param>
    19. /// <returns></returns>
    20. public virtual int CompareTo(ICalendarSelectableElement element)
    21. {
    22. return this.Date.CompareTo(element.Date);
    23. }
    24. ......




    zu VB:

    Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Text
    3. Imports System.Drawing
    5. Namespace System.Windows.Forms.Calendar
    6. ''' <summary>
    7. ''' Represents a clickable element of <see cref="MonthView"/> control
    8. ''' </summary>
    9. Public Interface ISelectableElement
    11. ''' <summary>
    12. ''' Gets the bounds of the element
    13. ''' </summary>
    14. ReadOnly Property Bounds() As Rectangle
    16. ''' <summary>
    17. ''' Gets if the element is currently selected
    18. ''' </summary>
    19. ReadOnly Property Selected() As Boolean
    20. End Interface
    21. End Namespace


    Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Text
    3. Imports System.Drawing
    5. Namespace System.Windows.Forms.Calendar
    6. ''' <summary>
    7. ''' Interface implemented by every selectable element of the calendar
    8. ''' </summary>
    9. Public Interface ICalendarSelectableElement
    10. Inherits ISelectableElement
    11. Inherits IComparable(Of ICalendarSelectableElement)
    13. ''' <summary>
    14. ''' Gets the calendar this element belongs to
    15. ''' </summary>
    16. ReadOnly Property Calendar() As Calendar
    18. ''' <summary>
    19. ''' Gets the calendar
    20. ''' </summary>
    21. ReadOnly Property [Date]() As DateTime
    22. End Interface
    23. End Namespace



    Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Text
    3. Imports System.Drawing
    5. Namespace System.Windows.Forms.Calendar
    6. ''' <summary>
    7. ''' Implements a basic <see cref="ICalendarSelectableElement"/>
    8. ''' </summary>
    9. Public MustInherit Class CalendarSelectableElement
    10. Implements ICalendarSelectableElement
    12. ''' <summary>
    13. ''' Compares this element with other using date as comparer
    14. ''' </summary>
    15. ''' <param name="element"></param>
    16. ''' <returns></returns>
    17. Public Function CompareTo(Other As ICalendarSelectableElement) As Integer
    18. Return Me.[Date].CompareTo(Other.[Date])
    19. End Function
    21. ........


    Hier bei VB kommt folgende Fehlermeldung:

    "CalendarSelectableElement" muss "Function CompareTo(other As Windows.Forms.Calendar35.System.Windows.Forms.Calendar.ICalendarSelectableElement) As Integer" für die IComparable(Of ICalendarSelectableElement)-Schnittstelle implementieren. ;(

    Ja, das ist doch aber erfolgt. Ich habe auch schon anhand eines neu geschriebenen Beispiels die Interfacestruktur nachgebildet. Immer der gleiche Fehler. Ich stehe auf dem Schlauch.
    Für die fragenden Mitstreiter warum ich nicht die Komponente wie sie ist einbinde: Ich möchte z.B. die Tagesfarben am Wochenende ändern, kann aber kein C# :( .

    Vielen Dank.

    Mike

    Fahr über das Interface mit der Maus drüber, wo du es implementierst, dann warte bis das kleine "Quadrat" auftaucht, klicke da drauf und wähle dann "Interface implementieren" oder so ähnlich. Am Code ist dann wohl nichts falsch. Das ist einfach so, warum auch immer.

    Das hier mein ich, das machst Du mit dem Interface:

    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    MikeF schrieb:

    welche ich gerne von C# zu vb.net konvertieren möchte.
    Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    In VB.Net müssen explizit die implementierten Inteface-Member angegeben werden:

    VB.NET-Quellcode

    1. Public Function CompareTo(Other As ICalendarSelectableElement) As Integer Implements IComparable(Of ICalendarSelectableElement).CompareTo
    2. Return Me.[Date].CompareTo(Other.[Date])
    3. End Function

    Hallo Artentus,

    Danke, Danke, Danke.

    Du bist Heute mein Held des Tages. Es funktioniert.

    Das werde ich bestimmt bei den Beispielen und der Dokumentation überlesen
    haben, oder ich sehe den Wald vor lauter Bäumen nicht mehr.

    LG,

    Mike

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

    MikeF schrieb:

    Ob das geht weiß ich jetzt auch nicht.
    Das geht problemlos und dürfte der bequemste Weg sein.
    Füge Deinem Projekt ein C#-DLL-Projekt hinzu, pack da die Quellen rein.
    Füge Deinem Hauptprojekt das DLL-Projekt als Verweis hinzu (nicht aber die DLL selbst) und feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!