[VB6 ] 關於PictureBox內文的移動
我現在在做類似金字塔的程式。
目前是用了一個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
→
09/14 20:23, , 1F
09/14 20:23, 1F
→
09/15 08:56, , 2F
09/15 08:56, 2F
→
09/15 09:55, , 3F
09/15 09:55, 3F
→
09/15 11:01, , 4F
09/15 11:01, 4F
→
09/15 11:01, , 5F
09/15 11:01, 5F