vbnet窗口边框 vb窗口背景设置任意图片

如何改变vb.net程序的边框样式？

如果要做漂亮的界面的话，我建议你用WPF来做。所有的控件都可以用模板来定义样式。

松原网站制作公司哪家好，找创新互联公司！从网页设计、网站建设、微信开发、APP开发、自适应网站建设等网站项目制作，到程序开发，运营维护。创新互联公司2013年至今到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。

虚线的话，只需要定义一个矩形，设置一个属性就可以了。前提是，WPF应用程序只能用VS2008或者VS2010来做

vb.net 无边框窗体的问题

设置窗体的text为空，设置窗体的controlbox属性为false，设置窗体的FormBorderStyle 属性为Sizable，就可以改变窗体大小了，并且可以在任务栏点击。

怎么用VB/VB.net/C#修改一个其他程序的窗口的边框样式？

private const int GWL_STYLE = (-16);

private const int GWL_EXSTYLE = (-20);

private const uint WS_EX_LAYERED = 0x80000;

private const uint WS_EX_TRANSPARENT = 0x20;

private const uint WS_THICKFRAME = 262144;

private const uint WS_BORDER = 8388608;

/// summary使指定「 see cref="IntPtr"/ 句柄」窗体边框样式变为无边框。/summary

public static uint 无边框窗体(IntPtr 句柄) {

uint style = API_窗口.GetWindowLong(句柄, GWL_STYLE);

style = ~WS_BORDER;

style = ~WS_THICKFRAME;

return API_窗口.SetWindowLong(句柄, GWL_STYLE, style); ;

}

API窗口静态类

[DllImport("user32", EntryPoint = "SetWindowLong")]

public static extern uint SetWindowLong(IntPtr hwnd, int nIndex, uint dwNewLong);

[DllImport("user32", EntryPoint = "GetWindowLong")]

public static extern uint GetWindowLong(IntPtr hwnd, int nIndex);

修改窗口位置

/// summary

/// 设置窗体的位置和大小。

/// /summary

/// param name="hWnd"/param

/// param name="hWndInsertAfter"用于标识在z-顺序的此 CWnd 对象之前的 CWnd 对象。

/// para/para如果uFlags参数中设置了SWP_NOZORDER标记则本参数将被忽略。可为下列值之一：

/// para/paraHWND_BOTTOM：值为1，将窗体置于Z序的底部。如果参数hWnd标识了一个顶层窗体，则窗体失去顶级位置，并且被置在其他窗体的底部。

/// para/paraHWND_NOTOPMOST：值为-2，将窗体置于所有非顶层窗体之上（即在所有顶层窗体之后）。如果窗体已经是非顶层窗体则该标志不起作用。

/// para/paraHWND_TOP：值为0，将窗体置于Z序的顶部。

/// para/paraHWND_TOPMOST：值为-1，将窗体置于所有非顶层窗体之上。即使窗体未被激活窗体也将保持顶级位置。/param

/// param name="x"窗体新的x坐标。如hwnd是一个子窗体，则x用父窗体的客户区坐标表示/param

/// param name="y"窗体新的y坐标。如hwnd是一个子窗体，则y用父窗体的客户区坐标表示/param

/// param name="Width"指定新的窗体宽度/param

/// param name="Height"指定新的窗体高度/param

/// param name="wFlags"/param

/// returns/returns

[DllImport("user32.dll", CharSet = CharSet.Ansi, EntryPoint = "SetWindowPos")]

public static extern int SetWindowPos(IntPtr hWnd, hWndInsertAfter hWndInsertAfter, int x, int y, int Width, int Height, wFlags wFlags);

/// summary

/// 调整指定「 see cref="IntPtr"/ 句柄」窗体的位置和尺寸。

/// /summary

/// param name="句柄"指定「 see cref="IntPtr"/ 句柄」窗体/param

/// param name="x"横坐标/param

/// param name="y"纵坐标/param

/// param name="w"宽/param

/// param name="h"高/param

public static int 调整窗体(IntPtr 句柄, int x, int y, int w, int h) {

return API_窗口.SetWindowPos(句柄, 0, x, y, w, h, wFlags.SWP_NOZORDER);

}

/// summary

/// 调整指定「 see cref="IntPtr"/ 句柄」窗体的位置。

/// /summary

/// param name="句柄"指定「 see cref="IntPtr"/ 句柄」窗体/param

/// param name="x"横坐标/param

/// param name="y"纵坐标/param

public static int 调整窗体位置(IntPtr 句柄, int x, int y) {

return API_窗口.SetWindowPos(句柄, 0, x, y, 0, 0, wFlags.SWP_NOSIZE | wFlags.SWP_NOZORDER);

}

VB.NET 拖动无边框窗体编程实例

Imports System Drawing Imports System Windows Forms ****************************************** Private oOriginalRegion As Region = Nothing 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point ****************************************** Private Sub Form _MouseDown(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseDown Me bFormDragging = True Me oPointClicked = New Point(e X e Y) End Sub ****************************************** Private Sub Form _MouseUp(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Me bFormDragging = False End Sub ****************************************** Private Sub Form _MouseMove(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseMove If Me bFormDragging Then Dim oMoveToPoint As Point 以当前鼠标位置为基础找出目标位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移动窗体 Me Location = oMoveToPoint End If

lishixinzhi/Article/program/ASP/201311/21755

网站标题：vbnet窗口边框 vb窗口背景设置任意图片
标题URL：https://www.cdcxhl.com/article8/doshhip.html

成都网站建设公司_创新互联，为您提供Google、App开发、网站策划、微信公众号、外贸建站、搜索引擎优化

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容