Eine Methode für Mehrere Controls ?

  • VB.NET
  • .NET (FX) 4.0

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Drahuverar.

    Eine Methode für Mehrere Controls ?

    Hallo Leute,

    ich wollte mal fragen ob es möglich ist dies zu vereinfachen..

    VB.NET-Quellcode

    1. ​ Public DisallowedCharacters As String = "ÄÖÜäöüABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    3. 'TextBox
    4. Public Sub CheckForDisallowedCharacters(ByRef TextboxControl As TextBox)
    5. Dim theText As String = TextboxControl.Text
    6. Dim Letter As String
    7. Dim SelectionIndex As Integer = TextboxControl.SelectionStart
    8. Dim Change As Integer
    10. For x As Integer = 0 To TextboxControl.Text.Length - 1
    11. Letter = TextboxControl.Text.Substring(x, 1)
    12. If DisallowedCharacters.Contains(Letter) Then
    13. Media.SystemSounds.Beep.Play()
    14. theText = theText.Replace(Letter, String.Empty)
    15. Change = 1
    16. End If
    17. Next
    19. TextboxControl.Text = theText
    20. TextboxControl.Select(SelectionIndex - Change, 0)
    22. End Sub
    23. 'ComboBox
    24. Public Sub CheckForDisallowedCharacters(ByRef ComboBox As ComboBox)
    25. Dim theText As String = ComboBox.Text
    26. Dim Letter As String
    27. Dim SelectionIndex As Integer = ComboBox.SelectionStart
    28. Dim Change As Integer
    30. For x As Integer = 0 To ComboBox.Text.Length - 1
    31. Letter = ComboBox.Text.Substring(x, 1)
    32. If DisallowedCharacters.Contains(Letter) Then
    33. Media.SystemSounds.Beep.Play()
    34. theText = theText.Replace(Letter, String.Empty)
    35. Change = 1
    36. End If
    37. Next
    39. ComboBox.Text = theText
    40. ComboBox.Select(SelectionIndex - Change, 0)
    42. End Sub


    Die Frage die ich mir stelle ist folgende: "Kann man im Grunde hinterlegen, dass alle Controls, welche die Eigenschaft ".Text" besitzen, mit einer Methode abgedeckt werden?"
    Ohne das ich Explizit die Methode kopieren muss, für das jew. Control.

    Hoffe ihr versteht was ich meine.. :)

    Grüße,
    Drahuverar
    Option Strict On!

    Man kann auch Klassen erweitern auf die man keinen Zugriff hat, oder die Methode nicht direkt zur Klasse gehört.

    msdn.microsoft.com/de-de/library/bb384936.aspx

    Im Beispiel wird die String Klasse um die Methode Print erweitert.

    System.Reflection namespace, together with System.Type, enable you to obtain information about loaded assemblies and the types defined within them, such as classes, interfaces, and value types.">Die Klassen im System.Reflection-Namespace ermöglichen Ihnen zusammen mit System.Type, Informationen zu geladenen Assemblys und den hierin definierten Typen wie Klassen, Schnittstellen und Werttypen abzurufen. Sie können auch mithilfe von Reflektion Typeninstanzen zur Laufzeit erstellen, diese aufrufen und darauf zugreifen.


    Ich bau dir gleich mal ein Beispiel zusammen.

    Mit einer Extension kannst du bestehende Klassen um Funktionen erweitern.
    msdn.microsoft.com/en-us/library/bb384936.aspx

    Mit Reflection kannst du Klassen analysieren und zB die ganzen Eigenschaften, Attribute, Methoden, etc auszulesen.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    @ThuCommix
    Dafür wäre ich dir sehr Dankbar. :thumbsup:

    @fichz
    Ich lese mich mal durch den Artikel den ihr beide gepostet habt, danke :)

    Bin ich heute der einzige bei dem MSDN etwas merkwürdig aussieht? (siehe Bild)

    Grüße
    Bilder

    • MSDN Today.png

      51,64 kB, 372×780, 126 mal angesehen
    Option Strict On!

    Ich hab das ganze bloß von C# konvertiert, du müsstest also gucken ob es läuft.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public NotInheritable Class ControlExtensions
    2. Private Sub New()
    3. End Sub
    4. <System.Runtime.CompilerServices.Extension> _
    5. Public Shared Sub ValidateCharacters(ctrl As Control)
    6. Dim [property] = ctrl.[GetType]().GetProperty("Text")
    7. If [property] IsNot Nothing Then
    8. Dim text = [property].GetValue(ctrl).ToString
    9. 'hier deine Logik
    11. [property].SetValue(ctrl, text)
    12. End If
    13. End Sub
    14. End Class

    C#-Quellcode

    1. public static class ControlExtensions
    2. {
    3. public static void ValidateCharacters(this Control ctrl)
    4. {
    5. var property = ctrl.GetType().GetProperty("Text");
    6. if (property != null)
    7. {
    8. var text = property.GetValue(ctrl).ToString();
    9. //hier deine Logik
    11. property.SetValue(ctrl, text);
    12. }
    13. }
    14. }


    Drahuverar schrieb:

    Die Frage die ich mir stelle ist folgende: "Kann man im Grunde hinterlegen, dass alle Controls, welche die Eigenschaft ".Text" besitzen, mit einer Methode abgedeckt werden?"
    Das ist im Falle der Text-Property sogar besonders einfach, denn jedes Control hat eine solche.
    Geerbt nämlich.

    Sehr fragwürdig allerding, Combobox.Text ändern zu wollen.

    Und bei Textboxen, wenn gültige Eingaben von vornherein unterdrückt werden sollen, wird das auch problematisch, denn im TextChanged den Text zu changen führt zu einer Ereigniskette.

    Vielen Dank,

    das schlimme ist, dass ich sowas schon oft gesehen, aber nie hinterfragt habe.

    Habe den Code zu VB.NET angepasst:
    VB.NET Code

    VB.NET-Quellcode

    1. Public Shared Sub ValidateCharacters(ctrl As Control)
    2. Dim prop = ctrl.GetType().GetProperty("Text")
    4. If prop IsNot Nothing Then
    5. Dim text = prop.GetValue(ctrl, Nothing).ToString
    6. 'hier deine Logik
    7. prop.SetValue(ctrl, text, Nothing)
    8. End If
    9. End Sub


    SelectionStart und SelectionIndex-Problem
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Shared Sub ValidateCharacters(ctrl As Control)
    2. Dim prop = ctrl.GetType().GetProperty("Text")
    4. If prop IsNot Nothing Then
    5. Dim text = prop.GetValue(ctrl, Nothing).ToString
    6. 'hier deine Logik
    7. Dim theText As String = ctrl.Text
    8. Dim Letter As String
    9. Dim SelectionIndex As Integer = ctrl.SelectionStart
    10. Dim Change As Integer
    12. For x As Integer = 0 To ctrl.Text.Length - 1
    13. Letter = ctrl.Text.Substring(x, 1)
    14. If DisallowedCharacters.Contains(Letter) Then
    15. Media.SystemSounds.Beep.Play()
    16. theText = theText.Replace(Letter, String.Empty)
    17. Change = 1
    18. End If
    19. Next
    21. ctrl.Text = theText
    22. ctrl.Select(SelectionIndex - Change, 0)
    24. prop.SetValue(ctrl, text, Nothing)
    25. End If
    26. End Sub


    Ich kann wohl SelectionStart nicht erben, da diese kein Member von Control ist. :huh:

    Edit:
    @ErfinderDesRades
    Habe deinen Post zu spät gesehen.
    Würde gerne gewisse Zeichen, egal bei welchem Control, unterbinden. Das kommt immer mal wieder vor.. und da ich nicht 20 Methoden wegen einer Property machen möchte, kam die Frage zustande. :saint:
    Welche Probleme siehst du unter anderem hier?
    Option Strict On!

    Also, war blöd erklärt von mir... Also alleine vom Handling der Anwendung.
    Ich habe 3 ComboBoxen, 2 werden mit einer List (Of ...) gefüllt, je nach Auswahl des Users wird die 3. ComboBox dann durch ein SQL Statement gefüllt..

    Habe nun die Eigenschaft von "DropDown" zu "DropDownList" geändert. Da kann man nun letzten Endes keine Änderungen mehr machen bzw. falsche Eingaben machen.
    Ich denke so ist es am besten..!
    Option Strict On!

Facebook