作者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