关于MDI窗体问题???

maxsailor 2004-12-23 03:48:59
我用MDI窗体写东西
但是问题是我不能设置子窗体的显示位置和关闭按钮
请赐教
...全文
118 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
XPR 2004-12-24
  • 打赏
  • 举报
回复
关闭MDI的关闭按钮

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long) As Long
Private Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060

Public Sub Disabled(A, B)
Dim hMenu, hwndMenu As Long
Dim C As Long
hMenu = GetSystemMenu(A, 0)
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Sub

在MDI的form_load事件中调用Disabled

dim a as string
dim b as integer
a = me.hwnd
b = 0
disabled a,b

pweixing 2004-12-24
  • 打赏
  • 举报
回复
在form load的时候加上:
Me.Top = 100
Me.Left = 100
就可以设置form窗体相对mdi窗体的位置了。
maxsailor 2004-12-24
  • 打赏
  • 举报
回复
非常感谢
可是设置了这些以后
怎样将子窗体不可移动呢?

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧