Hallo liebe Leute,
Ich arbeite seit 2 Wochen mit VB 2010 und habe dabei folgendes Problem: Ich möchte in einer Picturebox ein Video abspielen, was soweit auch gut geklappt hat. Danach habe ich die Picturebox rund geschnitten, was auch noch funktioniert hat. Das Problem ist jetzt das VB das Video auf der X-Achse zusammenstaucht, was ich nicht möchte.
Ich habe schon verschiedenes versucht mit auto size etc. nichts davon hat irgendwas gebracht. Hat jemand ne Idee wie ich dieses zusammenstauchen weg bekomme? Das Video an sich ist perfekt quadratisch.
Außerdem soll das Video in einem Loop laufen. Hat dazu jemand Ideen?
Der Code den ich benutzte ist folgender:
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
'zum Abrunden der Picturebox
Sub abrunden(ByVal was As Object, _
ByVal x As Integer, ByVal y As Integer, _
ByVal width As Integer, ByVal height As Integer, _
ByVal radius As Integer)
Dim gp As System.Drawing.Drawing2D.GraphicsPath = _
New System.Drawing.Drawing2D.GraphicsPath()
gp.AddLine(x + radius, y, x + width - radius, y)
gp.AddArc(x + width - radius, y, radius, radius, 270, 90)
gp.AddLine(x + width, y + radius, x + width, y + height - radius)
gp.AddArc(x + width - radius, y + height - radius, radius, radius, 0, 90)
gp.AddLine(x + width - radius, y + height, x + radius, y + height)
gp.AddArc(x, y + height - radius, radius, radius, 90, 90)
gp.AddLine(x, y + height - radius, x, y + radius)
gp.AddArc(x, y, radius, radius, 180, 90)
gp.CloseFigure()
was.region = New System.Drawing.Region(gp)
gp.Dispose()
End Sub
'zum einfügen der video datei in die Picturebox
Dim Videodatei As Video = New Video("Video-pfad")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Videodatei.Owner = PictureBox1
Videodatei.Play()
abrunden(PictureBox1, 29, 29, 140, 140, 140)
End Sub
End Class
Für Vorschläge, Ideen, Code etc. wäre ich euch sehr dankbar.
Liebe Grüße Pablo
Ich arbeite seit 2 Wochen mit VB 2010 und habe dabei folgendes Problem: Ich möchte in einer Picturebox ein Video abspielen, was soweit auch gut geklappt hat. Danach habe ich die Picturebox rund geschnitten, was auch noch funktioniert hat. Das Problem ist jetzt das VB das Video auf der X-Achse zusammenstaucht, was ich nicht möchte.
Ich habe schon verschiedenes versucht mit auto size etc. nichts davon hat irgendwas gebracht. Hat jemand ne Idee wie ich dieses zusammenstauchen weg bekomme? Das Video an sich ist perfekt quadratisch.
Außerdem soll das Video in einem Loop laufen. Hat dazu jemand Ideen?
Der Code den ich benutzte ist folgender:
Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
'zum Abrunden der Picturebox
Sub abrunden(ByVal was As Object, _
ByVal x As Integer, ByVal y As Integer, _
ByVal width As Integer, ByVal height As Integer, _
ByVal radius As Integer)
Dim gp As System.Drawing.Drawing2D.GraphicsPath = _
New System.Drawing.Drawing2D.GraphicsPath()
gp.AddLine(x + radius, y, x + width - radius, y)
gp.AddArc(x + width - radius, y, radius, radius, 270, 90)
gp.AddLine(x + width, y + radius, x + width, y + height - radius)
gp.AddArc(x + width - radius, y + height - radius, radius, radius, 0, 90)
gp.AddLine(x + width - radius, y + height, x + radius, y + height)
gp.AddArc(x, y + height - radius, radius, radius, 90, 90)
gp.AddLine(x, y + height - radius, x, y + radius)
gp.AddArc(x, y, radius, radius, 180, 90)
gp.CloseFigure()
was.region = New System.Drawing.Region(gp)
gp.Dispose()
End Sub
'zum einfügen der video datei in die Picturebox
Dim Videodatei As Video = New Video("Video-pfad")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Videodatei.Owner = PictureBox1
Videodatei.Play()
abrunden(PictureBox1, 29, 29, 140, 140, 140)
End Sub
End Class
Für Vorschläge, Ideen, Code etc. wäre ich euch sehr dankbar.
Liebe Grüße Pablo