如何开机进入dos:在VB.NET中表示初始屏幕窗体

来源：百度文库 编辑：中财网 时间：2024/04/29 06:00:15

在VB.NET中表示初始屏幕窗体

注意：这里所介绍的是Visual Studio 2005版本开始，在VB.NET中表示初始屏幕窗口的方法，以前版本的使用方法请参考「初始屏幕窗口的表示」。

初始屏幕的方法顺序设定如下。

    1. 作成表示初始屏幕窗口的窗体。从「新建项目」中选择「初始屏幕」即可生成。

    2. 选择菜单中的「项目」，然后选择最下面的「属性」，然后属性窗口就被表示了。

    3. 选择「实用程序」（通常是默认选项）。

    4. 在「启用应用程序框架」前面的四角形处点击，激活Windows应用程序框架属性部分。

    5. 在「初始屏幕」的下拉框中选择刚才生成的窗体。

当参数指定为“/nosplash”或“-nosplash”时，初始屏幕窗口就不会被表示。

指定初始屏幕窗口的表示时间

通过设定My.Application.MinimumSplashScreenDisplayTime属性，可以指定初始屏幕窗体表示的最短时间（单位为毫秒），通常默认为2秒。比如说，处理主窗体的Load事件处理器时，所使用的时间为设定时间以上，那初始屏幕窗体会一直被表示。

MinimumSplashScreenDisplayTime属性，需要在MyApplication类的OnInitialize方法重载后的方法内设定。表示MyApplication类被记录的ApplicationEvents.vb文件，可以点击项目属性的应用程序中的查看应用程序事件按钮。

[VB.NET]

Protected Overrides Function OnInitialize( _ ByVal commandLineArgs As _ System.Collections.ObjectModel.ReadOnlyCollection(Of String) _ ) As Boolean '设定初始屏幕窗体表示最短时间为10秒 Me.MinimumSplashScreenDisplayTime = 10000 Return MyBase.OnInitialize(commandLineArgs) End Function

表示初始屏幕窗口的进度

代码如下所示。需要先向初始屏幕窗体的窗口类写入下面的代码，向初始屏幕窗体追加名为“Message”的Label控件。

[VB.NET]

'''  ''' 变更在初始屏幕窗体中表示的信息 '''  ''' 表示的信息 '''  Friend Sub SetMessage(ByVal msg As String) If Not Me.IsDisposed AndAlso Me.IsHandleCreated Then If Me.InvokeRequired Then Me.Invoke(New EventHandler(AddressOf Me.SetMessagePrivate), _ New Object() {msg, Nothing}) Else Me.SetMessagePrivate(msg, Nothing) End If End If End Sub Private Sub SetMessagePrivate(ByVal sender As Object, _ ByVal e As System.EventArgs) Me.Message.Text = CStr(sender) End Sub

调用SetMessage方法，可以表示初始屏幕窗口现在的状态。代码如下所示。

[VB.NET]

'窗体的Load事件处理器 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim ssform As SplashScreen1 = _ CType(My.Application.SplashScreen, SplashScreen1) For i As Integer = 0 To 100 Step 10 ssform.SetMessage(i.ToString() + "% 读取了。") System.Threading.Thread.Sleep(1000) Next End Sub
vb.net中在窗体上显示用什么方法？ vb.net中在其它窗体中如何关闭指定的窗体 在vb.net中，如何在一个窗体上打开另一个窗体？ vb里在窗体中嵌入窗体 在VB.net中怎样将窗体中文本框的数据保存到一个*.htm中？ vb.net窗体问题？ vb.net窗体 VB.NET中如何将窗体上显示得数据在插入后直接刷新。 在VB.NET中如何将窗体、按钮和标签的背景色设置为透明？ vb.net中如何建MDI子窗体？ 在VB.net如何建自适应改变窗体大小 在VB中如何分割窗体? (高分) 关于VB.NET窗体问题 vb.net 子窗体问题 VB中拖动窗体 为什么在vs.net 2003中不能创建窗体？ 如何用VB.NET打印当前窗体？？ VB.NET窗体像图片一样变化 VB.net的窗体之间的问题。 VB.NET中如何锁定窗体的大小。让最大化按钮点不了。 VB如何在菜单中打开一个新的窗体 在vb窗体中“标签”和“框架”的问题 在vb中能不能让窗体自动添加滚动条, 在VB中打开、关闭窗体用什么表达式？