设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1861|回复: 3
打印 上一主题 下一主题

[与其它组件] 请教: Inputbox 函数

[复制链接]
跳转到指定楼层
1#
发表于 2006-10-23 01:37:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请教各位:

当我用一个 INPUTBOX 函数时,返回一个自己输入的值,这个值的名称是什么呢,如果我要引用这个值,该如何用呢?

先谢谢了!

今天是周末,祝大家周末愉快!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-10-23 01:55:00 | 只看该作者
InputBox 函数示例

本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值,则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键,则变量
  1. MyValue
复制代码
保存用户输入的数据。如果用户单击“取消”按钮,则返回一零长度字符串。
  1. Dim Message, Title, Default, MyValue

  2. Message = "Enter a value between 1 and 3"    '
复制代码
设置提示信息。

  1. Title = "InputBox Demo"    '
复制代码
设置标题。

  1. Default = "1"    '
复制代码
设置缺省值。

  1. '
复制代码
显示信息、标题及缺省值。

  1. MyValue = InputBox(Message, Title, Default)
复制代码



  1. '
复制代码
使用帮助文件及上下文。“帮助”按钮便会自动出现。

  1. MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)
复制代码



  1. '
复制代码
  1. 100, 100
复制代码
的位置显示对话框。

  1. MyValue = InputBox(Message, Title, Default, 100, 100)
复制代码

3#
 楼主| 发表于 2006-10-23 03:09:00 | 只看该作者
谢谢 andymark

帮助我看了,但不太明白才来这里问的,能不能给我一个直接点的例子啊,

别嫌我笨,我在努力

好人一生平安

[此贴子已经被作者于2006-10-22 19:13:26编辑过]

4#
发表于 2006-10-23 03:40:00 | 只看该作者
以下是引用ok123.1在2006-10-22 19:09:00的发言:


谢谢 andymark

帮助我看了,但不太明白才来这里问的,能不能给我一个直接点的例子啊,

别嫌我笨,我在努力

好人一生平安



     MyValue = InputBox(Message, Title, Default)

     调用 MyValue 的值
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-2 01:47 , Processed in 0.099018 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表