inputbox调出来之后，怎能知道用户点了Cancel？

Question

主要是想知道取消之后
还要做一些动作

Answer 1

Private Sub Form_Load()
    Dim str As String
    Dim Cancel As Boolean
    
    str = InputBox("")
    Cancel = Not CBool(StrPtr(str))
    MsgBox Cancel
End Sub

Answer 2

dim GetString as string
     Getstring=input("asdfs","input")
 IF getstring="" then ...

Answer 3

请问一楼的，“StrPtr(str)”是什么意思？我查了帮助文档，没有“StrPtr”函数啊！

Answer 4

那个函数的意思是取一个字符串变量的内存地址.因为vb6不能传递Unicode字符串给WinAPI.Dim str As String
Dim Cancel As Boolean
    
str = InputBox("")
Cancel = Not CBool(StrPtr(str))
MsgBox Cancel人家的代码是正确的.这么短的代码我不清楚你们为什么不调试看看,乱说话是要负责任的..........

Answer 5

赞成支持 Modest(塞北雪貂)的思想

Answer 6

Dim str As String
    Dim Cancel As Boolean
    Dim l As Long
    str = InputBox("")
    l = StrPtr(str)'如果你点了“取消”，str没有被分配内存，l=0,因为strptr是字符串变量的内存地址的
    Cancel = Not CBool(l)
    MsgBox Cancel