InputBoxEx 输入对话框

CreateObject("WWSCommon.InputBoxEx")

该组件实现了增强型 InputBox 的功能，可以实现对日期和其他掩码的输入功能。

属性

属性	说明
Text	对话框上的文字字符串，该值可以是对话框初始显示时的值，并将在用户按下“确定”按钮后被新输入的字符串所代替
Type	决定文本输入框的功能，缺省值为0，可以为下列值之一： 0 普通文本输入框。 1 控件提供受限制的数据输入及格式化的数据输出，使用此风格时您必须设置Masked属性。 2 控件提供受限制的日期与时间格式化输出，使用此风格时您必须设置Masked属性。
		掩码	描述
	当Type=2时	YYYY.MM.DD hh:mm:ss	增强型日期/时间掩码。例如：1978.05.10 12:30:15
	当Type=1时	Null String （缺省）	有定义掩码，等同于标准文本框。
		##-???-##	中间日期 (US)。例如：20-May-92
		##-##-##	短日期 (US)。例如：05-20-92
		##:## ??	中间时间。例如：05:36 AM
		##:##	短时间。例如：17:23
Masked	输入掩码可包含以下字符：
	掩码字符	描述
	#	数字位置
	.	小数点位置。实际使用的字符就是在区域设置中指定的小数点定位符。该字符是用于掩码的原义字符
	,	千分号。实际使用的字符就是在区域设置中指定的小数点定位符。该字符是用于掩码的原义字符
	:	时间分隔符。实际使用的字符就是在区域设置中指定的小数点定位符。该字符是用于掩码的原义字符
	/	日期分隔符。实际使用的字符就是在区域设置中指定的小数点定位符。该字符是用于掩码的原义字符
	\	视掩码字符串中的下一字符为原义字符。这就允许掩码中包含 '#', '&', 'A', 以及 '?' 字符。该字符是用于掩码 的原义字符
	&	字符占位符。占位符的有效值是 32-126 以及 128-255 之间的字符
	>	将其后所有字母转换成大写
	<	将其后所有字母转换成小写
	A	数字或字母占位符（需要的输入）。例如：a - z， A - Z，或 0 - 9
	a	数字或字母占位符。（可选的输入）
	9	数字占位符。（可选的输入）。例如：0- 9
	C	字符或空格占位符。（可选的输入）。此操作与 & 占位符完全相同，并且与 Microsoft Access 兼容
	?	字母占位符。例如：a - z 或 A- Z
	Literal	其它所有符号都作为用原义字符来显示；也就是说，用和它们自身相同的形式显示
Title	对话框标题栏文字内容
Description	提示性描述
MaxLength	文本输入最大长度，缺省值为50，当Type属性为1时，最大值不能超过64
PasswordChar	输入字符时是否需要加密内容，缺省为False。该属性只有当Type属性为0时才有效
AllowEmpty	是否允许空值,若为1是表示允许,为0表示用户必须要输入内容后才能点击"确定"按钮后返回

方法

方法	说明
DoModal	调用此函数来显示消息框，并返回一个值指示用户单击的按钮。此方法的返回值如下： 1 确定 2 取消

示例

Sub test_InputBox()

    '创建一个变量
    Dim obj
    Set obj = CreateObject("WWSCommon.InputBoxEx")
    obj.Title = "金字塔"
    
    obj.Description = "交易金额"
    obj.Type=0'普通文本框
    result = obj.DoModal
    if result = 1 then
        msgbox "支出"&obj.text&"元"
    end if
End Sub

Sub Date_InputBox()

	Dim obj
	Set obj = CreateObject("WWSCommon.InputBoxEx")
	obj.Title = "金字塔"
	obj.Description = "日期"
	obj.Type=2
	obj.Masked="YYYY.MM.DD hh:mm:ss"
	result = obj.DoModal
	if result = 1 then
 		msgbox obj.Masked
	end if

End Sub