VBS脚本 Inputbox 能同时用3个吗 怎么用 或其它能做到的
VBS脚本Inputbox能同时用3个吗怎么用或其它能做到的我想弄成三个的这是我编辑的图我是个菜鸟...
VBS脚本 Inputbox 能同时用3个吗 怎么用 或其它能做到的
我想弄成三个的 这是我编辑的图
我是个 菜鸟 展开
我想弄成三个的 这是我编辑的图
我是个 菜鸟 展开
展开全部
一次显示三个输入框不行，不懂就看看 inputbox函数的资料
输入框函数,即InputBox()函数,显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息. 其语法格式:变量=InputBox(信息内容,对话框标题,默认内容)。得到的内容为字符类型。如果输入的为数值 需要用类型转换函数如cint(变量) 在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。
格式：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Prompt 必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。 Title 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。 Default 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。 Xpos 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。 Ypos 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。 Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。 Context 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。
说明
如果同时提供了 helpfile 与 context，用户可以按 F1 来查看与 context 相应的帮助主题。某些主应用程序，例如，Microsoft Excel，会在对话框中自动添加一个 Help 按钮。如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。 注意 如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。
输入框函数,即InputBox()函数,显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息. 其语法格式:变量=InputBox(信息内容,对话框标题,默认内容)。得到的内容为字符类型。如果输入的为数值 需要用类型转换函数如cint(变量) 在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。
格式：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Prompt 必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。 Title 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。 Default 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。 Xpos 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。 Ypos 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。 Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。 Context 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。
说明
如果同时提供了 helpfile 与 context，用户可以按 F1 来查看与 context 相应的帮助主题。某些主应用程序，例如，Microsoft Excel，会在对话框中自动添加一个 Help 按钮。如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。 注意 如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。
参考资料： http://baike.baidu.com/view/1177973.html?wtp=tt
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
InputBox 是内置的函数,只能有一个输入框
当然你可以对输入的字符串进行处理,其实在计算机的最底层,
数据都是一维(线性)的,比如用空格隔开,用逗号隔开等等
VB中也可以自定义一个函数,将Form.Show 1 代码用上就可以了
其实就是显示一个模式窗体,等待用户操作
VBS就难办了,用第一种方法是最理想的
当然你可以对输入的字符串进行处理,其实在计算机的最底层,
数据都是一维(线性)的,比如用空格隔开,用逗号隔开等等
VB中也可以自定义一个函数,将Form.Show 1 代码用上就可以了
其实就是显示一个模式窗体,等待用户操作
VBS就难办了,用第一种方法是最理想的
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
马马虎虎凑合着来，你那个界面不好弄。我从网上找到另一个效果的，和你那差不多，你可以在 sub aaa()里，把这三个输入框的值赋给你自己的变量。
set oIE = WScript.CreateObject("InternetExplorer.Application","Event_")
With oIE
.MenuBar = 0
.StatusBar = 0
.AddressBar = 0
.ToolBar = 0
.Height = 150
.Width = 200
.Navigate "about:blank"
.Visible = 1
.Document.Write "<HTML><BODY scroll='no'><input id='input1'><br>"
.Document.Write "<input id='input2'><br><input id='input3'>"
.Document.Write "<BUTTON id='btn'>确定</BUTTON></BODY></HTML>"
End With
Set oIE.Document.getElementById("btn").OnClick = GetRef("aaa")
Do
WScript.Sleep 200
Loop
Sub aaa
Dim st1,st2,st3
st1 = oIE.Document.getElementById("input1").Value & VbCrLf
st2 = oIE.Document.getElementById("input2").Value & VbCrLf
st3 = oIE.Document.getElementById("input3").Value
msgbox st1
msgbox st2
msgbox st3
End Sub
Sub Event_OnQuit
WScript.Quit
End Sub
set oIE = WScript.CreateObject("InternetExplorer.Application","Event_")
With oIE
.MenuBar = 0
.StatusBar = 0
.AddressBar = 0
.ToolBar = 0
.Height = 150
.Width = 200
.Navigate "about:blank"
.Visible = 1
.Document.Write "<HTML><BODY scroll='no'><input id='input1'><br>"
.Document.Write "<input id='input2'><br><input id='input3'>"
.Document.Write "<BUTTON id='btn'>确定</BUTTON></BODY></HTML>"
End With
Set oIE.Document.getElementById("btn").OnClick = GetRef("aaa")
Do
WScript.Sleep 200
Loop
Sub aaa
Dim st1,st2,st3
st1 = oIE.Document.getElementById("input1").Value & VbCrLf
st2 = oIE.Document.getElementById("input2").Value & VbCrLf
st3 = oIE.Document.getElementById("input3").Value
msgbox st1
msgbox st2
msgbox st3
End Sub
Sub Event_OnQuit
WScript.Quit
End Sub
参考资料： http://www.cn-dos.net/forum/viewthread.php?tid=46289
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
private sub form1_load()
dim a as string, b as string, c as string
a=inputbox("") '在第一个对话框内输入值，并赋值给a
text1.text=a '将a的值放入第一个文本框（标题1下面的那个）
b=inputbox("") '同上
text2.text=b
c=inputbox("")
text3.text=c
end sub
inputbox同时只能出现一个，不过并不妨碍多次出现。
http://baike.baidu.com/view/1177973.html?wtp=tt 这个是inputbox的相关资料。你可以看看。
dim a as string, b as string, c as string
a=inputbox("") '在第一个对话框内输入值，并赋值给a
text1.text=a '将a的值放入第一个文本框（标题1下面的那个）
b=inputbox("") '同上
text2.text=b
c=inputbox("")
text3.text=c
end sub
inputbox同时只能出现一个，不过并不妨碍多次出现。
http://baike.baidu.com/view/1177973.html?wtp=tt 这个是inputbox的相关资料。你可以看看。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
