如何动态改变控件的位置并且保存下来？

Question

将位置信息保存到INI文件中。

Answer 1

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As LongPublic Sub Drag_me(Object_Name As Object)
    ReleaseCapture
    SendMessage Object_Name.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
'''''''''''
Drag_me 控件名          '移动控件'''''''''''
用Savesetting保存left,top到注册表
用Getsetting读取被保存的left,top数值