可以在设计阶段,通过设置窗体的BorderStyle属性为0-None使窗体无边框。
窗体的BorderStyle属性有如下取值:
0---None 无边框
1---Fixed Single 无最大/最小按钮,固定单边,运行时不能窗体改变大小
2---Sizeable 标准窗体,默认值
3---Fixed Dialog 固定对话框,没有最小化和最大化按钮,运行时不能窗体改变大小
4---Fixed ToolWindow 固定工具窗口,没有最小化和最大化按钮和控制菜单,不能改变大小尺寸的
5---Sizeable ToolWindow 可改变尺寸工具窗口,运行时可改变尺寸大小
还有做成exe。后怎么弄成背景?放在桌面图标后面 这句没看懂什么意思。。
其他的代码是
Private Sub Form_Load()
Me.BorderStyle = 0 '去掉窗体的边框
Me.WindowState = 2 '以最大化运行
End Sub
Private Sub Form_Resize()
Label1.Move 0, 0, ScaleWidth, ScaleHeight 'Label1铺满整个窗体
End Sub
1.窗体的borderstyle属性
2.获取屏幕的宽和高,然后改变窗体的width和height,可能需要用到SetWindowLong()API函数。
3.参考ShowWindow()API函数。
在属性里设置
首先确定窗体 然后有个visual 属性 设置成 false
整个屏幕:属性里设置 找找看
把bin 目录下的.exe图标 发送到桌面上就行了呗