TryAgainQuestionForExistItem

vblover programmer - Nov 9 - - Dev Community
    Function TryAgainQuestionForExistItem(ItemName As String, ID As Object) As Boolean
        Console.Clear()
        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("{0} {1} already Exists, with same ID: ({2})!", vbTab, ItemName, ID)
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine("{0} Do you want to try again?", vbTab)
        Console.ForegroundColor = ConsoleColor.White
        Console.Write("{0} Type Y[es] to Accept: ", vbTab)
        Console.ForegroundColor = ConsoleColor.Gray
        Value = Console.ReadLine
        'If Value.Length = 0 Then Return False
        Select Case Value.Trim.ToLower
            Case "y", "yes"
                Console.Clear()
                Return True
            Case Else
                Return False
        End Select
    End Function
Enter fullscreen mode Exit fullscreen mode
. . . . . . .