[VBA程序]：请帮忙，实现空格的功能

xsquan

code：

acadobj.ActiveDocument.Utility.InitializeUserInput 1, "Yes No"
Dim returnString As String
returnString = acadobj.ActiveDocument.Utility.GetKeyword("请选择(继续 Yes)  或者 (结束 No): ")
我想问应该怎么样做才能实现我按空格就相当于和按回车一样
一按空格就表示我的输入完成呢？

efan2000

以下是InitializeUserInput的用法，它可以解决这个问题，只有将Bits设为不包含1，即不为奇数就可以。

1. 
   
2.   [FONT=courier new]
   
3. object.InitializeUserInput Bits[, Keyword]
   
4. 
   
5. Object        Utility
   
6. Bits        Integer; input-only
   
7. 在同一时候以任意组合组（将值相加）作为控制条件。如果这个值没有指定或者为零，则不设置控制条件。
   
8. 1:        不允许空输入。
   
9. 这个控制条件禁止用户按回车键或者空格键来响应请求。  [/FONT]
   

复制代码