包含vb.net窗体样式的词条

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

怎么用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轻松制作特效窗体

体是Windows应用程序的基础新一代的开发工具Visual Basic Net为设计制作窗体提供了更多简单而丰富的方法无需再求助于复杂而易错的API函数我们就可以轻松制作多种特效窗体轻松制作透明窗体VB NET可以轻松制作出任一透明度的窗体我们只要在窗体的属性窗口中将 Opacity 属性设置为一个介于（完全透明）与（完全不透明）之间的值就可以了 Dim frm As FrmTrans = New FrmTrans()frm Opacity = frm ShowDialog() 轻松制作始终位于最上层的窗体在VB 中要制作一个始终位于最上层的窗体我们只能求助于令人头痛的API函数然而在 NET 中我们只要简单设置窗体的 TopMost 属性就可实现同样效果了！例如 Dim frm As frmTopMost = New frmTopMost()frm TopMost = Truefrm Show() 轻松制作不可见的窗体如果要编写一个不让别人发现的隐藏程序制作不可见的窗体就是必须实现的第一步窗体的可见性通常由 Visible 属性控制但是如果希望 Windows 应用程序的主窗体在应用程序启动时不可见您将会发现将它的 Visible 属性设置为 False 的方法无效窗体总会自己显示出来（这是因为启动窗体的生存期决定了应用程序的生存期）虽然如此我们还是可以通过简单将应用程序的启动设置为一个模块从而从窗体的生存期分出应用程序的生存期轻松实现不可见的窗体在下面这个例子中窗体在特定的时间内自动隐藏（）在 Visual Basic 中右击项目并选择添加模块以将模块添加到 Windows 应用程序（）在已添加的模块（或类）内创建可作为项目启动对象的 Main 函数 Sub main()Dim f As New Form ()f Visible = FalseWhile Hour(Date Now) 如果当前时间早于点窗体自动隐藏Application DoEvents()End Whilef ShowDialog()End Sub 轻松编写托盘程序托盘程序作为一类特殊的窗体其快捷图标显示在系统托盘中窗体本身则隐藏不可见在 NET之前版本的VB中编写托盘程序是十分困难的但是VB NET提供的新的NotifyIcon组件却使VB初学者也能轻松编写一个这样的程序新建 Windows应用程序设置主窗体Opacity属性为 FormBorderStyle属性为None ShowInTaskbar属性为False 这样窗体将在启动后隐藏在窗体上放置一个NotifyIcon组件NotifyIcon 一个ContextMenu（弹出菜单）组件ContextMenu 并根据需要为ContextMenu 添加菜单项设置NotifyIcon 的ICON属性这个图标就是应用程序出现在系统托盘中的快捷图标设置NotifyIcon 的Text属性为 VB NET托盘程序这就是鼠标移动到托盘图标时弹出的文字说明设置NotifyIcon 的ContextMenu属性为ContextMenu 也就是右键单击快捷图标时的弹出菜单为ContextMenu OK 按F 运行！几乎不用编写代码一个托盘程序就这样轻松实现了 lishixinzhi/Article/program/net/201311/13831

怎么在VB.NET中创建模态窗体

VB用Show方法显示窗体时使用style属性为1vb.net窗体样式，就可使显示vb.net窗体样式的窗体以模式窗体显示。 Show 方法vb.net窗体样式，用以显示 MDIForm 或 Form 对象。不支持命名参数。说明如果调用 Show 方法时指定的窗体没有装载vb.net窗体样式，Visual Basic 将自动装载该窗体。