VB2010（24）窗体用户控件

界面：

代码：

Public Class MyNamespce
Private strApplicationName As String = String.Empty
Public Property ApplicationName As String
Get
Return strApplicationName
End Get
Set(ByVal value As String)
strApplicationName = value
End Set
End Property

Public Event ApplicationCopyrightChanged(ByVal text As String)
Public Event ScreenBoundsChanged(ByVal bounds As Rectangle)
Public Event ScreenWorkingAreaChanged(ByVal bounds As Rectangle)

Private Sub btnApplicationCopyright_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApplicationCopyright.Click
'显示应用程序的版权信息
RaiseEvent ApplicationCopyrightChanged(My.Application.Info.Copyright)
MessageBox.Show(My.Application.Info.Copyright, strApplicationName)
End Sub

Private Sub btnScreenBounds_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScreenBounds.Click
'显示计算机屏幕的当前边界，这个边界由屏幕的分辨率设置决定
RaiseEvent ScreenBoundsChanged(My.Computer.Screen.Bounds)
MessageBox.Show(My.Computer.Screen.Bounds.ToString, strApplicationName)
End Sub

Private Sub btnScreenWorkingArea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScreenWorkingArea.Click
'显示屏幕的当前工作区域。
RaiseEvent ScreenWorkingAreaChanged(My.Computer.Screen.WorkingArea)
MessageBox.Show(My.Computer.Screen.WorkingArea.ToString, strApplicationName)
End Sub
'计算任务栏高度
Public Function TaskBarHeight() As Integer
Return My.Computer.Screen.Bounds.Height - My.Computer.Screen.WorkingArea.Height
End Function

Protected Overrides Sub InitLayout()
MyBase.InitLayout()
If DesignMode Then
lblTime.Text = "设计模式"
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lblTime.Text = Now.ToLongTimeString
End Sub
End Class
前台：

Public Class Form1
'显示任务栏高度
Private Sub btnTaskbarHeight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTaskbarHeight.Click
MessageBox.Show("Taskbar Height = " & MyNamespce1.TaskBarHeight & "pixels", "Form1")
End Sub

Private Sub MyNamespce1_ApplicationCopyrightChanged(ByVal text As String) Handles MyNamespce1.ApplicationCopyrightChanged
txtApplicationCopyright.Text = text
End Sub

Private Sub MyNamespce1_ScreenBoundsChanged(ByVal bounds As System.Drawing.Rectangle) Handles MyNamespce1.ScreenBoundsChanged
txtScreenBounds.Text = bounds.ToString
End Sub

Private Sub MyNamespce1_ScreenWorkingAreaChanged(ByVal bounds As System.Drawing.Rectangle) Handles MyNamespce1.ScreenWorkingAreaChanged
txtScreenWorkingArea.Text = bounds.ToString
End Sub
End Class

VB2010（24）窗体用户控件相关推荐

asp.net控件页面交互_ASP.NET Web窗体用户控件的基本交互
asp.net控件页面交互 I saw a recent question regarding .NET - Render User Control Logo on Postback and deci ...
ASP.NET中实现复用代码自定义用户控件UserControl的使用
场景 ASP.NET中新建Web网站并部署到IIS上(详细图文教程): https://blog.csdn.net/BADAO_LIUMANG_QIZHI/article/details/107199 ...
C#中，用户控件UserControl里面用Panl加载UserControl，并实现利用委托互相传值
用户控件主窗体结构:左侧树形菜单,右侧Panl: 根据点击的菜单节点,panl里面选择性加载某一个子窗体用户控件,并传值给子窗体: 反之,在子窗体进行相应的操作之后,传值给主窗体,触发主窗体的刷新. ...
[TabControl] TabControl控件的最佳实践，可以把一个窗体和用户控件添加进来
看下效果吧 <ignore_js_op> 下面是一个公共的添加方法看代码 [C#] 纯文本查看复制代码 ? 01 02 03 04 05 06 07 08 09 10 11 12 1 ...
无边框窗体和用户控件以及权限
无边框窗体: 就是吧窗体的边框去掉,然后自己做按钮设置功能. 无边框窗体的移动: 将下面代码直接复制粘贴,将窗体的鼠标按下事件的方法改成下面方法的名字就可以直接使用 1 //窗体移动API 2 [Dl ...
C#仿QQ皮肤－常用用户控件EnterFrom1和窗体EntryForm的实现
导读部分 ----------------------------------------------------------------------------------------------- ...
delphi 登录界面主窗体切换_.NET CORE(C#) WPF 方便的实现用户控件切换（祝大家新年快乐）
微信公众号:Dotnet9,网站:Dotnet9,问题或建议:请网站留言, 如果对您有所帮助:欢迎赞赏. 快到2020年了,祝大家新年快乐,今年2019最后一更,谢谢大家支持! 阅读导航本文背景代 ...
html 调用c#dll中的控件,C#实现反射调用动态加载的DLL文件中的方法和在窗体中加载DLL文件的用户控件...
反射的作用: 1．可以使用反射动态地创建类型的实例,将类型绑定到现有对象,或从现有对象中获取类型 2．应用程序需要在运行时从某个特定的程序集中载入一个特定的类型,以便实现某个任务时可以用到反射. ...
学习笔记---母板页、用户控件、第三方控件及视图状态管理
一.母版页在制作页面的过程中, 多个页面往往具有相同的页面Header和页面Footer, 多个页面只是在中间部分有变化. 那么我们完全可以避免在每个页面中都写一遍页头和页尾的代码, 这种技术就是母 ...
【转】页（page），用户控件（userControl），窗口（window）区别
欢迎加入BIM行业开发交流1群群号:711844216 背景大家在vs中新建wpf项目后,会发现在添加新建项时会出现下列三个选项它们有什么区别呢? 区别: 页:通常用于网页窗口:通常一个桌面a ...

VB2010（24）窗体用户控件

VB2010（24）窗体用户控件相关推荐

最新文章

热门文章