Visual Basic 2010 数据库开发之人事管理系统02闪窗设计

原创于 2020-06-15 14:34:52 发布 · 190 阅读

1 ·

CC 4.0 BY-SA版权

Visual Basic 2010 数据库开发实例专栏收录该内容

42 篇文章

订阅专栏

本文详细介绍了一种人事管理系统启动时的闪屏设计方法，包括使用PictureBox显示自定义图片，Label展示感谢信息，并通过Timer控件实现淡出效果。代码实现了窗体加载时的透明背景设置，图片控件作为标签的父级，以及定时器启用和间隔设定。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、在窗体上添加控件：一个PictureBox控件，一个Label标签控件，一个Timer控件。

二、在“属性”窗口中设置窗体及各控件的相关属性，控件主要属性设置。

控件类型	属性名	属性值	功能
	Name	FrmSplash	提供闪窗窗体
Form	FromBorderStyle	None	设置为无边框
Form	StartPosition	CenterScreen
	Name	PictureBoxl
PictureBox	Image	已有的图片
PictureBox	SizeMode	StretchImage
Label	Text	感谢您使用人事管理系统V1.O
Timer	Enabled	False

Public Class frmSplash

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.BackColor = Color.Transparent
        Label1.Parent = PictureBox1
        Timer1.Enabled = True
        Timer1.Interval = 10
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static n As Integer
        n = n + 1
        Me.Opacity = 1 - n / 100
        If Me.Opacity = 0 Then
            Dim frmLogin As New frmlogin
            frmLogin.show()
            Timer1.Stop()
            Me.Hide()
        End If
    End Sub
End Class