Visual Basic

Member Alienoiz14-Jun-23 2:38

14-Jun-23 2:38

I do not know...im using a dll library...how shall i look? Sorry

Ralf Meier14-Jun-23 6:34

14-Jun-23 6:34

If it is like allready mentioned and you are using a Library ... you don't have the Source-Code from it ?
It is impossible to help if you are not helping ... the mistake (i suppose) is how you use this Library ...

Andre Oosthuizen14-Jun-23 5:02

14-Jun-23 5:02

Also waiting for the requested '.Write'. Sniff | :^)

Richard MacCutchan14-Jun-23 5:15

14-Jun-23 5:15

It's part of the third party library he is using. Questions like this just go straight over his head. His programming skills are mainly: Copy, Paste and Guess.

Ralf Meier14-Jun-23 6:31

14-Jun-23 6:31

I suppose you are right ... but doesn't makes it better ...

Richard MacCutchan14-Jun-23 6:37

14-Jun-23 6:37

If you really want to know, then read this entire thread. Alternatively find something interesting to waste your time on. Big Grin | :-D

Member Alienoiz14-Jun-23 8:18

14-Jun-23 8:18

Yes im using the UltraID3lib library...i cannot access its code? Or...how do i do it?

Guys...about my knowledge..i have a book called Visual Basic 6 - Advanced Tecnichs with API...i have read the book and made a lot of small apps during "the day"...now my book is obsolete almost because of VB.Net being different..anyway..i learned all with that book and no more outside help...im trying to get back a little to VB just to excercise my mind...and..create a small application to give away in my website..

I code in SynthEdit some Virtual Synthesizers using a Visual Programming language..i also do all my website coding..

...and im no pro in none of these...but..i normally can achieve what i look for.. Wink | ;)

just for you to know my website: [DELETED]

Smile | :)

OriginalGriff14-Jun-23 8:21

OriginalGriff

14-Jun-23 8:21

I removed the URL to prevent you being tagged as a spammer (and it was that close whether I let it through without the URL or tagged it and you as spam) which would mean the BanHammer starts swinging. Please don't post it again, others are rather more trigger happy than I.

"I have no idea what I did, but I'm taking full credit for it." - ThisOldTony
"Common sense is so rare these days, it should be classified as a super power" - Random T-shirt
AntiTwitter: @DalekDave is now a follower!

Member Alienoiz14-Jun-23 8:38

14-Jun-23 8:38

OK...thank you for not banning me Smile | :)

Ralf Meier14-Jun-23 7:46

14-Jun-23 7:46

Oops ... I have done that ...
What kind of answer did you got from the OP that it is flagged as (I suppose) abusive ?

Member Alienoiz14-Jun-23 8:40

14-Jun-23 8:40

I need to say something that will make you laugh the rest of the day...
i was makin a .NET app...not an .NET Framework...how did i error this?!! lo0l
I already passed all code into a .NET Framework application Smile | :)

Sorry..if does matter?!!

Ralf Meier14-Jun-23 9:01

14-Jun-23 9:01

Okay ... to be able to understand the problem YOU must understand how the Framework you are using is working.
I suppose that your problem comes from not using this Framework in the right way.
I, myself, don't like to use 3rd party products from which I don't know how to work with. Mostly it is easier (for me) to create it by myself ...

Richard MacCutchan14-Jun-23 8:55

14-Jun-23 8:55

No, none of it is abusive. Just that he is copying stuff from the internet, and his understanding of what he copies, and general programming is not too good.

Message Closed

15-Jun-23 1:19

15-Jun-23 1:19

Message Closed

modified 15-Jun-23 8:16am.

Richard MacCutchan15-Jun-23 1:21

15-Jun-23 1:21

I don't think you meant this message for me Andre.

Andre Oosthuizen15-Jun-23 2:08

15-Jun-23 2:08

Oops, no sorry. Will repost under the correct tab...

Member Alienoiz18-Jun-23 5:25

18-Jun-23 5:25

hey..i was able to do it...i used this code

<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

Richard MacCutchan13-Jun-23 5:33

13-Jun-23 5:33

No that is definitely not the way to do it. You should set the tags as and when the user edits them*, and then save the entire set when he/she presses Save. The way you are doing it the user has no way to cancel the changes.

*You should not need all those checkboxes. Just use an event handler for when the user changes any of the tag entries. As I said yesterdsay, and as clearly demonstrated in your video, you are going about this whole project the wrong way. And until you step back and take on board some of the suggestions you have been given, and start utilising proper functions and subroutines, you will never get your "mass edit" to work.

Andre Oosthuizen15-Jun-23 2:16

15-Jun-23 2:16

After searching UltraID3lib library I found a lot of usable links and code samples. It seems that the code that I supplied is 100% correct. I suggest taht you run the code and then tell us where it errors, you have not done so yet but rather keep on asking the same question over and over. The library also seem to be long dead (deprecated) and the original site offering the library is also down, only sample available on Github - UltraID3Lib (Only in French)
[^]

Using Google - UltraID3lib methods [^]
Code samples below -
How to read/write ID3 Tags in MP3 files using UltraID3Lib [^]
ID3 Tags on MP3 Files [^]
View/edit ID3 data for MP3 files [^]
Does anyone have the UltraID3Lib.dll [^]

So, with all these links, testing my code sample above and some learning you will resolve your issue in no time.

Member Alienoiz15-Jun-23 3:13

15-Jun-23 3:13

The problem is that it does not returns any error...it simply does not perform the action required!

Andre Oosthuizen15-Jun-23 3:31

15-Jun-23 3:31

According to the documentation, the code I supplied is 100% correct. Did you try and log it out to your console or create some form of message to see what it does when you call the .Write function? Maybe one of your variables (textbox's) has an empty value?

Member Alienoiz15-Jun-23 3:43

Anyone familiarized with UltraID3lib?

15-Jun-23 3:43

Leave it....thanks for the help!

Member Alienoiz10-Jun-23 5:02