标题:求教如何让窗体固定在桌面中心,不要移动
取消只看楼主
bestsunshine
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2018-7-25
结帖率:0
 问题点数:0 回复次数:2 
求教如何让窗体固定在桌面中心,不要移动

窗体初始位置在桌面中心,但是当鼠标在Picture上移动时(Picture有鼠标移动触发的事件),窗体就会自动跑到桌面左上角(如图),但是我想窗体一直固定在桌面中心。
搜索更多相关主题的帖子: 窗体 固定 桌面 中心 移动 
2018-11-23 17:22
bestsunshine
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2018-7-25
得分:0 
回复 2楼 风吹过b
您好,我的代码中不存在您说的上述代码
2018-11-23 17:56
bestsunshine
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2018-7-25
得分:0 
回复 5楼 ZHRXJR
Private Sub Pic_Front_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '''''''''''显示鼠标所在点的坐标值
    Top = (ScalH - ClipH) / 2
    Bottom = (ScalH + ClipH) / 2
    Left = (ScalW - ClipW) / 2
    Right = (ScalW + ClipW) / 2
    Pic_Front.CurrentX = X
    Pic_Front.CurrentY = Y
    MouseX = (X - Left) / ClipW
    MouseY = (Y - Top) / ClipH
    If MouseX >= 0 And MouseX <= 1 And MouseY >= 0 And MouseY <= 1 Then
        SBar1.Panels(1).Text = "坐标(" + Format(MouseX, "#####0.000") + " " + "," + " " + Format(MouseY, "#####0.000") + ")"
    Else
        SBar1.Panels(1).Text = ""
    End If
End Sub
这个Picture鼠标触发事件的代码,没有窗体位置的代码,窗体的Startupposition值已设成2 ,但是运行时,只要鼠标经过Picture,窗体位置就会移动到桌面左上角。
2018-11-25 15:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-491493-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.655122 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved