Crash on converting string to byte

Member Alienoiz

can it be here?

' Fix the length of the frames
strTitle = LSet(mobjFrame(0), Len(strTitle))
strArtist = LSet(mobjFrame(1), Len(strArtist))
strAlbum = LSet(mobjFrame(2), Len(strAlbum))
strYear = LSet(mobjFrame(3), Len(strYear))
bytTrack = mobjFrame(4)
strComment = LSet(mobjFrame(5), Len(strComment))
bytGenre = mobjFrame(6)

sorry im blind about it for now :(((

Lost User

Sorry, I really have no idea what that code is trying to do, so I cannnt say whether it is correct or not.

Member Alienoiz

hey..i changed my library..im now using UltraID3lib.....it seems im making it but i have another question... how do i make mass edit in a listbox? im using this code that was working previously but is not working now:

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

    If ListBox1.SelectedItem = "" Then
        Dim r8 As DialogResult = MessageBox.Show(Me, "No File Selected!",
                               "Select Files", MessageBoxButtons.OK)


    Else
        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 Then
            Dim r8 As DialogResult = MessageBox.Show(Me, "Select a tag to enter!",
                              "Select Tags", MessageBoxButtons.OK)
        Else
            Dim fil = ListBox1.SelectedItems
            Dim fil2 As String
            For Each fil2 In fil

                If CheckBox1.Checked = True Then
                    myMp3.ID3v2Tag.Title = TextBox1.Text
                    myMp3.Write()
                End If


                If CheckBox2.Checked = True Then
                    myMp3.ID3v2Tag.Artist = TextBox2.Text
                    myMp3.Write()
                End If


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


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


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


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

                If CheckBox7.Checked = True Then
                    If ComboBox1.Text = "01 - User" Then
                        myMp3.ID3v2Tag

Lost User

Sorry, I have no idea what you mean by "this code that was working previously but is not working now:". You need to explain what happens when you run this code and why that is not correct. Alternatively, use the debugger to step through the code to try and find out what is going on.

Member Alienoiz

well...i just want to apply this code

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

                If CheckBox7.Checked = True Then
                    If ComboBox1.Text = "01 - User" Then
                        myMp3.ID3v2Tag.Genre = TextBox7.Text
                        myMp3.Write()
                    Else
                        myMp3.ID3v2Tag.Genre = ComboBox1.Text
                        myMp3.Write()
                    End If
                End If

........to all selected items in a listbox!!

Lost User

OK, go ahead.

Member Alienoiz

i have been searching but i cannot find anything to use...could you gimme a help please?

Lost User

No, because I have no idea what your problem is. You need to show the code you are using, and explain what the problem is and where it occurs.

Member Alienoiz

OK...so i have a listbox with files (mp3) and im trying to edit the tags..i can do one by one but i do not know how to tag them all at once. i want to implement this code in all files of the listbox just by using a button.

If CheckBox1.Checked = True Then
myMp3.ID3v2Tag.Title = TextBox1.Text
myMp3.Write()
End If

                If CheckBox2.Checked = True Then
                    myMp3.ID3v2Tag.Artist = TextBox2.Text
                    myMp3.Write()
                End If


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


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


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


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

                If CheckBox7.Checked = True Then
                If ComboBox1.Text = "01 - User" Then
                    myMp3.ID3v2Tag.Genre = TextBox7.Text
                    myMp3.Write()
                Else
                    myMp3.ID3v2Tag.Genre = ComboBox1.Text
                    myMp3.Write()
                End If

                If CheckBox8.Checked = True Then

                End If



            End If

Lost User

You just need a couple of loops:

ForEach file in the ListBox
Open the file
ForEach CheckBox in the Form
adjust the tags as required
Next
Save and Close the updated file
Next

Put the code into a subroutine and pass it the list of filenames from the ListBox.

Member Alienoiz

should be something like this right?

Dim items = ListBox1.SelectedItem()
For Each items In ListBox1.SelectedItems

                If CheckBox1.Checked = True Then
                    myMp3.ID3v2Tag.Title = TextBox1.Text
                    myMp3.Write()

Next
End If

is not working :((((

Lost User

Your first two lines duplicate each other:

Dim items = ListBox1.SelectedItem() // get a list of the SelectedItem(s)
For Each items In ListBox1.SelectedItems // do the same, but duplicating the variable name

But either way they make little sense as you do not do anything with the item you pull from the ListBox. You need something like:

' I am making an assumption that the ListBox entries are names of the files to be processed
For Each file As String In ListBox1.SelectedItems ' Extract each file name
' So pass this name to a subroutine that will:
' Open the file
' Process all the tags according to the CheckBox settings
' Save and Close the file
Next

Try not to write all your code inline, as it makes it so much more dificult to read and, more importantly, to debug.

Member Alienoiz

aaarrggghh...im not able to make it work ...could you be a little more explicit please?

Lost User

In what sense more explicit? You know, one of the most frustrating things in these forums is when people keep saying things like, "it doesn't work". We have no way of knowing what that is supposed to mean, even when we can see your code. So I suggest you start a new question. Make sure you post the code that you are using, and explain, in proper and complete detail what is not working, and why that is so.

Member Alienoiz

could you correct my code?

Dim items = ListBox1.SelectedItems()
For Each items In ListBox1.SelectedItems()

                If CheckBox1.Checked = True Then
                    myMp3.ID3v2Tag.Title = TextBox1.Text
                    myMp3.Write()

End If
Next