أريد كود لجميع حالات inputbox

Dim Str As String

Str = InputBox("Please Input The Project Name")

If Str = "" Then

MsgBox("cannot save empty data")

Exit Sub

Else

txt_Name.Text = Str

End If

أخي الكريم

جربت الكود لكن عند الضغط على زر cancel فإنه يعطي رسالة

MsgBox("cannot save empty data")

عند الضغط على cancel  فان الداله تعود بـempty string فلا يمكن معرفة اذا تم الضغط على ok  بدون ادخال او cancel مع ادخال ا,,و بدون على كل الهدف من هذه الميثود هو الحصول على ادخال لا يهم اذا كان فارغ او cancel  فالنتيجة واحدة

اذا كان من الضرورى معرفة الحالاات الثلاث... انشئ customized control  بهذه الوظيفة

مثال سريع لعمل Custom InputBox

كود InputBoxEX  وهو dll Library

Public Class InputBox
    Public ReadOnly Property Input As String
        Get
            Input = TextBoxInput.Text.Trim
        End Get
    End Property
    Shared Function ShowInput(Optional ByVal message As String = "", Optional ByVal title As String = "") As Dictionary(Of Integer, String)
        Dim input = New InputBox
        input.LabelTitle.Text = message
        input.Text = title

        Dim result As New Dictionary(Of Integer, String)
        result.Add(input.ShowDialog(), input.Input)


        Return result
    End Function

   
End Class

كود Test Project

Imports InputBoxEx.InputBox
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim result As New Dictionary(Of Integer, String)
        result = ShowInput("enter data", "here is title")
        If result.Keys.FirstOrDefault = 1 Then
            If result.Item(1).Length <> 0 Then
                MessageBox.Show("your input is: " + result.Item(1))
            Else
                MessageBox.Show("cannot save empty data")
            End If
        Else
            MessageBox.Show("Cancle or close button clicked")
        End If
    End Sub
End Class

InputBoxEx.rar

جزاك الله خيرا