程式畫面如何自動移到某個物件上

Question

因為視窗大小有限
如果內容做太大或太多的話
可能連視窗最大化之後也超出視窗外面..
如果不用Scroll的話就不能看到超出去的東西
那能不能讓程式自動把視窗畫面移到某個物件或是座標那邊
就且把它置於視窗中央呢?

就像某些角色扮演遊戲一樣..
輪到某個人物就會自動移過去
(一開始就這樣講就好了....上面打那麼多連自己都不是很懂的廢話...)

不過由於我是整個程式裡的東西都隨著要置於中央的物件而移動
用這種方法的話就要每個都移了說~

Answer 1

你將所有物件都擺到PictureBox上面
移動時只須依物件位置重設PictureBox的Top跟Left
Picture1.Top = Me.ScaleHeight / 2 - (物件.Top + 物件.Height / 2)
Picture1.Left = Me.ScaleWidth / 2 - (物件.Left + 物件.Width / 2)
移動時要判斷PictureBox位置別讓旁邊的框框跑到中間來

Answer 2

那你就直接把要移動的物件移到中央就行了
Private Sub Command1_Click()
Command1.Move (Me.ScaleWidth - Command1.Width) \ 2, (Me.ScaleHeight - Command1.Height) \ 2
End Sub