能不能让inputbox对话框没有“取消”按钮？

guihuawc

能不能让inputbox对话框没有“取消”按钮？
a = InputBox("请输管理员密码：", "确认", 0)
谢谢

zhyzhsh

好像不行吧，如果点了取消返回是空字符串，可以提示用户并再次弹出inputbox。

zyg365

不可以！！！！！！！！！！！！

lhdcxz

哦，说错了。如果你实在不想要“取消”按钮，就改用窗体。
Private Sub Worksheet_Activate()
UserForm1.Show '本表激活时出现
End Sub

Dim Password$
Private Sub CommandButton1_Click() '
If (Password = "123") Then
Unload Me
Else
  MsgBox "来者的密码 “" & Password & " ”不对", 32, "！！！"
  End If
End Sub

Private Sub CommandButton2_Click()
Application.EnableEvents = False '禁止触发事
Unload Me
Application.EnableEvents = True '触发事
End Sub

Private Sub TextBox1_Change()
Password = TextBox1.Text
End Sub


或者
Dim rng As String
rng = Application.InputBox("请输入管理员密码确认")
If rng = "False" Then
    Exit Sub
End If

[ 本帖最后由 lhdcxz 于 2009-4-15 12:31 编辑 ]

maditate

想法很好，等你去开发。

wtqzhjb

不想要取消按钮，可能是想让取消按钮无效。
可以用判断方法，一旦输入为空，返回焦点。

987654321

如果不想要'取消",建议采用"窗体"来做

小fisher

附件： inputbox.rar (20.37 KB, 下载次数: 219)

2009-4-15 18:31 上传

点击文件名下载附件

运行效果：
(空字符串）

(任意文本）


[ 本帖最后由 小fisher 于 2009-4-15 18:31 编辑 ]

northwolves

原帖由 小fisher 于 2009-4-15 17:20 发表
附件：494996
运行效果：
(空字符串）
494997
(任意文本）
494998

辛苦了！
英文版无效，改哪里？

小fisher

原帖由 northwolves 于 2009-4-15 17:28 发表


辛苦了！
英文版无效，改哪里？

改操作系统：）开个玩笑
这里面没有涉及到语言啊，本来两个按钮是按照Caption来得到的，后来考虑到其他语言的操作系统才按类名和相对位置来查找的。
要不然你用spy++看一下Inputbox主窗口的类名是不是"#32770"，两个按钮的类名是"Button"这个应该会一致。