关于VB编程拖动程序窗口的问题

2025-03-26 16:27:53

推荐回答（1个）

回答（1）：

添加一个模块文件，输入以下代码：

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Oldproc As Long
Public Const WM_MOVE = &H3

Public Function Newproc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wp As Long, ByVal lp As Long) As Long
If Msg = WM_MOVE Then
Form1.Text1.Text = Form1.Left
Form1.Text2.Text = Form1.Top
End If
Newproc = CallWindowProc(Oldproc, hWnd, Msg, wp, lp)
End Function

然后在窗体中输入以下代码：

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_WNDPROC = (-4)

Private Sub Form_Load()
Oldproc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf Newproc)
End Sub

这里，假定你的窗体是Form1，两个TextBox分别是Text1和Text2

最新问答

求一些电影电视剧里最经典的诗句。

时速超过100迈时，车身抖动，怎么处理？

淘宝助理发布宝贝的时候，上传显示，颜色分类尺寸不再支持标准属性值,请暂停使用官方页面

AT、CVT、DCT 变速箱的优缺点及使用体验如何?

手机卡一直是4g的按了双卡后变3g了怎么回事

商务手机的“弱智”现象

明朝有哪些有趣的冷知识

互联网运营和计算机哪个更好

电流源与电压源的外特性为什么呈下降变化趋势

爱车刮花了补漆笔补漆真的有效果吗