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

脑袋编程...

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

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

不行有 错误啊

我放在Text1里了 不行啊

代码写在Text1？

版主解决了吧

版主的是对的，把最后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

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

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

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