VB6.0 控件自由拖動

VB6.0 控件自由拖動 有時，在編寫代碼的時候，可能需要一個浮動的界面(根據用戶需求，實時拖動)，下面將介紹如何實現 1.首先要修改控件的DragMode模式爲0.如下圖所示： '注意，以下代碼可以直接複製到VB代碼最前面，然後，替換Frm_SM爲對應的控件名即可 '2.整體添加全局變量，即程序寫在最前面 Dim xPos As Long Dim yPos As Long '3.爲對象的Mous

>>阅读原文<<