Click here to Skip to main content
15,884,388 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: listbox mass edit Pin
Ralf Meier14-Jun-23 7:46
mveRalf Meier14-Jun-23 7:46 
GeneralRe: listbox mass edit Pin
Member Alienoiz14-Jun-23 8:40
Member Alienoiz14-Jun-23 8:40 
GeneralRe: listbox mass edit Pin
Ralf Meier14-Jun-23 9:01
mveRalf Meier14-Jun-23 9:01 
GeneralRe: listbox mass edit Pin
Richard MacCutchan14-Jun-23 8:55
mveRichard MacCutchan14-Jun-23 8:55 
GeneralMessage Closed Pin
15-Jun-23 1:19
mveAndre Oosthuizen15-Jun-23 1:19 
GeneralRe: listbox mass edit Pin
Richard MacCutchan15-Jun-23 1:21
mveRichard MacCutchan15-Jun-23 1:21 
GeneralRe: listbox mass edit Pin
Andre Oosthuizen15-Jun-23 2:08
mveAndre Oosthuizen15-Jun-23 2:08 
GeneralRe: listbox mass edit Pin
Member Alienoiz18-Jun-23 5:25
Member Alienoiz18-Jun-23 5:25 
hey..i was able to do it...i used this code

VB
<pre>Private Sub lblsave_Click(sender As Object, e As EventArgs) Handles lblsave.Click
        If ListBox1.SelectedItem = "" Then
            Dim r8 As DialogResult = MessageBox.Show(Me, "No file selected!",
                                   "Select files!", MessageBoxButtons.OK)


        Else
            Dim rw As DialogResult = MessageBox.Show(Me, "SAVE all TAGs?",
                           "Save tags!", MessageBoxButtons.OKCancel)
            If rw = DialogResult.OK Then




                If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And CheckBox6.Checked = False And CheckBox7.Checked = False And CheckBox8.Checked = False Then
                    Dim r8 As DialogResult = MessageBox.Show(Me, "Select a tag to enter!",
                                  "Select tags!", MessageBoxButtons.OK)
                Else
                    Dim ite = ListBox1.SelectedItems
                    For Each item In ite
                        myMp3.Read(FolderBrowserDialog1.SelectedPath & "\" & item)
                        If CheckBox1.Checked = True Then
                            myMp3.ID3v2Tag.Title = label1.Text
                            myMp3.Write()
                        End If
                        If CheckBox2.Checked = True Then
                            myMp3.ID3v2Tag.Artist = Label2.Text
                            myMp3.Write()
                        End If


                        If CheckBox3.Checked = True Then
                            myMp3.ID3v2Tag.Album = Label3.Text
                            myMp3.Write()
                        End If


                        If CheckBox4.Checked = True And Label4.Text <> "" Then
                            On Error Resume Next
                            myMp3.ID3v2Tag.Year = Short.Parse(Label4.Text)
                            myMp3.Write()
                        End If
                        If CheckBox5.Checked = True And label5.Text <> "" Then
                            On Error Resume Next
                            myMp3.ID3v2Tag.TrackNum = Short.Parse(label5.Text)
                            myMp3.Write()

                        End If
                        If CheckBox6.Checked = True Then
                            myMp3.ID3v2Tag.Comments = label6.Text
                            myMp3.Write()
                        End If

                        If CheckBox7.Checked = True Then
                            myMp3.ID3v2Tag.Genre = label7.Text
                            myMp3.Write()
                        End If



                        If CheckBox8.Checked = True Then
                            If label10.Text <> "" Then
                                Dim pics = myMp3.ID3v2Tag.Frames.GetFrames(CommonMultipleInstanceID3v2FrameTypes.Picture)
                                myMp3.ID3v2Tag.Frames.Remove(pics)
                                myMp3.Write()
                                Dim AlbumArt As ID3v2PictureFrame = New ID3v23PictureFrame(CType(System.Drawing.Bitmap.FromFile(label10.Text), System.Drawing.Bitmap), PictureTypes.CoverFront, "Attached picture", TextEncodingTypes.ISO88591)
                                myMp3.ID3v2Tag.Frames.Add(AlbumArt)
                                myMp3.Write()
                            Else
                                Dim re As DialogResult = MessageBox.Show(Me, "Could not write image!",
                                  "Tagged files!", MessageBoxButtons.OK)
                            End If
                        End If
                    Next item

                End If
            End If
        End If

        Dim r9 As DialogResult = MessageBox.Show(Me, "Operation complete!",
                      "Tagged files!", MessageBoxButtons.OK)
    End Sub

GeneralRe: listbox mass edit Pin
Richard MacCutchan13-Jun-23 5:33
mveRichard MacCutchan13-Jun-23 5:33 
AnswerRe: listbox mass edit Pin
Andre Oosthuizen15-Jun-23 2:16
mveAndre Oosthuizen15-Jun-23 2:16 
GeneralRe: listbox mass edit Pin
Member Alienoiz15-Jun-23 3:13
Member Alienoiz15-Jun-23 3:13 
GeneralRe: listbox mass edit Pin
Andre Oosthuizen15-Jun-23 3:31
mveAndre Oosthuizen15-Jun-23 3:31 
GeneralRe: listbox mass edit Pin
Member Alienoiz15-Jun-23 3:43
Member Alienoiz15-Jun-23 3:43 
QuestionAnyone familiarized with UltraID3lib? Pin
Member Alienoiz10-Jun-23 5:02
Member Alienoiz10-Jun-23 5:02 
AnswerRe: Anyone familiarized with UltraID3lib? Pin
Dave Kreskowiak10-Jun-23 6:10
mveDave Kreskowiak10-Jun-23 6:10 
QuestionVisual basic Pin
Member 160253288-Jun-23 18:45
Member 160253288-Jun-23 18:45 
AnswerRe: Visual basic Pin
Richard MacCutchan9-Jun-23 0:34
mveRichard MacCutchan9-Jun-23 0:34 
GeneralRe: Visual basic Pin
Member 160253289-Jun-23 18:18
Member 160253289-Jun-23 18:18 
GeneralRe: Visual basic Pin
Richard MacCutchan9-Jun-23 22:28
mveRichard MacCutchan9-Jun-23 22:28 
GeneralRe: Visual basic Pin
Member 1602532810-Jun-23 0:13
Member 1602532810-Jun-23 0:13 
GeneralRe: Visual basic Pin
Richard MacCutchan10-Jun-23 1:18
mveRichard MacCutchan10-Jun-23 1:18 
AnswerRe: Visual basic Pin
Gerry Schmitz9-Jun-23 2:51
mveGerry Schmitz9-Jun-23 2:51 
QuestionCrash on converting string to byte Pin
Member Alienoiz8-Jun-23 3:49
Member Alienoiz8-Jun-23 3:49 
AnswerRe: Crash on converting string to byte Pin
Richard MacCutchan8-Jun-23 4:12
mveRichard MacCutchan8-Jun-23 4:12 
GeneralRe: Crash on converting string to byte Pin
Member Alienoiz8-Jun-23 4:27
Member Alienoiz8-Jun-23 4:27 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.