Probleme mit der Inputbox

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    Probleme mit der Inputbox

    Hallo zusammen,

    ich verstehe die Welt nicht mehr.

    Habe folgende Sub geschrieben
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Automatisch_Unterverzeichnisse(Pfad As String)
    3. ' *************************************************************************
    4. ' Fragt aus dem kpl. Pfad die evtl. vorhandenen Unterverzeichnisse 1 + 2 ab
    5. ' Hierzu werden alle Verzeichnisse getrennt und ab dem zweiten kann dann jeweils die Auswahl für das erste oder zweite Unterverzeichnis gewählt werden
    6. ' *************************************************************************
    8. ' Hilfsvariablen anlegen
    9. Dim VerzNamen() As String
    10. Dim AnzeigeWerte As String
    11. Dim Auswahl As String
    13. ' Die Verzeichnisteile ermitteln
    14. VerzNamen = Split(Pfad, "\")
    15. AnzeigeWerte = "Welche Zahl soll das Unterverzeichnis 2 darstellen?" & vbCrLf & vbCrLf
    17. ' Den Text für die Abfrage erstellen
    18. ' Da die Unterverzeichnisse meist die letzten sind, wird die Anzeige auch von hinten nach vorne erstellt.
    19. ' 0 ist der Laufwerksbuchstabe, daher wird dieser ausgelassen
    20. For z = UBound(VerzNamen) To 1 Step -1
    22. ' Prüfen, ob es sich nicht um folgende Verzeichnisse handelt
    23. ' Folge, CD und MM - Verzeichnisse
    24. If InStr(UCase(VerzNamen(z)), "CD") = 0 And InStr(UCase(VerzNamen(z)), "FOLGE") = 0 And UCase(VerzNamen(z)) <> "MM" Then
    26. ' Anzeigetext erstellen
    27. AnzeigeWerte = AnzeigeWerte & Format(z, "00") & " = " & VerzNamen(z) & vbCrLf
    29. End If
    31. Next
    33. ' Noch eine 'Abbruch' - Möglichkeit einbauen
    34. AnzeigeWerte = AnzeigeWerte & "00 = gibt es nicht, weiter mit Unterverzeichnis 1"
    36. If MsgBox("Sind in dem Pfad" & vbCrLf & vbCrLf &
    37. Pfad & vbCrLf & vbCrLf &
    38. "1 oder 2 Unterverzeichnisse vorhanden?",
    39. MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question + vbYesNo,
    40. "Unterverzeichnisse vorhanden?") = MsgBoxResult.Yes Then
    42. ' Auswahl = InputBox("Welche Zahl soll das Unterverzeichnis 2 darstellen?" & vbCrLf & vbCrLf &
    43. 'AnzeigeWerte & "00 = gibt es nicht, weiter mit Unterverzeichnis 1")
    44. MsgBox(AnzeigeWerte & vbCrLf & vbCrLf & Len(AnzeigeWerte))
    46. Auswahl = InputBox(AnzeigeWerte)
    48. End If
    50. End Sub


    Wenn ich jetzt über call Automatisch_Unterverzeichnisse("E:\Test 1\Test 2\Folge 001\CD 01") mir das bisherige Ergebnis anzeigen lassen möchte, dann wird mir die Zeile mit '00 = ...' nicht in der Inputbox angezeigt. In der vorherigen MSGBox aber schon.

    Kann mir mal einer hier den Fehler nennen? Wie kann es sein, dass in der nächsten Zeile der vorherige Wert nicht mehr da ist?

    Auf diese Antwort bin ich mal gespannt. Oder gibt es hier ein Bug in VB.Net 2017?

    Gruß

    Volker

    CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Hallo,
    ich kann dein Problem nicht nachstellen. Bei mir wird alles in der Inputbox wie in der Messagebox dargestellt:
    Messagebox

    Brainfuck-Quellcode

    1. ---------------------------
    2. Microsoft.VisualBasic.Core
    3. ---------------------------
    4. Welche Zahl soll das Unterverzeichnis 2 darstellen?
    6. 02 = Test 2
    8. 01 = Test 1
    10. 00 = gibt es nicht, weiter mit Unterverzeichnis 1
    12. 130
    13. ---------------------------
    14. OK
    15. ---------------------------


    Ich musste erstmal den VB6-Namespace importieren und auf Option Strict Off schalten, bis es klappte <X

    Der gewünschte Text ist (wahrscheinlich) hinter der Eingabezeile. Häng noch zwei Leerzeilen dran und er ist sichtbar

    VB.NET-Quellcode

    1. Auswahl = InputBox(AnzeigeWerte & vbCrLf & vbCrLf)

    Ein weiterer Grund für mich, sich eine eigene InputBox zu basteln.
    Bilder

    • InputBox.png

      6,36 kB, 804×208, 68 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo zusammen,

    vielen Dank für die Antworten.

    Habe es jetzt mit den zwei Leerzeilen gelöst bekommen.

    Komisch ist das Verhalten schon.

    Werde mir das mit der eigenen Inputbox mal ansehen. Hätte auch den Vorteil, dass man die Schrift einstellen kann, eigene Bilder anzeigen kein Problem mehr wäre.

    Ich glaube, dass werde ich gleich mal machen.

    Gruß

    Volker