File: Microsoft\VisualBasic\Interaction.InputBoxHandler.vb
Web Access
Project: src\src\Microsoft.VisualBasic.Forms\src\Microsoft.VisualBasic.Forms.vbproj (Microsoft.VisualBasic.Forms)
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
 
Imports System.Windows.Forms
 
Namespace Microsoft.VisualBasic
 
    Partial Friend Module _Interaction
 
        Friend NotInheritable Class InputBoxHandler
            Private ReadOnly _defaultResponse As String
            Private ReadOnly _parentWindow As IWin32Window
            Private ReadOnly _prompt As String
            Private ReadOnly _title As String
            Private ReadOnly _xPos As Integer
            Private ReadOnly _yPos As Integer
            Private _exception As Exception
            Private _result As String
 
            Public Sub New(Prompt As String, Title As String, DefaultResponse As String, XPos As Integer, YPos As Integer, ParentWindow As IWin32Window)
                _prompt = Prompt
                _title = Title
                _defaultResponse = DefaultResponse
                _xPos = XPos
                _yPos = YPos
                _parentWindow = ParentWindow
            End Sub
 
            Friend ReadOnly Property Exception As Exception
                Get
                    Return _exception
                End Get
            End Property
 
            Public ReadOnly Property Result() As String
                Get
                    Return _result
                End Get
            End Property
 
            Public Sub StartHere()
                Try
                    _result = InternalInputBox(_prompt, _title, _defaultResponse, _xPos, _yPos, _parentWindow)
                Catch ex As Exception
                    _exception = ex
                End Try
            End Sub
 
        End Class
    End Module
End Namespace