你如何让Me.DialogResult成为visual basic中的一个字符串？

Question

如何制作自定义InputBox，或者更重要的是：如何将Me.DialogResult设为字符串？

这是我试过的：

Public Function Display(ByVal Information As String) As DialogResult
        Dim inputbox22 As New CustomInputDialog
        inputbox22.StartPosition = FormStartPosition.CenterScreen
    Return inputbox22.DialogResult()
End Function

Private Function strtest() as integer
    Me.DialogResult = TextBox1
End Function

我一直在努力工作几个小时，绝对不想使用InputBox()。

Answer 1

DialogResult将始终保持其中一个值<!--，vbYes，vbNo，vbOk，vbCancel，vbAbort，{{1} }。它们实际上是数字，不能将文本作为DialogResult传递。

您可以随时创建输入表单，例如：

• 文本框

• 确认按钮

• 取消按钮

然后使用ShowDialog() method调用您的表单，关闭后，您可以读取文本框的值。请参阅上述MSDN文章中的整个过程的代码示例。