1
Support Questions / ERROR AFTER FEW TIMES REBUILD
« on: September 10, 2023, 11:41:10 PM »
Hi, I'm getting these warnings and errors after few times rebuilding the solution.
how to resolve it?
how to resolve it?
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Class MainWindow
Dim videoPath As String = "D:\Music\Video Downloads\Sample1.mp4"
Dim imagePath As String = "D:\Pictures\transp_blue.png"
Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
PlayVideo()
ShowLabel()
End Sub
Private Sub PlayVideo()
Dim player As New MediaPlayer
player.Open(New Uri(videoPath, UriKind.Relative))
' Create the VideoDrawing.
Dim videoDrawing As New VideoDrawing()
videoDrawing.Rect = New Rect(150, 0, 100, 100)
videoDrawing.Player = player
' Assign the DrawingBrush.
Dim brush As New DrawingBrush(videoDrawing)
Me.Background = brush
' Start playback.
player.Play()
End Sub
Private Sub ShowLabel()
Dim Label1 As New Label
' Give the Label a semi-transparent background image from a PNG file:
Dim uri As New Uri(imagePath)
Dim bi As New BitmapImage(uri)
Dim labelBackground As New ImageBrush(bi)
labelBackground.Opacity = 0.5
' Set the Label properties including text
With Label1
.Background = labelBackground
.Content = "Example Text"
.Height = 100
.Width = 400
.Opacity = 0.5
.FontSize = 48
.Foreground = Brushes.Red
.FontFamily = New FontFamily("Segoe WP Black")
End With
' Add a Label to the Grid
Grid1.Children.Add(Label1)
End Sub
End Class
appreciate for all help or guidance.