Re: [VB6 ] 想做終極密碼的進階可是遇到瓶頸了@@

看板Visual_Basic作者fumizuki (矇面加菲獅)時間19年前 (2006/06/08 06:29)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

※ 引述《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

Re: [VB6 ] 想做終極密碼的進階 可是遇到瓶頸了@@

Re: [VB6 ] 想做終極密碼的進階可是遇到瓶頸了@@