如何实现form跟随效果？

悬赏园豆：10 [已关闭问题] 关闭于 2013-10-23 20:37

我想实现类似千千静听中的两个form挨着，拖动一个，别一个了跟着走。我在做播放器，需要LRC歌词窗口可以跟着主窗口走，下面的代码，在横向上总有一部分form重叠, 好像是窗体的实际宽度比我获取到的要宽啊，为什么呢？API都用了，居然不行

Private Sub MoveLRCForm()
    If frmLRC.WindowState = 0 Then
        Dim rectLRC  As RECT
        GetWindowRect frmLRC.hwnd, rectLRC
        frmLRC.Left = Me.Left - frmLRC.ScaleWidth ‘用这句和下面那句是一样的效果
        frmLRC.Left = Me.Left - Screen.TwipsPerPixelX * (rectLRC.Right - rectLRC.Left) ’这句也是一样
        frmLRC.Top = Me.Top
        frmLRC.Height = Me.Height
    End If
End Sub

空明流光 | 初学一级 | 园豆：106
提问于：2013-10-23 19:16

< >

所有回答(1)

几经搜索，找到了，原来win7对form做了一些改变。

http://www.vbforums.com/showthread.php?656662-RESOLVED-Get-Border-Width-form-Window

空明流光 | 园豆：106 (初学一级) | 2013-10-23 20:37

清除回答草稿

您需要登录以后才能回答，未注册用户请先注册。

欢迎，请先 登录 或者 注册 。

如何实现form跟随效果？

欢迎，请先登录或者注册。