vb 拖动窗体时怎么让另一个窗体也跟着移动，用windows api

2011-11-16 08:52:00 421 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

NA400与昆仑通态MODBUS/TCP通讯调试说明点击增加设备通道，弹出窗口进行设置，通道类型选择“0区输出继电器”，通道地址为1，通道个数为1，读写方式为读写。点击增加设备通道，弹出窗口进行设置，通道类型选择“4区输出寄存器”，数据类型选择“16位无符号二进制”，通道地址为21001，通道个数为1，读写方式为读写。5.添加设备通道：双击莫迪康MODBUSTCP子设备，点击添加设备通道，根据Modbus规约地址表进行参数的设置，表格可在NAPro软件帮助中查看，如下图所示。然后可以在设备通道调试数据中观察到Q1的值为1，NW1的值678，表示通讯成功。阅读详情

在vb中怎么实现，拖动一个窗体时，另一个窗体也随之改变。类似于千千静听一样。
注：用windows api实现。
大侠们，帮帮忙。在此先谢过了

...全文

STM32内存大小与地址的对应关系以及计算方法 1、概述在计算机中要访问存储区，都是通过地址来进行访问的，包括所有的外设（比如串口、内存、硬盘等），都对应有一个访问地址，地址就相当于门牌号，有了门牌号，我们才知道操作的是哪一个区域、哪一个外设。最被大家熟知的是计算机内存，计算机内存有4G、8G，16G等等，对于程序员而言，要在代码中操作这些内存，肯定得知道内存的地址，此外，还需要会计算地址与内存大小的计算方法与对应关系。STM32作为微阅读详情

kaibaoma

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

贝隆 2011-11-18

打赏
举报

不用Hook就能实现，没有那么复杂，看看我在1楼给出的代码就是。

kaibaoma 2011-11-18

打赏
举报

哪里有源码，给个链接呗

哟嚯 2011-11-18

打赏
举报

嗯。要用到Hook。

chinaboyzyq 2011-11-18

打赏
举报



'form1代码

Private Sub Form_Load()

        prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)

        SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc

        Form2.Show

        

End Sub



Private Sub Form_Unload(Cancel As Integer)

        SetWindowLong Me.hwnd, GWL_WNDPROC, prevWndProc

End Sub





' ' '新建一个模块，代码如下：



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

Declare Function SetWindowLong Lib "user32 " Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetWindowLong Lib "user32 " Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long



Public Const GWL_WNDPROC = (-4)

Public Const WM_MOVE = &H3

Public Const WM_SIZE = &H5



Public prevWndProc As Long                   ' ' ' '默认窗口程序地址





Public Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

On Error GoTo ShowErr

' ' ' ' ' '处理窗体移动的消息

       

        If Msg = WM_MOVE Or Msg = WM_SIZE Then

        ''''

           Form2.Move Form1.Left, Form1.Top + Form1.Height

        End If

       

' ' ' ' ' '

        WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)

        Exit Function

ShowErr:

        MsgBox Err.Source & "- " & Err.Description

End Function

rjzhangjun 2011-11-18

打赏
举报

Public 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 Long
这俩是可以解决，看你怎么写了，首先要不停的判断那个所谓的QQ有没有移动
然后
ReleaseCapture
SendMessage hwnd, &HA1, 2, 0 '让被点中的（mousedown）窗口跟着鼠标移动的轨痕走

咸清 2011-11-17

打赏
举报

这个要用Hook⋯⋯
呵呵
我就是说说，我这里没存代码。

kaibaoma 2011-11-16

打赏
举报

如果桌面上有qq窗口（主窗口），和另一个窗口（我写的，副窗口）。当主窗口移动的时候，副窗口也一起移动，用windows api能实现吗

贝隆 2011-11-16

打赏
举报



Option Explicit

Private Const HWND_TOPMOST = -1

Private Const SWP_NOSIZE = &H1

Private Const WM_SYSCOMMAND = &H112&

Private Const SC_MOVE = &HF012&







Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

    If Button = vbLeftButton Then

        Call ReleaseCapture

        SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

        Form2.Left = Form1.Left

        Form2.Top = Form1.Top + Form1.Height + 5

    End If

End Sub





Private Sub Form_Load()

    Me.BorderStyle = 0

    Form2.Show

    Form2.BorderStyle = 0

    Form2.Left = Form1.Left

    Form2.Top = Form1.Top + Form1.Height + 5

End Sub

vb 拖动窗体时怎么让另一个窗体也跟着移动，用windows api

相关推荐