用vb怎样编一个跟inputbox函数一模一样的自定义函数，请写出代码即可，控件我自己加！

在模块里定义一个全局变量Public InputBoxText as String

新建一个窗体名字叫frmInputBox，画一个Label1作为显示文字的控件
画一个TextBox名字叫txtInput，在画一个Command命名为cmdOK
做一个函数
Function ShowInputBox(sNote as String,sTitle as String) As String
frmInputBox.Show 1
frmInputBox.Label1.Text = sNote
frmInputBox.Caption=sTitle
End Function
窗体里面按OK的代码里加一句InputBoxText = txtInput.Text就可以了

欢迎追问。谢谢采纳

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yxex37r3e.html