sub Go_Click()
if inputBalue.Text.trim=string.Empty then
with showError
.text="输入了空值。"
.visible=true
end with
elseif inputBalue.Text.trim.len<3 then
with showError
.text="至少输3位。"
.visible=true
end with
else
try
saveToDatabase
inputValue.text=""
showError.visible=false
catch ex as exception
with showError
.text=ex.message
.visible=true
end with
end try
end if
end sub