搜索
编程论坛 → 开发语言 → 『 VB6论坛 』 → 解决问题版主
标题：解决问题版主
只看楼主
大唐长山
Rank: 1
来　自：吉林省
等　级：新手上路
帖　子：10
专家分：0
注　册：2013-2-21
结帖率：50%
楼主
 已结贴√  问题点数：20 回复次数：13 
解决问题版主
Text1 LabeI1 LabeI2 labeI3 四个控件
当Text1等于正数的时候LabeI1出现 LabeI2 LabeI3不显示
当Text1等于负数的时候LabeI2出现 LabeI1 LabeI3不显
当Text1等于0的时候LabeI3出现 LabeI1 labeI2不显示
怎么写谁能帮下 急谢谢
搜索更多相关主题的帖子: Text1　
2013-03-08 09:01
yz1025
Rank: 8Rank: 8
等　级：蝙蝠侠
威　望：6
帖　子：473
专家分：915
注　册：2012-10-26
第 2 楼
 得分:2 
脑袋编程...

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

不要投我
2013-03-08 10:28
大唐长山
Rank: 1
来　自：吉林省
等　级：新手上路
帖　子：10
专家分：0
注　册：2013-2-21
第 3 楼
 得分:0 
不管对错 先谢谢了 有的在回复
2013-03-08 10:32
大唐长山
Rank: 1
来　自：吉林省
等　级：新手上路
帖　子：10
专家分：0
注　册：2013-2-21
第 4 楼
 得分:0 
不行有 错误啊
2013-03-08 10:38
大唐长山
Rank: 1
来　自：吉林省
等　级：新手上路
帖　子：10
专家分：0
注　册：2013-2-21
第 5 楼
 得分:0 
我放在Text1里了 不行啊
2013-03-08 10:45
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8
第 6 楼
 得分:2 
以下是引用大唐长山在2013-3-8 10:45:07的发言：

我放在Text1里了 不行啊
代码写在Text1？

无知
2013-03-08 12:11
qq372505855
Rank: 2
等　级：论坛游民
帖　子：42
专家分：46
注　册：2012-6-20
第 7 楼
 得分:2 
版主解决了吧
2013-03-08 12:26
chen3523
Rank: 9Rank: 9Rank: 9
等　级：贵宾
威　望：33
帖　子：223
专家分：1165
注　册：2013-2-12
第 8 楼
 得分:2 
版主的是对的，把最后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

调试失败3次后，关机睡觉，当醒来时多有收获。
2013-03-08 15:43
Alar30
Rank: 10Rank: 10Rank: 10
等　级：贵宾
威　望：10
帖　子：988
专家分：1627
注　册：2009-9-8
第 9 楼
 得分:2 
俺也来看版主的答案了。。。
2013-03-08 15:50
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15
第 10 楼
 得分:2 
代码没问题啊。关键看你放的位置。

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

授人于鱼，不如授人于渔
早已停用QQ了
2013-03-08 15:53



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-400116-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 1.266814 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved