高校问答fx冲撞气动原理:如何控制inputbox 中的“ok”和“cancel”？
来源：百度文库 编辑：高校问答 时间：2024/04/29 20:57:57
在VC编程中我想通过inputbox来对文件重命名，但是我无论点“ok”还是“cancel”所输出的结果都是一样的，我想要的结果是点“ok”就得到inputbox中的返回植，点“cancel”就无修改的返回。请问怎么来控制“ok”和“cancel”？
例如：AnsiString str=InputBox("重命名","输入新文件名","新文件");
//请问这里如何加入“ok”和“cancel”的控制语句呢？
if(f->filename==str)
{ShowMessage("文件同名,无法重命名");return;}
else
{p->filename=str;
ListRefresh();
return;
}
经我反复调试发现：CANCEL的返回值是一个空字符串，所以只要设置inputbox的初始值就可以解决以上问题了。实现的代码如下
AnsiString str=InputBox("重命名","输入新文件名",""); //设初始值为空
if(str=="") return;//如果CANCEL则返回
if(f->filename==str) //否则继续执行
{ShowMessage("文件同名,无法重命名");return;}
else
{p->filename=str;
ListRefresh();
return;
}
例如：AnsiString str=InputBox("重命名","输入新文件名","新文件");
//请问这里如何加入“ok”和“cancel”的控制语句呢？
if(f->filename==str)
{ShowMessage("文件同名,无法重命名");return;}
else
{p->filename=str;
ListRefresh();
return;
}
经我反复调试发现：CANCEL的返回值是一个空字符串，所以只要设置inputbox的初始值就可以解决以上问题了。实现的代码如下
AnsiString str=InputBox("重命名","输入新文件名",""); //设初始值为空
if(str=="") return;//如果CANCEL则返回
if(f->filename==str) //否则继续执行
{ShowMessage("文件同名,无法重命名");return;}
else
{p->filename=str;
ListRefresh();
return;
}
代码如下:
Dim A As Integer
Sub main()
abc: Dim possword, inputvalue
Dim style, title, count, response
possword = "a"
inputvalue = InputBox("请输入密码：", "用户身份验证")
Select Case inputvalue
Case possword
Form1.Show
Case vbNo
End
Case Else
If response = vbYes Then
GoTo abc:
Else:
End
End If
End Select
End Sub