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

lngjw 2003-05-14 09:06:00
用一个command button,点击后弹出输入框,取回输入值,如何写代码啊。。。
sMSG为输入值,test为取回后调用,中间代码如何插。
Private Sub Command_Click()
Dim sMSG As String
Call test(sMSG)
End Sub
...全文
12 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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=""说明用户取消或没有输入数据
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-14 09:06
社区公告
暂无公告