作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 想做终极密码的进阶 可是遇到瓶颈了@@
时间Thu Jun 8 06:52:27 2006
※ 引述《woodenufo (秘密与夏绿蒂同在)》之铭言：
: As title
: 目前简单用了inputbox作乱数选择再来猜数字
: 等猜到後在label显示猜了几次後才猜到
: 可是想想这样似乎太单调了
: 於是就想说来猜三围@@
: 先胸 再腰 後臀 分三关@@
: 可是要怎样才能让图片能够随机出现呢
: image要怎麽设??
: 刚好同学想做的拉霸也是这个问题@@
: 恳请赐教
: 谢之
'r=乱数索引; Max=图片索引最大值; Min=最小值
r = Int(Rnd() * (Max - Min) + Min)
1. 设n个image在表单上，请建立物件控制项，Visible 属性都设成 False。
For Each img In Image1
If img.Index = r Then img.Visible = True Else img.Visible = False
Next
2. 设n个image在imagelist上(使用元件：Microsoft Windows Common Controls SP2/SP6)
(Service Pack 2以上才有) (索引最小值为1)
Set Image1.Picture = ImageList1.ListImages(r).Picture
3. 只准备一个没载入图片的image
Dim FileName(Max) As String
FileName(0) = "c:\my pictures\1.jpg"
FileName(1) = "c:\my pictures\2.jpg"
FileName(2) = "c:\my pictures\3.jpg"
Set Image1.Picture = LoadPicture(FileName(r))
--
前两个方法比较不好...(loading 时间会比较久)
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.184.116.195
1F：推 woodenufo:谢谢 我先试试看@@ 06/08 10:04