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

发布网友发布时间：2022-05-02 07:54

共3个回答

热心网友时间：2023-10-12 14:00

在模块里定义一个全局变量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就可以了

欢迎追问。谢谢采纳

热心网友时间：2023-10-12 14:01

你把它当做一个窗体来写就行了，添加控件和代码都和窗一样啊！
一个文本框控件作输入，一个确定按钮，一个取消按钮，一个LABEL控件作提示
然后定义一个全局变量用来保存用户的输入以供其他窗体调用

热心网友时间：2023-10-12 14:01

做一个窗体来写就行了，添加控件和代码都和窗一样啊！