不好意思~打擾前輩的寶貴時間.我是幫教授做GIS程式介面,運用VB作為GIS和ACCESS做為介面.由於MDI視窗最大化會阻礙GIS程式操作.
所以我希望把MDI最大化關掉.但是MDI表單沒有MaxButton屬性,因此我只好使用API.我用全文檢索找到了API方面的程式碼,如下:
Global Const MF_BYCOMMAND = &H0&
Public Const SC_MINIMIZE = &HF020 '最小
Public Const SC_MAXIMIZE = &HF030 '最大
Private Sub MDIForm_Load()
Dim hMenu As Long
  hMenu = GetSystemMenu(Me.hwnd, 0)
  Call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
  Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
.......(以下略)
End Sub

結果關閉鈕成功(Enabled=False),可是最大化鈕卻依然存在(Enabled=True).只有滑鼠Click標題列時,MDI表單不再最大化.
請問前輩,我的程式是否少了什麼?
歹勢,實力不足.可是各個VB網站及員林的書局.實在找不到資料,只好麻煩前輩了~
謝謝~
創作者介紹
創作者 小吳 VBQA 程式設計討論 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(3) 人氣( 54 )