编程论坛 → VB6论坛

解决问题版主

大唐长山发布于 2013-03-08 09:01， 1016 次点击

Text1 LabeI1 LabeI2 labeI3 四个控件
当Text1等于正数的时候LabeI1出现 LabeI2 LabeI3不显示
当Text1等于负数的时候LabeI2出现 LabeI1 LabeI3不显
当Text1等于0的时候LabeI3出现 LabeI1 labeI2不显示
怎么写谁能帮下急谢谢

13 回复

#2

yz10252013-03-08 10:28

脑袋编程...

if val(Text1.text)>0 then
    LabeI1.Visible = True
    LabeI2.Visible = False
    LabeI3.Visible = False
else if val(Text1.text)<0 then
    LabeI1.Visible = False
    LabeI2.Visible = True
    LabeI3.Visible = False
else if val(Text1.text)=0 then
    LabeI1.Visible = False
    LabeI2.Visible = False
    LabeI3.Visible = True
endif

#3

大唐长山2013-03-08 10:32

不管对错先谢谢了有的在回复

#4

大唐长山2013-03-08 10:38

不行有错误啊

#5

大唐长山2013-03-08 10:45

我放在Text1里了不行啊

#6

Artless2013-03-08 12:11

以下是引用大唐长山在2013-3-8 10:45:07的发言：

我放在Text1里了不行啊

代码写在Text1？

#7

qq3725058552013-03-08 12:26

版主解决了吧

#8

chen35232013-03-08 15:43

版主的是对的，把最后end　if 拉开距离就可以运行了。
放在text1_change吹糠见米，跟着输入变化
if val(Text1.text)>0 then
    LabeI1.Visible = True
    LabeI2.Visible = False
    LabeI3.Visible = False
else if val(Text1.text)<0 then
    LabeI1.Visible = False
    LabeI2.Visible = True
    LabeI3.Visible = False
else if val(Text1.text)=0 then
    LabeI1.Visible = False
    LabeI2.Visible = False
    LabeI3.Visible = True
end　if

#9

Alar302013-03-08 15:50

俺也来看版主的答案了。。。

#10

风吹过b2013-03-08 15:53

代码没问题啊。关键看你放的位置。

最后 endif 如果不空开来，VB会自动空开来的。

#11

大唐长山2013-03-08 18:42

我知道了谢谢了弄好了呵呵我是菜鸟中的菜鸟不好意思版主谢谢了

#12

大唐长山2013-03-08 18:44

谢谢版主了辛苦了我是菜鸟中的菜鸟不好意思问题以解决

#13

qq3725058552013-03-14 12:18

楼主还不结账？

#14

jefferman2013-03-15 13:06

最好放在Form_Load()事件里面？

1