"Option Strict On" lässt spätes Binden nicht zu.

  • VB.NET

Es gibt 44 Antworten in diesem Thema. Der letzte Beitrag () ist von sonne75.

    MarvinKleinMusic schrieb:

    CustomTextBox124

    Warum denn nicht endlich ein DataGridView? :cursing:
    #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 :!:

    Ich hab immer mehr das Gefühl, dass wir an der richtigen Lösung vorbeitrudeln.

    Was soll denn der Code machen? Also was ist das Ziel? Welche Daten werden eingegeben? Was wird überprüft? Wenns ne Uhrzeit ist, geht das auch anders...
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    sonne75 schrieb:

    ((KeyCode >= 48 AndAlso KeyCode <= 57) OrElse KeyCode = 8) AndAlso txtSender.Text.Length = 4 Then

    So sperrt er das Feld schon ab dem : ?(

    BiedermannS schrieb:

    Ich hab immer mehr das Gefühl, dass wir an der richtigen Lösung vorbeitrudeln.

    Was soll denn der Code machen? Also was ist das Ziel? Welche Daten werden eingegeben? Was wird überprüft? Wenns ne Uhrzeit ist, geht das auch anders...
    Ja es soll eine Uhrzeit Darstellen im Format 12:05 (Sprich jeweils 4 Zahlen und ein : als Trenner).

    In einer Funktion im Programm werden dann die Zahlen vor und nach dem Doppelpunkt getrennt.

    Die Funktion soll jetzt nur den Ausrechnen Buttonsperren falls ein Rotes Feld besteht , um Fehler bei der Rechung zu vermeiden.

    sonne75 schrieb:


    Wieso? Da müssen doch 4 Zeichen sein?
    Wenn ich jetzt Beispielsweise 00:00 eingeben will geht es nur bis 00: bei jeden weiteren Tastendrücken kommt nur ein Geräusch.

    LG

    Warum nicht gleich so.

    Also, anstatt die einzelnen Zeichen zu prüfen, wird der ganze Text geprüft. Also im TextChanged Event.

    Das Prüfen einer Zeit kann mit DateTime.TryParse gemacht werden:

    VB.NET-Quellcode

    1. Private Sub TextBox1_TextChanged(sender As Object, e As System.EventArgs) Handles TextBox1.TextChanged
    2. Dim txtSender As TextBox = DirectCast(sender, TextBox)
    4. Dim time As DateTime
    6. If DateTime.TryParse(txtSender.Text, time) Then
    7. txtSender.ForeColor = Color.Green
    8. rechnen.Enabled = True
    9. Else
    10. txtSender.ForeColor = Color.Red
    11. rechnen.Enabled = False
    12. End If
    13. End Sub


    Wenn du danach damit arbeitest, kannst du den Text als DateTime Parsen und über die Eigenschaften Hour und Minute auf die entsprechenden Werte zugreifen.

    P.S.: Das mit der Rücktaste geht nicht, weil deine Methoden deklaration falsch war (Die Parameter wurden als Value übergeben). Da ich diese richtiggestellt habe, hat der Code welcher die Eigenschaft KeyChar löscht nun den KeyChar so wirklich gelöscht und ist nicht mehr zur TextBox durchgekommen.

    Solche Überprüfungen sollten immer auf den gesamten String angewandt werden und nicht auf die einzelnen Zeichen. Wenn du nun noch beginnst mit Date zu arbeiten, dann wird das auch kein Problem mehr sein wenn man 22:2 hinschreibt. Das ist nämlich genauso eine richtige Uhrzeit wie 22:02.
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Hallo nochmal!

    Jetzt Funktioniert die Farbanzeige Perfekt & auch die Rücktaste geht. Allerdings auch alle anderen Buchstaben , ebenso ist es möglich das System auszutricksen , indem man einfach in der zweiten Textbox den Wert Grün stellt.

    Sprich es sollen nur Zahlen und : erlaubt sein & der Rechnen Button muss solange auf false sein bis alle Werte die eingetragen sind auch wirklich Grün sind.

    LG

    PS: Ich schau mir mal die Datetime Funktion etwas genauer an ;)

    MarvinKleinMusic schrieb:

    Sprich es sollen nur Zahlen und : erlaubt sein [...]

    Dann ist vielleicht die MaskedTextBox ja was für dich?

    Mein Vorschlag wäre wieder den Tag zu verwenden, damit du im Designer die TextBoxen kennzeichnen kannst, die in die Überprüfung miteinbezogen werden.

    Also erst mal schön in alle Tag Felder das Wort "this" hinein (Ohne Anführungszeichen)

    Danach werden alle Steuerelemente die in die Überprüfung miteinfließen in einer Variable gespeichert. Da die Überprüfung bereits bei der Eingabe stattfindet, würd ich hier ein Dictionary nehmen, welches einfach nur das Ergebnis der Überprüfung zur entsprechenden TextBox speichert.

    Wenn der Button zum Berechnen geklickt wird, wird noch eine kleine Funktion aufgerufen, welche überprüft ob alle Werte auf True gesetzt sind.

    z.B.:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Hier werden alle TextBoxen gespeichert und der entsprechende Wert, ob der eingegebene Text gültig ist
    2. Private CheckControls As New Dictionary(Of TextBox, Boolean)
    4. Sub Reg(ByVal TagString As String, ByVal parent As Control)
    5. 'Alle Steuerelemente durchlaufen
    6. For Each c As Control In parent.Controls
    7. 'Für alle untergeordneten Steuerelemente (Damit nichts vergessen wird)
    8. If c.HasChildren Then Reg(TagString, c)
    10. 'Wenn der Tag gesetzt wurde und dem Text in TagString entspricht und das Steuerelement eine TextBox ist
    11. If c.Tag IsNot Nothing AndAlso c.Tag.ToString = TagString AndAlso c.GetType() Is GetType(TextBox) Then
    13. 'TextBox in einem Dictionary speichern, mit dem Wert false
    14. CheckControls.Add(DirectCast(c, TextBox), False)
    16. 'entsprechenden Handler hinzufügen
    17. AddHandler c.TextChanged, AddressOf TextBox1_TextChanged
    18. End If
    19. Next
    20. End Sub
    22. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    23. 'In Form_Load werden die Handler gesetzt und die Elemente gesucht
    24. CheckControls.Clear()
    25. Reg("this", Me)
    26. End Sub
    28. 'Achtung, kein Handles am Ende der Sub
    29. Private Sub TextBox1_TextChanged(sender As Object, e As System.EventArgs)
    30. Dim txtSender As TextBox = DirectCast(sender, TextBox)
    32. Dim time As DateTime
    34. If DateTime.TryParse(txtSender.Text, time) Then
    35. txtSender.ForeColor = Color.Green
    37. 'Hier wird auf das Dictionary über die TextBox zugegriffen und der entsprechende Wert gesetzt
    38. CheckControls(txtSender) = True
    39. Else
    40. txtSender.ForeColor = Color.Red
    41. CheckControls(txtSender) = False
    42. End If
    43. End Sub
    45. 'Mit dieser Funktion kannst du überprüfen ob alle Werte auf True sind
    46. Function CheckAllValues() As Boolean
    47. Return CheckControls.Values.All(Function(value As Boolean) value)
    48. End Function


    Der Vorteil hier ist, wenn eine neue TextBox hinzukommt, brauchst du diese "nur" auf der Form platzieren, den Tag richtig setzen und in die Berechnung einbauen. Die Überprüfung erfolgt automatisch.
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    BiedermannS schrieb:

    Also erst mal schön in alle Tag Felder das Wort "this" hinein (Ohne Anführungszeichen)
    Welche Tag Felder meinst du?
    Ich habe jeweils1 Label für die Tages anzeige und dann 4 CustomTextBoxen zum Tag.

    LG

    Wenn du im Designer bist und dir die Eigenschaften der TextBox ansiehst, findest du eine Eigenschaft mit dem Namen Tag. Dabei handlet es sich nicht um das deutsche Wort Tag (also der tag im kalender), sondern um das englische, was etwas so viel bedeutet wie kennzeichen.
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    BiedermannS schrieb:

    Wenn du im Designer bist und dir die Eigenschaften der TextBox ansiehst, findest du eine Eigenschaft mit dem Namen Tag. Dabei handlet es sich nicht um das deutsche Wort Tag (also der tag im kalender), sondern um das englische, was etwas so viel bedeutet wie kennzeichen.
    Funktioniert wunderbar! Einziges Problem ist jetzt wieder das er schon bei 4 Zeichen die Textbox Grün färbt und nicht erst bei 5.

    LG

    BiedermannS schrieb:

    Das ist egal.

    22:2 = 22:02
    22:20 = 22:20

    Ist ja ne gültige Zeit :D

    Nein ist es nicht , das Programm braucht ein volles 5er Format zur berechnung:

    VB.NET-Quellcode

    1. Private Function BerechneDauer(ByRef BeginnStr As String, ByRef EndeStr As String) As Integer
    2. ' gibt die Dauer aus zwei Textfeldern als Ineger in Minuten zurück
    4. Dim Dauer1 As Integer
    5. Dim Dauer2 As Integer
    6. Dim Anfang, Ende As Integer
    8. 'ANFANG
    9. 'Stunden Anfang, WICHTIG: Stunden zweistellig!!
    10. Dauer1 = Convert.ToInt32(Microsoft.VisualBasic.Left(BeginnStr, 2))
    11. 'Minuten Anfang, WICHTIG: Minuten zweistellig!!
    12. Dauer2 = Convert.ToInt32(Microsoft.VisualBasic.Right(BeginnStr, 2))
    13. 'Anfang in Minuten umgerechnet
    14. 'Annahme ist, dass die Minuten in Dezimal angegeben sind, und erst umgerechnet werden müssen:
    15. Dim methode As New INIDatei
    16. methode.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Umrechner\settings.ini"
    17. If methode.WertLesen("General", "Methode") = "Dezimal" Then
    18. Anfang = CInt(Dauer1 * 60 + Dauer2 / 100 * 60)
    19. Else
    20. Anfang = Dauer1 * 60 + Dauer2
    21. End If
    23. 'ENDE
    24. 'Stunden Anfang, WICHTIG: Stunden zweistellig!!
    25. Dauer1 = Convert.ToInt32(Microsoft.VisualBasic.Left(EndeStr, 2))
    26. 'Minuten Anfang, WICHTIG: Minuten zweistellig!!
    27. Dauer2 = Convert.ToInt32(Microsoft.VisualBasic.Right(EndeStr, 2))
    28. 'Ende in Minuten umgerechnet
    29. 'Annahme ist, dass die Minuten in Dezimal angegeben sind, und erst umgerechnet werden müssen:
    30. If methode.WertLesen("General", "Methode") = "Dezimal" Then
    31. Ende = CInt(Dauer1 * 60 + Dauer2 / 100 * 60)
    32. Else
    33. Ende = Dauer1 * 60 + Dauer2
    34. End If
    37. 'Dauer vormittag in Minuten
    38. BerechneDauer = Ende - Anfang
    39. End Function


    mit left & right wird jeweils auf die zahlen vor und nach dem : zugegriffen.

    LG

    Splitten, dann mit dem Index arbeiten. Du solltest dir generell ne andere Struktur überlegen. INIDatei ist ein absolutes NoGo und auch Path.Combine() nutzen.
    #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 :!:

    Trade schrieb:

    INIDatei ist ein absolutes NoGo
    Find ich nicht für meinen Fall reicht eine ini Datei vollkommen aus. Außerdem heißt es nur so weil die Klasse auch so dafür heißt.

    LG

    Das mein ich nicht. Der Name ist absolut nicht gut. Deutsch passt da nich.
    #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 :!:

    Das ist nunmal die Klasse die ist komplett in Deutsch ausgelegt. Ich rufe ja auch die Funktionen mit WertLesen und WertSchreiben auf.

    Ich komme damit gut klar.

    LG

    Für Informatik mag das reichen, aber wenn man die Guidelines richtig beachtet und die Projekte passend gestalten will, dann sollte es halt englisch sein.
    #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 :!:

Facebook
Telefonspende