![]()
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
If Label2.Text = 5 And Label1.Text = 4 Then Label1.Visible = True Label2.Visible = True Try VideoDatei2 = New Video(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "n.avi") VideoDatei2.Owner = Panel1 'wird komischer weise übersprungen VideoDatei2.Play() 'wird komischer weise übersprunge Catch ex As Exception End Try VideoDatei2.Owner = Panel1 'deswegen hier noch einmal hier tritt dann der fehler auf VideoDatei2.Play() End If |
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
If Label2.Text = 5 And Label1.Text = 4 Then Label1.Visible = True Label2.Visible = True Try VideoDatei2 = New Video(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "n.avi") VideoDatei2.Owner = Panel1 'wird komischer weise übersprungen VideoDatei2.Play() 'wird komischer weise übersprunge Catch ex As Exception msgbox(ex.Message) End Try VideoDatei2.Owner = Panel1 'deswegen hier noch einmal hier tritt dann der fehler auf VideoDatei2.Play() End If |
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 |
If video.Playing Then video.Pause() Else video.Play() End If |
|
|
Visual Basic Quellcode |
1 2 3 |
Song = 0 Pfad = (IO.File.ReadAllLines(My.Application.Info.DirectoryPath & "\Playlists\" & ListBox1.SelectedItem & ".txt")(Song)) Label2.text = Pfad |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »ebrithil« (13. Oktober 2010, 21:43)
|
|
Visual Basic Quellcode |
1 |
VideoDatei2 = New Video(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "n.avi") |
|
|
Visual Basic Quellcode |
1 |
VideoDatei2 = New Video(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\n.avi") |
.
.AudioVideoPlayback)!
!!!Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »der_Kurt« (25. Oktober 2010, 10:48)
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Imports Microsoft.DirectX Imports Microsoft.DirectX.AudioVideoPlayback Public Class Form1 Private WithEvents AudioDatei As Audio Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.ShowDialog() Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TextBox1.Text = OpenFileDialog1.FileName AudioDatei = New Audio(TextBox1.Text) End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click Form2.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() AudioDatei.Play() End Sub End Class |