弹出框求助,在线等待。。。

lngjw 2003-05-14 09:06:00
用一个command button,点击后弹出输入框,取回输入值,如何写代码啊。。。
sMSG为输入值,test为取回后调用,中间代码如何插。
Private Sub Command_Click()
Dim sMSG As String
Call test(sMSG)
End Sub
...全文
67 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
griefforyou 2003-05-14
  • 打赏
  • 举报
回复
Private Sub test(str)
MsgBox str
End Sub

Private Sub Command1_Click()
Dim sMSG As String
sMSG = InputBox("test", "xxx", "xxx")
Call test(sMSG)
End Sub
MoQi_123 2003-05-14
  • 打赏
  • 举报
回复
sMsg=inputbox("请输入数据","输入") ''弹出输入对话框并取得返回值
if sMsg="" then exit sub ''如果sMsg=""说明用户取消或没有输入数据

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧