如何解决Vb.net表单允许文本框值小于程序中的派生值
在vb.net模块代码中,我计算了一些值,说“ Y”,然后调用具有文本框的表单。我想对用户输入进行交叉检查,只允许用户输入小于(计算值'Y'+ 5)或大于(计算值'Y'-5)的值。 如何做到这一点?请指教。非常感谢
下面是if代码的一部分(请注意,我具有初学者水平的知识)。我想将“ Y”信息传递给textbox1,并允许用户在h +-5内输入Y值
选项严格关闭 导入系统
模块Module1
公共AVal为Double = 0
Sub Main()
Dim myExp() as Expression = workPart.Expression.ToArray
Dim AExp As Expression = Nothing
Dim Y As Double
For Each exp As Expression In myExp
If exp.Name = "XYZ" Then
AExp = exp
Y = exp.Value
End If
Next
Dim f1 As New Form1
f1.Label1.Text =
AExp.Name.tostring
f1.TextBox1.Text =
AExp.Value.tostring
f1.showDialog()
End Sub
End Module
Public class Form1
'....
' TextBox1
Me.TextBox1.location = Newew
System.Drawing.point(102,40)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = Newew
system.Drawing.size(154,20)
Me.TextBox1.TabIndex = 1
......
解决方法
使用Keypress / lostfocus +功能获得解决方案(使用if验证输入)。感谢大家的评论。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。