想在VB中做一个InputBox，怎么办？

Question

我觉得你用其它赋值方式，比如比较简单的：
新建一个FORM2，在FORM2上建一个TEXT控件text1，在FORM1上定义一个STRDATA变量，STRDATA=form2.text1.text也可以实现的。
FORM2这个窗体可以设计得比INPUTBOX窗体更好看!

Answer 1

先做好你的myform
然后编一个全局函数（myInputBox()）
里面调用它就可以了
处理：在用户按确定等按钮时先让form隐藏，保存所需值后unload(myform)就行了

Answer 2

To zhiboyi(易宁) ，老兄，你说得是不是太简单了，像你说的那样实现的话，是先出现form2后得到值，而我的却是在需要值时才出现窗体，如我有几个变量需要输入值，难道还要得让你那个Form2总是显现着吗？？

Answer 3

To： wiler(贼狼），你好，你说得有些道理，但这种办法能实现给任意窗体中的任意变量付值吗？

Answer 4

好，谢谢大家对我的热情帮助，我已经实现了myinputbox了，把wiler(贼狼) 和tchvb(tchvb) 两位所说的合起来，就实现了，原来这么简单，呵呵。好，我现在就结贴

Answer 5

Public Function MyInputBox()As String
    MyInputBox=FrmInput.Respond
End FunctionFrmInput'什么意思？给解释一下，我可不是高手！Public Respond as String
Private Sub Form_load
  Show VbModal
End SubPrivate Sub CmdOk_Click()
  Respobd=TxtInput
  Unload me
End SubPrivate Sub CmdCancel_Click()
  Respobd=""
  Unload me
End Sub

Answer 6

frminput 是给窗体起的名字，呵呵