界面：

代碼：

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
? ? ? ? '顯示應(yīng)用程序的版權(quán)信息
? ? ? ? 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
? ? ? ? '顯示計(jì)算機(jī)屏幕的當(dāng)前邊界，這個(gè)邊界由屏幕的分辨率設(shè)置決定
? ? ? ? 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
? ? ? ? '顯示屏幕的當(dāng)前工作區(qū)域。
? ? ? ? RaiseEvent ScreenWorkingAreaChanged(My.Computer.Screen.WorkingArea)
? ? ? ? MessageBox.Show(My.Computer.Screen.WorkingArea.ToString, strApplicationName)
? ? End Sub
? ? '計(jì)算任務(wù)欄高度
? ? 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 = "設(shè)計(jì)模式"
? ? ? ? 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
前臺(tái)：

Public Class Form1
? ? '顯示任務(wù)欄高度
? ? 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
?

總結(jié)

以上是生活随笔為你收集整理的VB2010（24）窗体用户控件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。