| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1390 人关注过本帖
标题:求助。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
快速回复:求助。IF语句用法~~
数据加载中...
 
   



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

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