網頁 貼吧 文章 作者 工作  
網頁搜尋
 
 愛PO吧 >> 劉品言抽煙的圖片 >> 瀏覽文章
回覆 加入我的最愛 與好友分享

[VB6]如何防止視窗出界?

本被文章 0 次, 共有回覆 2  
0
 
0
[VB6]如何防止視窗出界?


xyz軟體補給站






Private Sub Form_Activate()

Do

DoEvents

xyz軟體補給站If Me.Left < 0 Then Me.Left = 0

If Me.Top < 0 Then Me.Top = 0
xyz資訊工坊
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
xyz軟體補給站Private Sub Form_Unload(Cancel As Integer)

End

End Sub

逛上一篇:   逛下一篇:

作者: ecucxwnxnn
  (2010-07-25 16:03)
推薦文章: 將本文章推薦到【百度收藏】 將本文章推薦到【YouPush】 將本文章推薦到【udn共享書籤】 將本文章推薦到【Fiigo】書籤

 本文章共有回覆 2 篇,分 1 頁
 聲明:以上內容不代表本站立場,且內容由網友發表提供,若有爭議或違法由發表者承擔,本站將不負責連帶責任,謝謝。

 IPoBar  愛PK  愛遊戲  愛online
新手教學 客服中心 站務公告 交換連結 合作提案 關於我們
 
版權所有©ipobar Ltd., All Rights Reserved.
論壇內會員言論僅代表個人觀點,不代表本站同意其說法,本討論區不承擔由該言論所引起的法律責任