<<< 返回 access911.net 编程静态资料库索引页

如何拖动没有标题栏的access窗体?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2002-12-9  浏览人次:1025


专题地址:http://access911.net/fixhtm/71FAB71E10DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何拖动没有标题栏的access窗体?《窗体》

 


方法一:

Dim MoveScreen As Boolean   '开关符,确定当前是否还在屏幕上移动
Dim MousX As Integer
Dim MousY As Integer

Dim CurrX As Integer
Dim CurrY As Integer

Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    '如果鼠标仍然是按下的,那么移动窗体
    If MoveScreen Then
        CurrX = Me.WindowLeft - MousX + X
        CurrY = Me.WindowTop - MousY + Y
        '移动窗体到新的坐标
        Me.Move CurrX, CurrY
    End If
   
    Debug.Print "窗体X", CurrX, "窗体Y", CurrY, "鼠标X", MousX, "鼠标Y", MousY
End Sub

Private Sub 主体_MouseUp(Button As Integer, Shift As Integer, X.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB71E10DC.htm

 


上一篇:怎样使用一个查询获得数据库对象的名称(查询/窗体/表/报表/模块/宏)?查询系统表的方法

下一篇:关于自动关联工作组启动的方法

2017年2月22日生成静态资料