先将窗体的BorderStyle属性设置为None再添加如下代码
Option ExplicitPrivate Sub Form_Load()
Me.Move 0, 0, Screen.Width, Screen.Height
End Sub
Option ExplicitPrivate Sub Form_Load()
Me.Move 0, 0, Screen.Width, Screen.Height
End Sub
解决方案 »
- 这个函数参数如何用
- 使用ORACLE数据库,怎么样实现客户端不用安装相应的ORACLE客户端
- 征询物业管理软件以及小区系统集成软件
- <<<<怎样办>>>>>
- 十万火急!!!!!加多少分都行!!!!!
- 请教api函数
- 欢迎大家看看我的腾讯创新大赛作品
- 关于文本框获取的数字比较大小的问题
- 我这条sql语句写错了,应当怎么写,Rs_1.open后面的,我的目的是想把两个字段先汇总后比较
- 关于ActiveReport的问题 Detail与PageFooter总是不能紧密结合在一起,中间总有一段空白
- DataGrid如何分页显示?谢谢
- vb 中如何取得excel 中下拉框中的值? 我用cells(2,2) 取得为空值
将窗体的BorderStyle属性设置为None后
再将windowstate设为2就可以了
borderstyle=0
windowstate=2
end with
form_load()
SetWindowPos FormhWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Form1.windowstate =2
'在属性框将ControlBox 设为False
Me.Caption = ""
Me.BorderStyle = 0 '无边框
Me.WindowState = vbMaximized '最大化
End Sub