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
使用VB.NET的五个技巧之窗体嵌套NET框架组件太大了 比任何以前所写vb.net窗体的封装功能vb.net窗体的库都要大 这样有好处 因为它大幅削减了建立应用程序所需编写的代码 但是也使vb.net窗体我们不可能完全了解该框架组件 但是vb.net窗体我们很容易从中找到一些技巧
窗体嵌套
经验丰富的Visual Basic开发者知道多文档界面(MDI)应用程序能够包含子窗体 那些子窗体由MDI父窗体管理 但是如果没有MDI的能力vb.net窗体你怎样实现包含嵌套窗体?例如一个MDI子窗体也可能需要包含另一个窗体
有时能够使用用户控件(UserControl)实现这种功能 但是如果你真的需要把一个窗体嵌套进另一个窗体 有多种方法可以实现 窗体衍生自Control类 这意味着它能被放入另一个窗体的控件集合中 使用如下的逻辑
Dim f As New frmEmbed ()Me Controls Add(f)f Show()
但是很不幸 这段代码将会导致一个运行时(runtime)异常(见图 )
图 试图把一个窗体添加到另一个窗体的控件集合时出现的运行时错误
为了避免这种异常 该窗体的TopLevel属性必须设置为False(见下面的代码)
Dim f As New frmEmbed () f TopLevel = False Me Controls Add(f) f Show()
图 显示的是使用上面的逻辑实现的一个窗体嵌入另一个窗体 嵌入的窗体有一个标题条(它的颜色是未激活的系统颜色) 因此该嵌入窗体能在容器窗体内四处拖动 在图 中 该窗体从它的开始位置(左上角)拖到了右下角
图 在容器窗体中有一个嵌入的窗体 嵌入的窗体能在容器窗体中拖动
通常在显示嵌入的窗体前先设置它的位置 这只需要简单的设置嵌入窗体的Left和Top属性 嵌入窗体的位置与容器窗体是相对的
与MDI子窗体不同 嵌入窗体能覆盖容器窗体上的控件 图 显示了它们的不同
图 嵌入窗体(左)可以覆盖容器窗体上的控件 MDI子窗体(右)不能覆盖MDI父窗体上的控件
在右边的MDI例子中 没有办法使按钮隐藏在子窗体的后面 但是在左边该按钮被嵌入窗体覆盖了
当窗体第一次被嵌入时 它将显示在容器窗体上的已存在的控件的后面 当它被点击时 它走向前台并停留在那儿 这会打扰用户 但是能通过插入下面的代码防止这种情况发生
f BringToFront()
嵌入的窗体可以包含其它的嵌入窗体 没有实际的限制 图 显示了一个本身包含嵌入的窗体的嵌入窗体
lishixinzhi/Article/program/net/201311/12398
vb.net中怎么使窗体全屏显示?Me.Height = My.Computer.Screen.Bounds.Height\x0d\x0aMe.Width = My.Computer.Screen.Bounds.Width\x0d\x0a这是设置窗体的长宽和屏幕的分辨率一样大?。嗟庇谌?。\x0d\x0a如果Me.WindowState=FormWindowState.Maximized的话 , 只是单纯的将窗体最大化,但恢复窗口大小后窗体的大小实际上还和原来一样大 。
推荐阅读
- 微信直播交税要交多少钱,微信直播避税
- chatgpt反向套话,反向atrp
- flutter放大透明,flutter 图片缩放
- 直播软件下载电子书,课堂直播电子书
- 调php用数据库的方法吗 php数据库编程
- python爬虫大众点评,爬虫抓取评论
- 直播比赛拉票话术怎么说,直播厅战拉票话术
- JAVA解析代码的软件 java解析代码的软件有哪些
- 安卓2.3.6能装的应用,安卓237能用的软件