Vb.net VB 2010,忽略已占用的文本框
我有一个按钮,可以处理多次单击并将信息导入关联的文本框。我正在尝试这样做,如果一个文本框被占用,那么它会将信息插入下一个可用的框中。如果文本框已被占用,则应打开表单3,如果未被占用,则将打开弹出表单 我尝试这样做的方式如下所示,如果值大于或小于零,则尝试跳过该框。出于某种原因,它没有确定这一点。抱歉,我对这一点还不熟悉,如果需要的话,我很乐意进一步解释Vb.net VB 2010,忽略已占用的文本框,vb.net,visual-studio-2010,Vb.net,Visual Studio 2010,我有一个按钮,可以处理多次单击并将信息导入关联的文本框。我正在尝试这样做,如果一个文本框被占用,那么它会将信息插入下一个可用的框中。如果文本框已被占用,则应打开表单3,如果未被占用,则将打开弹出表单 我尝试这样做的方式如下所示,如果值大于或小于零,则尝试跳过该框。出于某种原因,它没有确定这一点。抱歉,我对这一点还不熟悉,如果需要的话,我很乐意进一步解释 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As Syst
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Select Case _Step
Case 0
_Step = 1
If Val(Form1.TextBox6.Text) = 0 Then
Dim resistivity As Double
resistivity = Val(Me.results.Text)
popupform.TextBox4.Text = Convert.ToString(resistivity)
popupform.Show()
If Val(Form1.TextBox6.Text) <= 0 Or Val(Form1.TextBox6.Text) >= 0 Then
Dim resistivity2 As Double
resistivity2 = Val(Me.results.Text)
Form3.TextBox4.Text = Convert.ToString(resistivity2)
Form3.Show()
popupform.Close()
Exit Select
End If
End If
Exit Select
Private子按钮7\u单击(ByVal sender作为System.Object,ByVal e作为System.EventArgs)处理按钮7。单击
选择Case\u步骤
案例0
_步骤=1
如果Val(Form1.TextBox6.Text)=0,则
双折射率
电阻率=Val(Me.results.Text)
popupform.TextBox4.Text=Convert.ToString(电阻率)
popupform.Show()
如果Val(Form1.TextBox6.Text)=0,则
暗电阻2为双电阻
电阻率2=Val(Me.results.Text)
Form3.TextBox4.Text=Convert.ToString(电阻2)
表格3.Show()
popupform.Close()
退出选择
如果结束
如果结束
退出选择
@user2375267
将第一条“如果”语句替换为:
If( Not String.IsNullOrEmpty( Form1.TextBox6.Text ) )
然后将内部“IF”的内容移动到新的“Else”语句中。所以它看起来像:
If( Not String.IsNullOrEmpty( Form1.TextBox6.Text ) ) Then
...
popupform.Show()
...
Else
...
Form3.Show()
...
End If
这应该检查TextBox6.Text是否有值。如果是,那么它将显示一种形式。如果没有,则它将显示另一个。使用
If String.IsNullOrEmpty(Form1.TextBox6.Text),然后使用替换。感谢您的快速响应,但它似乎仍然忽略If String.TextBox6.Text=0。代码是否进入内部If块?乍一看,TextBox6似乎总是与该表达式匹配,因为如果它为空,它将为零,但如果它有一个值,那么它将小于或大于。我明白你的意思,我正在尝试让它像这样工作:使用文本框6,如果它为空,则打开一个表单,如果没有,则打开另一个表单。很高兴提供帮助。如果您认为答案合适,请记住将其标记为答案。