Office中国论坛/Access中国论坛

标题: 还原小图标如何去掉？ [打印本页]

作者: IT人 时间: 2007-3-18 02:13
标题: 还原小图标如何去掉？
我想把窗体放大来作为主界面，但很无奈的是右上角有一个“还原大小”的小图标，请问我怎样做才能去掉这个图标？

作者: nxjswt 时间: 2007-3-18 02:32
窗体的属性里面最大化和最小化选择无

作者: bergyan 时间: 2007-3-18 02:35
工具-启动里面有得设这些属性的

作者: lirong 时间: 2007-9-16 22:26
建立一个无边框的表单将以下代码加入表单.

'Form Code
Private Declare Function FindWindowExA Lib "user32" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
      ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, _
      ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub Form_Load()
  DoCmd.Echo False
  DoCmd.Minimize
  DoCmd.Echo True
  Dim mHwnd As Long
  mHwnd = Me.hwnd
  sHwnd = FindWindowExA(0, 0, "OMain", vbNullString)
  sHwnd = FindWindowExA(sHwnd, 0, "MsoCommandBarDock", "MsoDockTop")
  sHwnd = FindWindowExA(sHwnd, 0, "MsoCommandBar", "功能表列")
  SetParent mHwnd, sHwnd
  With CommandBars("Menu Bar")
   MoveWindow mHwnd, .Width - 60, 1, 60, (.Height * 0.75), 0
  End With
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)