以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求返回逻辑值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24776)

--  作者:lihe60
--  发布时间:2012/10/22 23:01:00
--  求返回逻辑值

InputValue

InputValue函数用于显示一个对话框,获得用户输入的单个值。
这样我们就无需为一些简单的输入工作而专门设计窗口,直接使用InputValue函数即可。

语法:

InputValue(Variant, Caption,Description)

Variant:       用于接收数据的变量
Caption:      字符型,设置对话框标题
Description:  字符型,设置对话框说明

InputValue会返回一个逻辑值,如果用户在对话框中单击的是确定按钮,则返回True,否则返回False。

 

如何判断返回的逻辑值是true还是false? 

[此贴子已经被作者于2012-10-23 7:07:55编辑过]

--  作者:blueskyyq
--  发布时间:2012/10/22 23:35:00
--  

如果用户在对话框中单击的是确定按钮,则返回True,否则返回False

示例见http://www.foxtable.com/help/topics/2063.htm


--  作者:lihe60
--  发布时间:2012/10/23 7:07:00
--  
以下是引用blueskyyq在2012-10-22 23:35:00的发言:

如果用户在对话框中单击的是确定按钮,则返回True,否则返回False

示例见http://www.foxtable.com/help/topics/2063.htm

谢谢你的及时回复,不过你回的帖子与我发的帖子内容基本一致,相当于把我的问题再叙述一次。


--  作者:lin_hailun
--  发布时间:2012/10/23 8:43:00
--  
 呃,直接获取就行吧。

 Dim a As Boolean =  InputValue(val, "", "")

--  作者:blueskyyq
--  发布时间:2012/10/23 8:52:00
--  
 

Dim Val As Date
If InputValue
(Val, "筛选","请输入出生日期:") Then

    Output.Show(Val)
End If

 

If InputValue(Val, "筛选","请输入出生日期:") Then这个语句就会获得InputValue返回的逻辑值,你在弹出的窗口点确定返回True,会执行
Output.Show(Val),点取消返回False,就不会执行

If InputValue(Val, "筛选","请输入出生日期:") Then其实就是
If InputValue(Val, "筛选","请输入出生日期:") = True Then