重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以在设计阶段,通过设置窗体的BorderStyle属性为0-None使窗体无边框。
为平和等地区用户提供了全套网页设计制作服务,及平和网站建设行业解决方案。主营业务为成都网站制作、网站建设、平和网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
窗体的BorderStyle属性有如下取值:
0---None 无边框
1---Fixed Single 无最大/最小按钮,固定单边,运行时不能窗体改变大小
2---Sizeable 标准窗体,默认值
3---Fixed Dialog 固定对话框,没有最小化和最大化按钮,运行时不能窗体改变大小
4---Fixed ToolWindow 固定工具窗口,没有最小化和最大化按钮和控制菜单,不能改变大小尺寸的
5---Sizeable ToolWindow 可改变尺寸工具窗口,运行时可改变尺寸大小
方法1.将FormBorderStyle的值设为None
方法2.或将ControlBox的值设为false
方法3.如查你仅仅是要将关闭按钮disable的话,请双击窗体,后将以下代码替换窗体中的所有代码。
Public Class Form1
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Const MF_REMOVE = H1000
Private Const SC_COLSE = HF060
Private Const SC_MAXIMIZE = HF030
Private Const SC_MINIMIZE = HF020
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_COLSE, MF_REMOVE) '//关闭
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_MAXIMIZE, MF_REMOVE) '//最大化
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_MINIMIZE, MF_REMOVE) ’//最小化
End Sub
End Class
方法有二:
1。写代码判断窗体和鼠标位置,并且做相应的动作
2。使用屏幕边缘自动隐藏控件