vb.net - 当用户没有在多行文本框的第二行输入文本时,如何添加错误消息?
问题描述
当用户没有键入第二行时,我需要在文本框中添加一条错误消息,但是我尝试的代码对我也不起作用。我已经尝试了 text.lenght、line.count 等等
Private Sub MeanButton_Click_2(sender As Object, e As EventArgs) Handles MeanButton.Click
If Not InputNumberTextBox.Text = "" Then
MeanCalculateForm.Show()
MeanCalculateForm.InputNumberListBox.Items.AddRange(InputNumberTextBox.Lines)
MeanCalculateForm.ResultListBox.Items.Clear()
Me.Hide()
Else
MsgBox("Please enter more number to calculate")
End If
End Sub
图片截图:
https ://ibb.co/58cd7YC
解决方案
您可以创建自己的函数来检查 a String
, 在这种情况下是否InputNumberTextBox.Text
包含一个有效数字,如下所示:
Private Function IsValidNumberFromText(ByVal Input As String) As Boolean
Try
Dim Check As Integer = CInt(Input)
Catch Ex As Exception
Return False
End Try
Return True
End Function
然后做:
If IsValidNumberFromText(InputNumberTextBox.Text) ...
这确保了String
唯一的包含一个有效的数字。
推荐阅读
- python - 使用通配符计算网络主机输出的脚本
- r - 遇到错误时从列表中删除文件名
- apache - 如何使用带有 Apache Kerberos 身份验证的自定义登录屏幕
- mysql - mysql 5.7如何对应行
- python - DataFrame 切片和列表的交集
- javascript - 在模态对话框中创建按钮并在电子表格中运行代码
- flutter - 如何使用flutter_blue在flutter BLE中获取原始制造商数据
- php - cURL在sql中获取json数据存储
- java - Causedby:java.lang.NullPointerException:尝试在空对象引用上调用虚拟方法“void android.widget.ListView.setAdapter”
- javascript - ReferenceError:从另一个模块导入时未定义变量