标题:求助。IF语句用法~~
只看楼主
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
结帖率:100%
 问题点数:0 回复次数:7 
求助。IF语句用法~~
UrYn1ssH.rar (245.9 KB) 求助。IF语句用法~~



想实现 当我点Command1(默认蓝色)的时候 Command3 和 Command5 变成红色

当我再点Command1变成红色 Command3 和 Command5 变成蓝色

当我再点Command1变成蓝色 Command3 和 Command5 变成红色

不断循环 怎么做 请求大鸟帮忙
搜索更多相关主题的帖子: 语句 用法 
2006-11-13 23:06
qlyk
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-9-11
得分:0 

Dim a As Integer

Private Sub Command1_Click()
a = a + 1
If a = 1 Then
Command1.BackColor = &HFF&
Command3.BackColor = &HFF0000
Command5.BackColor = &HFF0000
End If
If a = 2 Then
Command1.BackColor = &HFF0000
Command3.BackColor = &HFF&
Command5.BackColor = &HFF&
a = 0
End If


End Sub


锦上添花不如雪中送炭!! (完全自学,有不当之处敬请指正)
2006-11-14 08:54
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
谢谢 ~~~~~~

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2006-11-14 12:29
hx008253
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-11-14
得分:0 

我是刚学VB的,以前学C语言,不过学得不精,对if语句的用法也懂得一点

2006-11-14 23:21
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 

在简单的选择条件情况下,使用IIf()函数

罗索的代码:
If nNum = 0 Then
sName = "sancy"
Else
sName = "Xu"
End If

简单的代码:
sName=IIf(nNum=0,"sancy","Xu")

看的懂吧


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2006-11-18 16:14
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
自问自答?.

我的msn: myfend@
2006-11-18 16:31
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 

不是,在通过大鸟的指导才明白IF的用法。
IIF 是 IF 的简单化 发上来 希望一些和我
一样的新手 可以学习


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2006-11-18 23:03
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
这些..都是基础中的基础..没什么好说的..

我的msn: myfend@
2006-11-19 09:52



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




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

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