时间戳

首页 > 解决方案 > Vb.net表单允许文本框值小于程序中的派生值

vb.net - Vb.net表单允许文本框值小于程序中的派生值

问题描述

在 vb.net 模块代码中，我计算了一些值，比如“Y”，然后调用具有文本框的表单。我想交叉检查用户输入并允许用户输入小于（计算值'Y' + 5）或大于（计算值'Y' -5）的值。如何做到这一点？请指教。提前谢谢了

下面是代码的一部分（请注意我有初学者水平的知识）。我想将 'Y' 信息传递给 textbox1 并允许用户输入值在 h +- 5 到 Y 值

选项严格关闭导入系统

模块模块1

公共 AVal 作为 Double = 0

子主（）

 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

  ......

标签： vb.netwinformstextbox

解决方案

使用 Keypress/lostfocus + fuction 获得解决方案（使用 if 验证输入）。感谢大家的评论。

推荐阅读