| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 565 人关注过本帖
标题:如何控制图片循环?
只看楼主 加入收藏
jokerzhang
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2006-4-9
收藏
 问题点数:0 回复次数:6 
如何控制图片循环?

向各位请教下,^-^
程序要求是这样的:
按下按钮1后,能将图片框1的图片变成自己已定义的另一张图片,再按下按钮1,图片则又变回原来的,按钮2也是这样控制图片框2的,可是我只知道按一下能变,接着按则无效了,需要怎么控制,谢谢!程序如下:
Option Explicit

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("d:\picture\one.bmp")
End Sub

Private Sub Command2_Click()
Picture2.Picture = LoadPicture("d:\picture\two.jpg")
End Sub

Private Sub Command3_Click()
End
End Sub

搜索更多相关主题的帖子: 图片 
2006-04-11 08:04
dragonfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:1024
专家分:0
注 册:2006-3-20
收藏
得分:0 
把图片框里原来的图片也同样LoadPicture不就行了?
Option Explicit
dim flag as boolean

Private Sub Command1_Click()
if flag then
Picture1.Picture = LoadPicture("d:\picture\one.bmp")
flag=false
else
Picture1.Picture = LoadPicture("d:\picture\origin.bmp")'调原来的图片
flag=true
endif
End Sub


2006-04-11 08:36
jokerzhang
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2006-4-9
收藏
得分:0 


呵呵,谢谢2楼的哦!

2006-04-11 10:53
jokerzhang
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2006-4-9
收藏
得分:0 
好象还是有点小小的问题,就是两个过程的flag 值好象有影响啊
就是当第一个命令的flag值为false的时候,再按第二个按钮的时候
第二个图片不改变,而程序要求是不管什么时候按下按钮,图片都会改变
由于我是新手,改了几次都不行,还是希望各位能帮忙,谢谢了!

2006-04-11 13:38
jokerzhang
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2006-4-9
收藏
得分:0 

既然两个flag相互影响的话,那就需要定义两个了flag1和flag2
每个过程单独用一个就可以了.对了,好象flag的最初值是false.

2006-04-11 13:46
qiaoxg
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-4-19
收藏
得分:0 

用一个标志位FLAG来表示按下的次数,然后 MOD 2 ,就可以求得余数,然后根据余数判断点击次数不就可以决定显示哪一个图片了

2006-04-19 17:30
leuver
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-4-21
收藏
得分:0 
2006-04-24 11:12
快速回复:如何控制图片循环?
数据加载中...
 
   



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

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