| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5424 人关注过本帖, 1 人收藏
标题:[求助]VB中怎样随机载入图片?
只看楼主 加入收藏
秋风拂柳
Rank: 1
等 级:新手上路
帖 子:105
专家分:0
注 册:2007-9-12
收藏(1)
 问题点数:0 回复次数:20 
[求助]VB中怎样随机载入图片?
Picture1.Picture = LoadPicture(""),共有3个图片文件,文件名分别为"1.jpg","2.jpg","3.jpg",用一个按钮启动,只要按这个按钮就在PicuterBox中随机出现这3幅图片中的随机一幅。
搜索更多相关主题的帖子: 随机 载入 
2007-09-27 20:27
那边有朵蘑菇云
Rank: 1
来 自:很……那啥的一个地方
等 级:新手上路
威 望:1
帖 子:390
专家分:0
注 册:2007-9-3
收藏
得分:0 
定义一个变量A,
然后用RANDOMIZE 设置个随机种子
然RAND(a*3)

然后那三个图片 放到APP。PATH内
设置数组B(0-2)
然后我就不用说了吧
在COMMAND—CLICK事件内 写下程序 HOHOHOHO OK了

YOU KNOW?


身不残 志更不坚
2007-09-27 20:31
秋风拂柳
Rank: 1
等 级:新手上路
帖 子:105
专家分:0
注 册:2007-9-12
收藏
得分:0 
I don't know!~ 等我慢慢研究一下再说!

◆ωǒ嘚丗堺o﹎習慣了①個ré n靜靜dêヤ发呆.?уi个人ˋzi уoμ *.自﹎在 .o
2007-09-27 20:39
秋风拂柳
Rank: 1
等 级:新手上路
帖 子:105
专家分:0
注 册:2007-9-12
收藏
得分:0 
Private Sub Option1_Click()
Picture1(0).Picture = LoadPicture("1.JPG")
Dim a As Integer
Randomize
a = Int((3 * rnt) + 1)
Picture1(1).Picture = LoadPicture(App.Path & "\" & a & ".jpg")
End Sub
怎么总是第一幅啊?

◆ωǒ嘚丗堺o﹎習慣了①個ré n靜靜dêヤ发呆.?уi个人ˋzi уoμ *.自﹎在 .o
2007-09-27 21:20
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

不知道rnt是什么
只知道rnd是随机函数.


我的msn: myfend@
2007-09-27 21:21
秋风拂柳
Rank: 1
等 级:新手上路
帖 子:105
专家分:0
注 册:2007-9-12
收藏
得分:0 

Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数, 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。


◆ωǒ嘚丗堺o﹎習慣了①個ré n靜靜dêヤ发呆.?уi个人ˋzi уoμ *.自﹎在 .o
2007-09-27 21:23
秋风拂柳
Rank: 1
等 级:新手上路
帖 子:105
专家分:0
注 册:2007-9-12
收藏
得分:0 
以下是引用purana在2007-9-27 21:21:45的发言:

不知道rnt是什么
只知道rnd是随机函数.

行了,多谢你的提醒,原来是代码打错了。


◆ωǒ嘚丗堺o﹎習慣了①個ré n靜靜dêヤ发呆.?уi个人ˋzi уoμ *.自﹎在 .o
2007-09-27 21:26
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
Rnd 函数返回小于 1 但大于或等于 0 的值。
LZ知道怎么用了吧.

Repeat  Life=Study;Until (death);
2007-09-27 21:28
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
晕...今晚的网速真的不怎么样

Repeat  Life=Study;Until (death);
2007-09-27 21:29
标程
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-9-9
收藏
得分:0 
回复:(秋风拂柳)[求助]VB中怎样随机载入图片?
标程发布

9JEWckoO.rar (86.09 KB) [求助]VB中怎样随机载入图片?


2007-09-27 21:32
快速回复:[求助]VB中怎样随机载入图片?
数据加载中...
 
   



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

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