我考网社区 › 计算机等级考试 › 移除报表预览窗口的Min/Max/Close按钮（2）

会计考友 发表于 2012-7-31 22:26:35

移除报表预览窗口的Min/Max/Close按钮（2）

　　AsLong
　　PrivateDeclareFunctionapiSetWindowLongLib"User32"_
　　Alias"SetWindowLongA"_
　　(ByValhwndAsLong,_
　　ByValnIndexAsLong,_
　　ByValdwNewLongAsLong)_
　　AsLong
　　PrivateDeclareFunctionapiGetWindowRectLib"User32"_
　　Alias"GetWindowRect"_
　　(ByValhwndAsLong,_
　　lpRectAsRECT)_
　　AsLong
　　PrivateDeclareFunctionapiGetSystemMetricsLib"User32"_
　　Alias"GetSystemMetrics"_
　　(ByValnIndex&)_
　　AsLong
　　PrivateDeclareFunctionapiReleaseDCLib"User32"_
　　Alias"ReleaseDC"_
　　(ByValhwndAsLong,_
　　ByValhDCAsLong)_
　　AsLong
　　PrivateDeclareFunctionapiGetDeviceCapsLib"Gdi32"_
　　Alias"GetDeviceCaps"_
　　(ByValhDCAsLong,_
　　ByValnIndexAsLong)_
　　AsLong
　　PrivateDeclareFunctionapiGetDCLib"User32"_
　　Alias"GetDC"_
　　(ByValhwndAsLong)_
　　AsLong
　　PrivateDeclareFunctionIsZoomedLib"User32"_
　　(ByValhwndAsLong)AsLong
　　PrivateDeclareFunctionShowWindowLib"User32"_
　　(ByValhwndAsLong,_
　　ByValnCmdShowAsLong)AsLong
　　PrivateDeclareFunctionMoveWindowLib"User32"_
　　(ByValhwndAsLong,_
　　ByValxAsLong,_
　　ByValYAsLong,_
　　ByValnWidthAsLong,_
　　ByValnHeightAsLong,_
　　ByValbRepaintAsLong)AsLong
　　PrivateDeclareFunctionGetParentLib"User32"_
　　(ByValhwndAsLong)AsLong
　　'UsefollowinginsteadofGetWindowRect
　　PrivateDeclareFunctionGetClientRectLib"User32"_
　　(ByValhwndAsLong,_
　　lpRectAsRECT)AsLong
　　PublicConstSW_MAXIMIZE=3
　　PublicConstSW_SHOWNORMAL=1
　　PrivateConstGWL_EXSTYLE=-20
　　PrivateConstGWL_HINSTANCE=-6
　　PrivateConstGWL_HWNDPARENT=-8
　　PrivateConstGWL_ID=-12
　　PrivateConstGWL_STYLE=-16
　　PrivateConstGWL_USERDATA=-21
　　PrivateConstGWL_WNDPROC=-4
　　PrivateConstWS_CAPTION=&HC00000
　　PrivateConstWS_SYSMENU=&H80000
　　PrivateConstSM_CYCAPTION=4'Heightofcaptionortitle
　　PrivateConstTWIPSPERINCH=1440
　　'**WindowStyleConstants
　　PrivateConstWS_DLGFRAME&=&H400000
　　PrivateConstWS_THICKFRAME&=&H40000
　　SubaTest()
　　DoCmd.OpenReport"Report1",acViewPreview
　　CallsRemoveCaption(Reports!Report1)
　　EndSub

查看完整版本: 移除报表预览窗口的Min/Max/Close按钮（2）