Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2022 - 12 48
    123
45678910
11121314151617
18192021222324
25262728293031


站点统计

最新日志
获得磁盘的文件系统 [源码]使用jmail发邮件
晴天 带有返回值的InputBox函数   [ 日期:2008-12-30 ]
'/写在前面:

'/对于INPUTBOX函数 , 头疼的是, 如果不填东东, OK和cancel的传回值是一样的
'/VB中的解释是“StrPtr:返回真正的UNICODE字符串缓冲区的地址”
'/利用这一特性,制作了这个有返回值的InputBox函数...

程序代码:[ 复制代码 ] 
Option Explicit

'InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Public Function InputBoxQ(ByVal prompt As String, Optional ByVal title As String, Optional ByVal default As String, Optional cancel As Long, Optional ByVal xpos As Long, Optional ByVal ypos As Long, Optional ByVal helpfile As String, Optional ByVal context As Long) As String
    
    '/cancel 参数就是代表返回值,返回为0表示选择了取消
    '/其它参数和原来InputBox一样
    
    InputBoxQ = InputBox(prompt, title, default, xpos, ypos, helpfile, context)
    cancel = StrPtr(InputBoxQ)
End Function
Private Sub Command1_Click()
    Dim lngQ As Long, strS As String
    strS = InputBoxQ("asdfa", "sdfasf", , lngQ)
    If lngQ = 0 Then
        MsgBox "inputbox choosed cancel"
    Else
        MsgBox strS
    End If
End Sub



相关链接:vb,,返回值,InputBox,函数

[阅读字体大小: ]
[本日志由 admin 于 2013-11-01 11:02 PM 编辑]
引用通告地址 (0):
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=66
复制引用地址http://www.cnng.net/blog/trackback.asp?tbID=66&CP=GBK
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情