AW: Problem beim Ändern von ID3
01.02.2005 21:41:22
ID3
Hallo Tobias,
probiers mal so. Bin morgen offline.
Private Sub CommandButton1_Click()
Application.EnableEvents = False
If MsgBox("Wollen Sie die Daten wirklich ändern ? ", _
vbYesNo, "ID3 Daten ändern") = vbYes Then
filename = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 2).Value
Sheets("datenbank").Select
id3Info.Title = RTrim(Dateianzeige.TextBox2.Text)
id3Info.Artist = RTrim(Dateianzeige.TextBox1.Text)
id3Info.Album = RTrim(Dateianzeige.TextBox3.Text)
id3Info.sYear = RTrim(Dateianzeige.TextBox5.Text)
id3Info.Genre = Dateianzeige.ComboBox1.ListIndex
id3Info.Comments = RTrim(Dateianzeige.TextBox7.Text)
SaveId3 Label2.Caption, id3Info
With Sheets("Datenbank")
.Cells(Dateianzeige.ListBox1.ListIndex + 2, 5).Value = id3Info.Title
.Cells(Dateianzeige.ListBox1.ListIndex + 2, 6).Value = id3Info.Artist
.Cells(Dateianzeige.ListBox1.ListIndex + 2, 7).Value = id3Info.Album
.Cells(Dateianzeige.ListBox1.ListIndex + 2, 8).Value = id3Info.sYear
.Cells(Dateianzeige.ListBox1.ListIndex + 2, 10).Value = id3Info.Genre
.Cells(Dateianzeige.ListBox1.ListIndex + 2, 9).Value = id3Info.Comments
End With
End If
Application.EnableEvents = True
End Sub
Private Sub ListBox1_Click()
If Application.EnableEvents Then
Dateianzeige.Label2.Caption = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 2).Value
Dateianzeige.TextBox1.Value = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 6).Value
Dateianzeige.TextBox2.Value = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 5).Value
Dateianzeige.TextBox3.Value = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 7).Value
sec = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 14)
Dateianzeige.TextBox4.Text = Format(Int([sec] / 60), "00") & ":" & Format([sec] Mod 60, "00")
Dateianzeige.TextBox5.Value = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 8).Value
Dateianzeige.TextBox6.Value = Format(Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 3) / 1024, "#,##")
Dateianzeige.TextBox7.Value = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 9).Value
Dateianzeige.TextBox8.Value = Sheets("datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 4).Value
Dateianzeige.ComboBox1.ListIndex = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 10)
Dateianzeige.Label37.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 11).Value & " kbps"
Dateianzeige.Label38.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 12).Value
Dateianzeige.Label39.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 13).Value
Dateianzeige.Label40.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 15).Value
'Label41 gibts nicht
Dateianzeige.Label42.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 16).Value
Dateianzeige.Label43.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 17).Value & " Hz"
Dateianzeige.Label44.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 18).Value
Dateianzeige.Label45.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 19).Value
Dateianzeige.Label46.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 20).Value & ".0"
Dateianzeige.Label47.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 21).Value
Dateianzeige.Label48.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 22).Value
Dateianzeige.Label49.Caption = Sheets("Datenbank").Cells(Dateianzeige.ListBox1.ListIndex + 2, 23).Value
End If
End Sub
Grüße, andre