splashform.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 23 行

Imports System.IO
Imports System.Reflection

Public Class SplashForm

    Private Sub SplashForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Show full screen
        Me.ControlBox = False

        ' Load graphic into PictureBox
        Dim appPath As String = GetApplicationDirectory()
        Dim img As Image = New Bitmap(Path.Combine(appPath, "graphic.jpg"))
        pictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        pictureBox1.Image = img
    End Sub

    Private Function GetApplicationDirectory() As String

        Return Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetModules(0).FullyQualifiedName)

    End Function

End Class