编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 控制结构 > VB6 控制结构 InputBox函数

VB6 控制结构 InputBox函数

格式:InputBox(提示[,标题][,缺省][,x 坐标位置][,y坐标位置])

其中:

“提示”:字符串表达式。表示在对话框中作为的提示信息;若要使提示信息在对话框中多行显示,必须在每行末加上chr(13)+chr(10)控制符或VB常数vbCrLf。

如:InputBox("一行" & vbCrLf & "二行" & vbCrLf & "三行", "标题", 1, 1000, 2000)

“标题”: 字符串表达式,对话框标题栏的标题,若缺省,则标题栏标题为应用程序名称。“缺省”:用户不在输入区输入数据,则函数返回这个输入区中的缺省值。函数返回的数据类型是字符类型。


“x 坐标位置,y坐标位置”:整型表达式,表示对话框出现在屏幕中的位置。


例要在屏幕上显示如下的对话框:

注意:

各参数位置次数必须一一对应,除了提示一项不可省,其余各项均可省略。处于中间的省略要用逗号占位符。


如果你在对话框中按下了取消按钮,那么函数将返回一个空字符串""(即使有默认值也是如此,这时如果直接赋给数值变量就会出现类型错误)。


InputBox也可以过程的形式使用,但此时它起不了输入的作用了。

[例4.1]

程序代码(form2):

Option Explicit
Dim strName As String
Private Sub MySub()
    Dim strS1 As String
    strS1 = "请输入你要借的的参考书名" + Chr(13) + Chr(10) _
          & "然后单击确定"
    strName = InputBox(strS1, "借书请求单", "学用 Visual Basic 6.0", 2000, 3000)
End Sub

Private Sub Command1_Click()  '返回
    Unload(Me) '删除窗体Form2
    Form1.Show()
End Sub

Private Sub Form_Load()
    Form2.Caption = "借书通知单"
    Call MySub()
    Label1.BorderStyle = 1
    Label1.WordWrap = True
    Label1.AutoSize = True
    If (strName = "") Then   '按下了取消按钮或Esc键
        Label1.Caption = "  请你务必填好借书请求单,再来借书!"
    Else  '按下了确定按钮或回车键
        Label1.Caption = "你要借的书"" & Trim(strName) + ""书库中还有,请到602书架去取。"
    End If
End Sub



编程学习 VB6 控制结构 InputBox函数 转载请保留此行.谢谢.

VB6