| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2312 人关注过本帖
标题:求教如何让窗体固定在桌面中心,不要移动
取消只看楼主 加入收藏
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
快速回复:求教如何让窗体固定在桌面中心,不要移动
数据加载中...
 
   



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

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