随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA去除窗体标题与边框?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行PrivateDeclareFunction掂迎豢畦FindWindowLib"use32&quo墉掠载牿t;Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLongPrivateDeclareFunctionSetWindowRgnLib"use32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLongPrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLongPrivateSubUserForm_Click()UnloadMe'单击关闭窗体EndSubPrivateSubUserForm_Initialize()DimhWndAsLong,new_rgnAsLongIfVal(Application.Version)<9Then'如果是Windows2000以下的系统hWnd=FindWindow("ThunderXFrame",Me.Caption)'获取窗口句柄ThunderXFrameElse'否则hWnd=FindWindow("ThunderDFrame",Me.Caption)'获取窗口句柄ThunderDFrameEndIfnew_rgn=CreateRectRgn(3,29,(Me.Width*1.33)-2,(Me.Height*1.33)-2)'创建一个由四个数据点描述的矩形区域SetWindowRgnhWnd,new_rgn,True'按前面定义的区域重绘窗体形状CallDeleteObject(new_rgn)EndSub
5、用快捷键F5运行窗体,窗体仅仅显示图片区,标题及边框已隐藏。隐藏边框前的窗体如图13.10所示,隐藏边框后的窗体如图