作者sdwufei (玉鼎)
看板Visual_Basic
标题[VB6 ] 关於PictureBox内文的移动
时间Mon Sep 14 17:53:52 2009
我现在在做类似金字塔的程式。
目前是用了一个Text跟一个PictureBox来显示。
例如Text输入4,PictureBox就显示
++++
+++
++
+
++
+++
++++
如果Text输入2，就变成
++
+
++
现在遇到的问题是，当假设我的PictureBox只能显示五行(自己拉的大小)，那假设我
Text一样输入4，在PictureBox里就只会显示
++++
+++
++
+
++
在下面的都不会显示了，翻一下好像很多都是讲到Vscroll控制image的，
那以我这种的程式该怎麽搭配Vscroll呢？
补个Text change写得程式
Private Sub Text1_Change()
Picture1.Cls
For i = 1 To Int(Text1.Text) - 1
Picture1.Print String(Int(Text1.Text) + 1 - i, "+")
Next i
'+由少到多排列
s = ""
For i = 1 To Int(Text1.Text)
s = s & "+"
Picture1.Print s
Next i
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.169.195.55
1F：→ mron:何不用 Text 显示 09/14 20:23
2F：→ sdwufei:因为在解书上的习题XD卡在这步骤不会用～ 09/15 08:56
3F：→ MOONRAKER:看到这种三叶虫时代的习题就睡着了。 cls? print? 09/15 09:55
4F：→ sdwufei:哈哈，是阿。不过现在问题点是在picturebox不知道怎麽 09/15 11:01
5F：→ sdwufei:搭配Vscroll 09/15 11:01