作者UniFish (閃光魚)
看板Visual_Basic
標題Re: [VB6 ]想請教一個關於指定頁數的指令
時間Tue Jun 23 11:46:30 2009
VB6的語法和我目前用的有點出入，我依你的語法做改變
意思到了就好..
我的做法是：
假設你有1000張照片
Dim Pic_Page As Integer = 1
PictureBox1.Image = Trim(Str((Page - 1) * 4 +1)) + ".jpg"
PictureBox2.Image = Trim(Str((Page - 1) * 4 +2)) + ".jpg"
PictureBox3.Image = Trim(Str((Page - 1) * 4 +3)) + ".jpg"
PictureBox4.Image = Trim(Str((Page - 1) * 4 +4)) + ".jpg"
Page為1 會SHOW出 1.jpg 2.jpg 3.jpg 4.jpg
Page為2 會SHOW出 5.jpg 6.jpg 7.jpg 8.jpg
設一個BUTTON讓page變化，就相當於翻頁的功能了
※ 引述《jorlin1023 (╮(﹀_﹀")╭)》之銘言：
: 小弟目前正在撰寫一個程式
: 是關於將指定名稱照片貼於指定頁數的程式
: 我宣告的變數為Dim n As Integer
: For n = 0 To 1000
: 現在所希望程式執行的時候可以將照片四張為一組
: 貼在指定頁數的指定位置上
: 舉例來說:將照片編號1.2.3.4的照片貼於第一頁
: 將照片編號5.6.7.8的照片貼於第二頁
: 也就是LoadPicture (Picture4 * n + 1)
: PictureBox1.Image = Image.FromFile("4*n+1.jpg")
: 可是碰到一個問題
: 這樣的寫法似乎會把所有名稱4*n+1的照片都貼在同一頁的指定位置上
: 想請教各位一個語法
: 如何宣告將四張一組的照片貼在同一頁上(n/4+1頁)
: 謝謝各位!!
--
◣◥
◤◢ ◣▁◢ 請‧尊‧重‧生‧命
◤
◢◤ ‧‧▏ ◥ ◤
以 認 養 代 替 購 買
◤◢ ▄▄▄▄ ‧‧
◢◤ 請領養我 ▄ ▄ 以 絕 育 代 替 撲 殺
◤◢ 請領養我▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ψQSWEET
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.40.148.28