如何检测vb inputbox里的输入框不为空,顺便取消inputbox中的“取消”键
2个回答
展开全部
注意:VB.NET专用
方案一:
Dim result As String
input:
result = InputBox("")
If String.IsNullOrWhiteSpace(result) Then
MsgBox("请输入字符串")
GoTo input
End If
方案2:
新建一个对话框,放上一个Lable控件,一个TextBox控件,具体怎么放就不用我说了吧
如果要去掉取消功能可以删去“取消”按钮,并将ControlBox设为False
更改OK_Button_Click过程
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
If String.IsNullOrWhiteSpace(TextBox1.Text) Then
MsgBox("请输入字符串")
Exit Sub
End If
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
在调用时
Dim result As String
Dim dlg As New Dialog1
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
result = dlg.TextBox1.Text
End If
result 即为返回结果
方案一:
Dim result As String
input:
result = InputBox("")
If String.IsNullOrWhiteSpace(result) Then
MsgBox("请输入字符串")
GoTo input
End If
方案2:
新建一个对话框,放上一个Lable控件,一个TextBox控件,具体怎么放就不用我说了吧
如果要去掉取消功能可以删去“取消”按钮,并将ControlBox设为False
更改OK_Button_Click过程
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
If String.IsNullOrWhiteSpace(TextBox1.Text) Then
MsgBox("请输入字符串")
Exit Sub
End If
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
在调用时
Dim result As String
Dim dlg As New Dialog1
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
result = dlg.TextBox1.Text
End If
result 即为返回结果
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询