锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net窗口黑框 vb窗体背景颜色怎么设置

IT技术窗口

求大神指点 vb.net 控制台应用程序 怎么 不显示黑框运行呢?这个黑色vb.net窗口黑框的窗体就是控制台啊vb.net窗口黑框 ， 你不想显示控制台vb.net窗口黑框 ， 就不要选控制台应用vb.net窗口黑框，选windows窗体好vb.net窗口黑框了 。
Vb.net 无边框窗体如何实现四周阴影？ 网上搜到的都是两边阴影的，我需要四周阴影设置全局变量：
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
假设你想拖动的是Panel1控件 ， 以及此控件上的 Label1（用于显示标题）和PictureBox4（用于显示图标）：
Private Sub TitleMove_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, Label1.MouseDown, PictureBox4.MouseDown
drag = True
mousex = Windows.Forms.Cursor.Position.X - Me.Left
mousey = Windows.Forms.Cursor.Position.Y - Me.Top
End Sub
Private Sub TitleMove_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove, Label1.MouseMove, PictureBox4.MouseMove
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub TitleMove_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp, Label1.MouseUp, PictureBox4.MouseUp
drag = False
End Sub
vb.net控件的BorderStyle设置为FixedSingle会出现黑线边框,可以更改他的颜色吗 比如改成红色线边框要么重写这个控件vb.net窗口黑框的 OnPaint 事件vb.net窗口黑框，判断 BorderStyle 属性为 FixedSingle vb.net窗口黑框的时候自绘其vb.net窗口黑框他颜色 。
要么不重写vb.net窗口黑框，把 BorderStyle 设为 None，直接在这个控件的 Paint 事件里自绘边框，例如：
Private Sub Label1_Paint(sender As Object, e As PaintEventArgs) Handles Label1.Paint
e.Graphics.DrawRectangle(Pens.Red, New Rectangle(Label1.DisplayRectangle.X, Label1.DisplayRectangle.Y, Label1.DisplayRectangle.Width - 1, Label1.DisplayRectangle.Height - 1))
End Sub
运行效果：
怎么用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 ， 将窗体置于所有非顶层窗体之上（即在所有顶层窗体之后） 。如果窗体已经是非顶层窗体则该标志不起作用 。

推荐阅读


上一篇：q35最高配什么cpu，q3155

下一篇：阿里免费服务器领取，阿里服务器怎么收费