問題來自留言板：

■ 請問
++ 明 (幼稚園生)　∼第4篇∼ 

--------------------------------------------------------------------------------

可否用VB做出一個程式,
而這個程式不能移動超過螢幕所顯示範圍,
(好像一些上網賺錢的程式)
最多只可以移動到螢幕四角, 不能超過所顯示範圍
thx 
(imsbbcf09b.netvigator.com).. 2001/7/22(Sun) 02:21 [#338] 


--------------------------------------------------------------------------------

++ 德本立 (平社員)　∼第136篇∼ 
Option Explicit

Private Sub Form_Activate()
　Do
　　DoEvents
　　If Me.Left < 0 Then Me.Left = 0
　　If Me.Top < 0 Then Me.Top = 0
　　If Me.Left + Me.Width > Screen.Width Then Me.Left = Screen.Width - Me.Width
　　If Me.Top + Me.Height > Screen.Height Then Me.Top = Screen.Height - Me.Height
　Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
　End
End Sub

上一頁