Dim xb As String = e.Form.Controls("性别").Text
Dim nl As String = e.Form.Controls("年龄").Text
Dim pbx As WinForm.PictureBox
pbx = e.form.Controls("PictureBox1")
If xb = "男" Then
If nl > 50 Then
pbx.Image = GetImage("Images\nln.png")
ElseIf nl > 30 Then
pbx.Image = GetImage("Images\nzn.png")
Else
pbx.Image = GetImage("Images\nqn.png")
End If
ElseIf xb = "女" Then
If nl > 50 Then
pbx.Image = GetImage("Images\nln1.png")
ElseIf nl > 30 Then
pbx.Image = GetImage("Images\nzn1.png")
Else
pbx.Image = GetImage("Images\nqn1.png")
End If
Else
pbx.Image = GetImage("Images\none.png")
End If
把这段代码添加到姓名的valuechaned事件中 为什么无效 图片控件不显示 哪里出错了 谢谢
此主题相关图片如下：微信截图_20190305153006.png
[此贴子已经被作者于2019/3/5 15:33:50编辑过]
加好友 
发短信
Post By：2019/3/5 15:33:00 [只看该作者]
