win10窗口如何无边框

1.win10怎么去掉窗口的边框

首先打开菜单栏，点击计算机，找到属性选项卡。

然后进入到高级系统设置，会弹出系统属性图标。

在高级中选择性能设置，就可以关闭掉这个功能了。

按照以上的步骤进行设置，就会让窗口的内容全部的出现在面前，而不是只看见其中的框了。

重新安装系统可以使用114一键重装系统软件，一键操作，很简单。而且还有纯净版的。

使用步骤：

1、到114重装系统官网（文件分别为： 1。

html； 代码第一部分所在 load。html； 所打开的窗口，是一个框架网页 chromelesstit。

html；代码第2部分所在 contacting。html；用来显示如'PAGE LOADING。

"等临时信息的网页 main。

html；真正的主网页 4个图像分别为 x_a。 gif; active x_d。

gif; mouseDown x_o。gif; mouseOver 以上三个文件分别代表关闭窗口图标的不同状态 none。

gif； 用来遮盖chromelesstit。html */ /*使用方法 如果你想让一个文件，如1。

html，中的某一个连接打开一个指像main。html的无边框窗口。

把代码第一部分放到该文件中。 然后将连接 改为 在该文件所在目录内 1。

建立 chromelesstit。html; contacting。

html; load。html； 等三个文件，其HTML代码见本文所附。

（不要做任何修改） 2。建立 一个名为images的目录（注意大小写，与有则不用），将 。

cn/x_a。gif; 。

cn/x_d。gif; 。

cn/x_o。gif; 。

cn/none。gif； 这4个文件拷入改目录。

对于初学者，以上则足够了。如果想要更好的效果，自己改代码。

*/。

4.如何改变无边框窗口大小

添加一个按钮退出 label显示坐标 Option Explicit Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTLEFT = 10 Private Const HTRIGHT = 11 Private Const HTTOP = 12 Private Const HTBOTTOM = 15 Private Const HTBOTTOMRIGHT = 17 Private Const HTBOTTOMLEFT = 16 Private Const HTTOPLEFT = 13 Private Const HTTOPRIGHT = 14 'sendmessage函数声明 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Private intEdge As Integer '临界距离，鼠标在离边框距离小于等于该值则判定在边框上…… Private Sub Command1_Click() End End Sub Private Sub Form_Load（) '相当于三个象素 intEdge = Me.ScaleX(3, vbPixels, Me.ScaleMode) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Critical：将处理四角的代码放在前面 If X + intEdge >= ScaleWidth And Y + intEdge >= ScaleHeight Then '右下角 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTBOTTOMRIGHT, 0 ElseIf Y + intEdge >= ScaleHeight And X <= intEdge Then '左下角 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTBOTTOMLEFT, 0 ElseIf Y <= intEdge And X <= intEdge Then '左上角 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTTOPLEFT, 0 ElseIf Y <= intEdge And X + intEdge <= ScaleWidth Then '右上边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTTOPRIGHT, 0 ElseIf X + intEdge >= ScaleWidth And Y <= ScaleHeight Then '右边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTRIGHT, 0 ElseIf Y + intEdge >= ScaleHeight And X <= ScaleWidth Then '下边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTBOTTOM, 0 ElseIf X <= intEdge And Y <= ScaleHeight Then '左边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTLEFT, 0 ElseIf Y <= intEdge And X <= ScaleWidth Then '上边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTTOP, 0 End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Critical：将处理四角的代码放在前面 Label1.Caption = X & " " & Y If (X + intEdge >= ScaleWidth And Y + intEdge >= ScaleHeight) Or (Y <= intEdge And X <= intEdge) Then '右下\左上角 MousePointer = vbSizeNWSE ElseIf Y + intEdge >= ScaleHeight And X <= intEdge Or Y <= intEdge And X + intEdge <= ScaleWidth Then '左下\右上角 MousePointer = vbSizeNESW ElseIf X + intEdge >= ScaleWidth And Y <= ScaleHeight Or X <= intEdge And Y <= ScaleHeight Then '左、右 MousePointer = vbSizeWE ElseIf Y + intEdge >= ScaleHeight And X <= ScaleWidth Or Y <= intEdge And X <= ScaleWidth Then '上边下边 MousePointer = vbSizeNS Else MousePointer = vbNormal End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SetCapture hwnd End Sub。

转载请注明出处windows之家 » win10窗口如何无边框