Imports System.IO
Imports System.Reflection
Imports Microsoft.WindowsCE.Forms

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

    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Using backgroundImage As Image = _
            New Bitmap(System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("MobileDevelopersHandbook.Graphic.JPG"))

            ' Fill the background
            e.Graphics.Clear(Color.Black)

            ' Draw the image, but scale it
            ' SourceRect is entire image
            Dim srcRect As Rectangle = _
                    New Rectangle(0, 0, backgroundImage.Width, backgroundImage.Height)
            ' Define the destination rectangle size as 50% of the clipping rectangle
            Dim destRect As Rectangle = _
                    New Rectangle(0, 0, e.ClipRectangle.Width / 2, e.ClipRectangle.Height / 2)
            ' Reposition origin to centre the image on the screen
            destRect.Location = New Point( _
                (e.ClipRectangle.Width - destRect.Width) / 2, _
                (e.ClipRectangle.Height - destRect.Height) / 2)

            ' Draw the image
            e.Graphics.DrawImage(backgroundImage, destRect, srcRect, GraphicsUnit.Pixel)
        End Using

        ' Create string to draw.
        Dim drawString As String = "Mobile Developers Handbook"
        ' Create font and brush.
        Dim drawBrush As SolidBrush = New SolidBrush(Color.Yellow)

        ' Draw string to screen using the LogFont.
        Using ft As Font = CreateLogFont(90)
            e.Graphics.DrawString(drawString, ft, drawBrush, 5, Me.Height - 20, _
                New StringFormat(StringFormatFlags.NoClip Or StringFormatFlags.NoWrap))

        End Using

        MyBase.OnPaint(e)

    End Sub

    Private Const POINTS_PER_INCH As Single = 72.0F

    Private Function CreateLogFont(ByVal angle As Integer) As Font
        ' Create and define a LogFont structure.
        Dim fontStruct As LogFont = New LogFont()

        Using g As Graphics = Me.CreateGraphics()
            ' Scale 10point for the dpi of the current display
            ' also make it negative, means match against character 
            ' height of available fonts
            fontStruct.Height = -1 * CType((12.0F * (g.DpiY / POINTS_PER_INCH)), Integer)
        End Using

        ' Since font width is usually dependent on the height, 
        ' usual to set width to zero
        fontStruct.Width = 0

        ' Set the font angle.
        ' Remember to multiply by 10.
        fontStruct.Escapement = angle * 10

        ' The Escapement member specifies both the
        ' escapement and orientation. You should set
        ' Escapement and Orientation to the same value.
        fontStruct.Orientation = fontStruct.Escapement

        ' No formatting.
        fontStruct.Italic = 0
        fontStruct.Underline = 0
        fontStruct.StrikeOut = 0
        ' Weight: 0 = default, 400 = normal, 700 = bold
        fontStruct.Weight = 0

        fontStruct.CharSet = LogFontCharSet.Default
        fontStruct.OutPrecision = LogFontPrecision.Default
        fontStruct.ClipPrecision = LogFontClipPrecision.Default
        fontStruct.Quality = LogFontQuality.Default
        fontStruct.PitchAndFamily = LogFontPitchAndFamily.Default

        fontStruct.FaceName = "Arial"

        ' Create the font from the LogFont structure.
        Return Font.FromLogFont(fontStruct)
    End Function



End Class