Question

vb 写一个命令行的功能

比如：在一个文本框中输入"cx"，则查询，输入"del"，则执行删除等等，很多的命令，请大神说一下实现方法，谢谢。

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If InStr(UCase(Text1.Text), "CX") = 1 Then
MsgBox "执行查询"
ElseIf InStr(UCase(Text1.Text), "DEL") = 1 Then
MsgBox "执行删除"
End If
End If
End Sub

追问

大神 命令不只这两个，假如有50个，是不是都要这么写？

追答

不管用什么语句，都需要判断字符串是否与命令相符