一个inputbox问题 手头资料有限 问大家了

[Rocky_]

inputbox及msgbox都提供helpfile及context这两个成对属性
请问如何在inputbox对话框中显示出"帮助按钮"
即这两个属性的使用方法

请小举一个例子 谢谢了

[tigerwen01]

InputBox函数,语法格式：
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

InputBox函数的语法具有以下几个命名参数，含义如下：
1、prompt：必要。作为对话框消息出现的字符串表达式。prompt的最大长度大约是1024个字符，由所用字符的宽度决定。如果prompt包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))来分隔。
2、title：可选。对话框的标题，如果省略title，则把应用程序名放入标题栏中。
3、default：可选。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略default，则文本框为空。
4、xpos和ypos：可选。数值表达式，分别用来指定对话框的左边与屏幕左边的水平距离和指定对话框的上边与屏幕上边的距离。两者必须成对出现，如果省略xpos和ypos，则对话框会在水平方向居中，在屏幕垂直方向距下边大约三分之一的位置。
5、helpfile和context：可选，两者也必须成对出现。“helpfile”是字符串表达式，用来表示该对话框的帮助文件，提供上下文相关的帮助；而“context”是数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果同时提供了helpfile与context，用户可以按F1来查看与context相应的帮助主题。
以下是一个例子：
<script language="vbscript">
Private Sub but_OnClick()
msg = "Enter Your Name"
GetName = InputBox(msg, "输入姓名", "默认文本",100,200,"filename",0)
End Sub
</script>
<input type=button name=but value=按钮>

[Rocky_]

To:tigerwen01(小虎)(编程艺术化)
GetName = InputBox(msg, "输入姓名", "默认文本",100,200,"filename",0)
filename是文件名字符串 还是.chm文件还是.txt文件? 我试过都不行

To:superdullwolf(超级大笨狼,每天要自强,MVP)
如果同时提供了 helpfile 和 context，就会在对话框中自动添加“帮助”按钮.
请问如何提供helpfile用context
我无论如何都没出现"帮助"按钮

[超级大笨狼]

Visual Basic Scripting Edition

InputBox 函数
请参阅
MsgBox 函数
要求
版本 1
在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。

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，就会在对话框中自动添加“帮助”按钮。

如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 ("")。

下面例子利用 InputBox 函数显示一输入框并且把字符串赋值给输入变量：

Dim Input
Input = InputBox("输入名字")
MsgBox ("输入：" & Input)