乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 44|回复: 3

请问如何让无模式UserForm象属性栏和工具栏一样可停靠dock?

[复制链接]

14

主题

72

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
128
发表于 2003-2-14 15:48:00 | 显示全部楼层 |阅读模式
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-2-14 21:53:00 | 显示全部楼层
对于窗体,使用的事件为UserForm_Layout()
如以下语句可以使窗体不会跑到屏幕的外面:
Private Sub UserForm_Layout()
If Me.Left  ThisDrawing.Application.WindowTop + ThisDrawing.Application.Height - Me.Height Then
  Me.top = ThisDrawing.Application.WindowTop + ThisDrawing.Application.Height - Me.Height
End If
If Me.Left > ThisDrawing.Application.WindowLeft + ThisDrawing.Application.Width - Me.Width Then
  Me.Left = ThisDrawing.Application.WindowLeft + ThisDrawing.Application.Width - Me.Width
End If
Debug.Print "窗口距左侧距离" & Me.Left
Debug.Print "窗口距顶部距离" & Me.top
End Sub
可惜调来调去还是有问题,可能窗体中使用的单位与应用程序使用的单位不同所致,但又不知怎么转换(大家想想办法)。
另外,应用程序的WindowMovedOrResized(HWNDFrame, Moved)事件也必须使用,不然到时主程序窗口变了,你的窗体还停留在原来的位置是不对的。
回复

使用道具 举报

8

主题

33

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
65
发表于 2005-1-26 11:01:00 | 显示全部楼层
好东西,可是想要vc的,呵呵
回复

使用道具 举报

12

主题

135

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
183
发表于 2005-1-27 08:29:00 | 显示全部楼层
想法不错支持。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 19:45 , Processed in 0.414645 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表