copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - InputBox - Prüfen auf sich wiederholende Eingabe. Abbruch der Prüfung bei Eingabe eines bestimmten Zeichens
'
Option Explicit On
Option Strict On

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.[List].Clear()
        Me.TextBox1.Text = ""
        Me.CompareInputBoxInput()
        For Each Items As String In [List]
            Me.TextBox1.Text &= Items & System.Environment.NewLine()
        Next
    End Sub

    Private [List] As New List(Of String)
    Private Sub CompareInputBoxInput()
        Dim Result As String = ""
        Const Break As String = "?"
        Do
            Result = InputBox("Geben Sie einen Text ein.", "Bitte Text eingeben.")
            If [List].Contains(Result) Then
                MessageBox.Show("Der Text existiert bereits!")
            ElseIf Result = Break Then
                Exit Sub
            Else
                [List].Add(Result)
            End If
        Loop Until Result = Break
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .CenterToScreen()
            .Text = "InputBox - Pruefen auf sich wiederholende Eingabe. Abbruch der Pruefung bei Eingabe eines bestimmten Zeichens."
            .Button1.Text = "Test..."
            .Label1.Text = "Abbruchzeichen ist das Fragezeichen (?)."
        End With
    End Sub
End Class
Sourcecode Visual Basic