共10 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：请老大帮忙看看究竟是怎么会事（已解决）

1楼

xiaoqiwei 发表于：2011/6/10 0:25:00

代码和设置如下图：

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg

单条件不符合时就如下图：

图片点击可在新窗口打开查看此主题相关图片如下：未命名1.jpg

当点击取消或右上角的“X”关闭就会提示下图的错误：

图片点击可在新窗口打开查看此主题相关图片如下：未命名2.jpg

此主题相关图片如下：未命名3.jpg

请问这究竟是怎么回事啊？

代码如下：

Dim sjhm As String = e.Form.Controls("TextBox1").Value
If sjhm IsNot Nothing Then
If sjhm.Length < "11" Then
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = True
e.Form.Controls("PictureBox5").Visible = False
ElseIf sjhm.Length = "11" Then
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = False
e.Form.Controls("PictureBox5").Visible = True
End If
Else
e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = True
e.Form.Controls("PictureBox5").Visible = False
End If

[此贴子已经被作者于2011-6-11 23:12:36编辑过]

2楼

程兴刚 发表于：2011/6/10 4:07:00

说得很清楚，没有label5这个控件嘛！请检查控件名称！

3楼

xiaoqiwei 发表于：2011/6/10 16:45:00

以下是引用程兴刚在2011-6-10 4:07:00的发言：
说得很清楚，没有label5这个控件嘛！请检查控件名称！

请看下图，已经存在label5这个控件，如果我将代码“e.Form.Controls("Label5").Visible = False” 删除，运行时按取消或右上角“X”就提示找不到“Label9控制”

图片点击可在新窗口打开查看此主题相关图片如下：未命名-1.jpg

4楼

狐狸爸爸 发表于：2011/6/10 16:49:00

做例子上来，电脑不会撒谎的。

5楼

blackzhu 发表于：2011/6/10 17:06:00

e.Form.Controls("Label5").Visible = False
e.Form.Controls("Label9").Visible = False

你把这两个控件移除了,怎么找得到呢,先是找不到label5,后来你删除了那句代码,那么立马显示找不到lable9的控件.还是你的逻辑问题,什么时候移除,什么时候不移除造成的.

6楼

xiaoqiwei 发表于：2011/6/10 18:22:00

以下是引用狐狸爸爸在2011-6-10 16:49:00的发言：

做例子上来，电脑不会撒谎的。

老大，请帮忙看看，默认密码：888

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹.rar

7楼

xiaoqiwei 发表于：2011/6/11 1:09:00

请老大帮忙看看，6楼的附件，谢谢

8楼

blackzhu 发表于：2011/6/11 8:30:00

你这个还不如改提示呢!

9楼

blackzhu 发表于：2011/6/11 14:34:00

改提示一样的.

Dim sjhm As String = e.Form.Controls("TextBox1").Value

If sjhm.Length < "11" Then

MessageBox.show("输入的手机位数不对,请确认!","温馨提示")

e.Form.Controls("TextBox1").Value =Nothing

Else

e.Form.Controls("PictureBox5").Visible = True

End If

10楼

xiaoqiwei 发表于：2011/6/11 23:12:00

已解决，谢谢“blackzhu”

共10 条记录, 每页显示 10 条, 页签: [1]