/Source Code/ExperimentalProjection/Demo/frmMain.vb
Visual Basic | 87 lines | 68 code | 18 blank | 1 comment | 0 complexity | ae56e391cec89cd44ef62193d2cf1f99 MD5 | raw file
- Public Class frmMain
-
- Private _Projector As BaseProjector = Nothing
-
- Private Sub tmrMain_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrMain.Tick
- If _Projector IsNot Nothing Then _Projector.RenderFrame()
- End Sub
-
- Private Sub btnFadeOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFadeOut.Click
-
- If _Projector IsNot Nothing Then
- _Projector.HideProjectlet("Projectlet1", FadeEffect.FadeOut, TimeSpan.FromMilliseconds(1000))
- _Projector.HideProjectlet("Projectlet2", FadeEffect.FadeOut, TimeSpan.FromMilliseconds(333))
- _Projector.HideProjectlet("Projectlet3", FadeEffect.FadeOut, TimeSpan.FromMilliseconds(1000))
- End If
-
- End Sub
-
- Private Sub btnFadeIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFadeIn.Click
-
- If _Projector IsNot Nothing Then
- _Projector.ShowProjectlet("Projectlet1", FadeEffect.FadeIn, TimeSpan.FromMilliseconds(1000))
- _Projector.ShowProjectlet("Projectlet2", FadeEffect.FadeIn, TimeSpan.FromMilliseconds(333))
- _Projector.ShowProjectlet("Projectlet3", FadeEffect.FadeIn, TimeSpan.FromMilliseconds(1000))
- End If
-
- End Sub
-
- Private Sub ProjectionTypeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optGdi.CheckedChanged, optWpf.CheckedChanged
-
- pnlGdiProjection.Visible = optGdi.Checked
- pnlWpfProjection.Visible = optWpf.Checked
- RecreateProjector()
-
- End Sub
-
- Private Sub RecreateProjector()
-
- _Projector = Nothing
- If optGdi.Checked Then
- _Projector = ProjectorFactory.CreateGdiProjector(pnlGdiProjection)
- Else
- Dim ProjectionControl As WpfProjectionControl = pnlWpfProjection.Child
- Dim GridControl As System.Windows.Controls.Grid = ProjectionControl.MainGrid
- _Projector = ProjectorFactory.CreateWpfProjector(GridControl)
- End If
-
- ' TODO: Font styles
- _Projector.AddProjectlet("Projectlet1", _
- New AgnosticRectangle(0, 0, 1, 1), _
- "Verdana",
- AgnosticFontStyle.Italic, _
- New AgnosticColour(0, 0, 255), _
- 0.02, _
- New AgnosticColour(255, 255, 255), _
- TextEffect.None, _
- TextAlignment.TopLeft, _
- "Song Title Goes Here")
-
- _Projector.AddProjectlet("Projectlet2", _
- New AgnosticRectangle(0, 0, 1, 1), _
- "Arial", _
- AgnosticFontStyle.Bold, _
- New AgnosticColour(0, 0, 255), _
- 0.05, _
- New AgnosticColour(255, 255, 255), _
- TextEffect.OutlineAndShadow, _
- TextAlignment.MiddleMiddle, _
- "Hello World! Verse Line 1" + Environment.NewLine + _
- "Hello World! Verse Line 2" + Environment.NewLine + _
- "Hello World! Verse Line 3")
-
- _Projector.AddProjectlet("Projectlet3", _
- New AgnosticRectangle(0, 0, 1, 1), _
- "Times New Roman", _
- AgnosticFontStyle.Underline, _
- New AgnosticColour(0, 0, 255), _
- 0.02, _
- New AgnosticColour(255, 255, 255), _
- TextEffect.Shadow, _
- TextAlignment.BottomLeft, _
- "Copyright Text Line 1" + Environment.NewLine + _
- "Copyright Text Line 2")
-
- End Sub
-
- End Class