Visual Basic

Member Alienoiz10-Jun-23 1:34

10-Jun-23 1:34

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!!

Richard MacCutchan10-Jun-23 1:44

10-Jun-23 1:44

OK, go ahead.

Member Alienoiz10-Jun-23 3:31

10-Jun-23 3:31

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

Richard MacCutchan10-Jun-23 3:34

10-Jun-23 3:34

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 Alienoiz10-Jun-23 3:53

10-Jun-23 3:53

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.

<pre lang="VB"><pre>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

Richard MacCutchan10-Jun-23 4:03

10-Jun-23 4:03

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 Alienoiz10-Jun-23 4:34

10-Jun-23 4:34

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 Cry | :((

((

Richard MacCutchan10-Jun-23 4:51

10-Jun-23 4:51

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 Alienoiz10-Jun-23 5:15

10-Jun-23 5:15

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

Richard MacCutchan10-Jun-23 5:39

10-Jun-23 5:39

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 Alienoiz10-Jun-23 5:42

10-Jun-23 5:42

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

Next

Gerry Schmitz8-Jun-23 5:07

Gerry Schmitz

8-Jun-23 5:07

Unless you know "why" you want to convert a string to "byte" (which makes little sense in your present context) even knowing "how", will only get you a little bit further. And maybe "deeper" in the wrong direction.

"Before entering on an understanding, I have meditated for a long time, and have foreseen what might happen. It is not genius which reveals to me suddenly, secretly, what I have to say or to do in a circumstance unexpected by other people; it is reflection, it is meditation." - Napoleon I

Capturing picture on an Access form by code

jschell8-Jun-23 6:58

jschell

8-Jun-23 6:58

Debugging methodology - there are others though.

Start removing or commenting out code until the error goes away. Obviously you must give some thought to exactly which code you do this to.

Then when the error goes away you have found the problem.

Then you can create a much smaller example code to test that functionality and figure out how to make it work correctly. Then you fix the original code and put everything else back.

Opam Brown28-May-23 12:06

Opam Brown

28-May-23 12:06

I have developed an HR system in MS Access and want to use a camera attached to the computer to capture staff pictures on the form to store in a table with link as staff number of employee.
I asked once and I was directed to a sample code which I copied and used but it does not work.
can someone be of help?

Richard MacCutchan28-May-23 21:05

28-May-23 21:05

Opam Brown wrote:
a sample code which I copied and used but it does not work. can someone be of help?

With what? We have no idea what code you are using or what problems you have encountered.

Andre Oosthuizen2-Jun-23 0:15

Andre Oosthuizen

2-Jun-23 0:15

No code, no errors... no problem. Wink | ;)

jschell29-May-23 6:13

jschell

29-May-23 6:13

Opam Brown wrote:
can someone be of help?

I suspect a paid consultant might be able to fix it. Or perhaps determine that is not even possible as code - thus a process with manual steps might be put in place.

Someone else might be able to help if you reduce the problem to a very small sample and then provided exact details for that.

what is visual basic used for

Gerry Schmitz29-May-23 7:14

Gerry Schmitz

29-May-23 7:14

You mean take a picture without their consent? In any "sane" situation, the user indicates "ready"; which is the same as monitoring the picture folder based on their say so; i.e. "they" push the thing that snaps their picture and signal the app accordingly.

Simon Osabo Asamoah27-May-23 18:33

Simon Osabo Asamoah

27-May-23 18:33

Richard MacCutchan27-May-23 20:53

27-May-23 20:53

Anything you want.

Andre Oosthuizen2-Jun-23 0:17

Andre Oosthuizen

2-Jun-23 0:17

Yes, it can even make coffee. Wink | ;)

Ralf Meier2-Jun-23 10:13

Ralf Meier

2-Jun-23 10:13

sure ???

Andre Oosthuizen5-Jun-23 21:55

Andre Oosthuizen

5-Jun-23 21:55

Maybe I should have stated as a "Tongue In Cheek" remark, used as a backend to control and manage mixing of ingredients etc. it can ensure a great cup of relax. $Shucks | :-\$

Ralf Meier5-Jun-23 22:59

Ralf Meier

5-Jun-23 22:59

It's ok - I understood your comment ... but I can't miss my comment to yours ... Wink | ;)