LzmTW.uSystem.uWindows.uForms.uMainForm + SplashScreenHelper

最新推荐文章于 2008-01-18 15:22:00 发布

水如烟

最新推荐文章于 2008-01-18 15:22:00 发布

阅读量1.1k

点赞数

分类专栏：应用类代码文章标签： string object class

本文链接：https://blog.csdn.net/lzmtw/article/details/1427053

版权

应用类代码专栏收录该内容

35 篇文章 0 订阅

订阅专栏

Author：水如烟

Namespace LzmTW.uSystem.uWindows.uForms.uMainForm
     Public Class SplashScreenHelper
         Friend Delegate Sub MessageSendingHandler( ByVal sender As Object , ByVal Message As String )
         Friend Shared Event MessageSending As MessageSendingHandler

         Private Sub New ()
         End Sub

         Public Shared Sub SendMessage( ByVal sender As Object , ByVal Message As String )
             If MessageSendingEvent Is Nothing Then Exit Sub

             RaiseEvent MessageSending(sender, Message)
         End Sub

         Public Shared Sub SendMessage( ByVal message As String )
            SendMessage( Nothing , message)
         End Sub

         Public Shared Sub ActiveFormWithMaxnumSize( ByVal form As Windows.Forms.Form)
             With form
                .Location = New Point( 0 , 0 )
                .Size = System.Windows.Forms.SystemInformation.WorkingArea.Size
             End With
            Win32API.WindowsAction.ShowWindow(form)
         End Sub
     End Class
End Namespace