Visual Basic

MallardsReach2-Feb-18 20:21

2-Feb-18 20:21

It may not be supported but using this

If LstMat1.Items.Count = 4 Then

it did what I required.

Dave Kreskowiak3-Feb-18 3:39

Dave Kreskowiak

3-Feb-18 3:39

Seriously, I thought you were writing this for other developers to use. Of course, it's that easy if you're the only one doing this for a single ListBox.

If you're looking to reuse this in multiple places, you'd have to make your own version of the ListBox.

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

MallardsReach3-Feb-18 4:42

3-Feb-18 4:42

Hi Dave,
I only ever code for myself, it's a hobby nothing more, this program is for the bowling club that I attend on Wednesday nights, we have 4 mats and when your game is finished the names of the 4 players go back in to the pool and the next 4 players use the mat you've just left.
Below is the complete code, not that you need it but you can see what I did, no comments as it's only for me to play with.

Public Class Form1


    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Static Fillup = 1
            Select Case Fillup
                Case 1
                    LstMat1.Items.Add(TextBox1.Text)
                    TextBox1.Text = String.Empty
                    If LstMat1.Items.Count = 4 Then
                        Fillup = 2
                    End If
                Case 2
                    LstMat2.Items.Add(TextBox1.Text)
                    TextBox1.Text = String.Empty
                    If LstMat2.Items.Count = 4 Then
                        Fillup = 3
                    End If
                Case 3
                    LstMat3.Items.Add(TextBox1.Text)
                    TextBox1.Text = String.Empty
                    If LstMat3.Items.Count = 4 Then
                        Fillup = 4
                    End If
                Case 4
                    LstMat4.Items.Add(TextBox1.Text)
                    TextBox1.Text = String.Empty
                    If LstMat4.Items.Count = 4 Then
                        Fillup = 5
                    End If
                Case 5
                    LstNames.Items.Add(TextBox1.Text)
                    TextBox1.Text = String.Empty
            End Select
        End If
    End Sub

    Private Sub BtnMat1_Click(sender As Object, e As EventArgs) Handles BtnMat1.Click
        Static num = 3
        For clearLb = 0 To 3
            LstNames.Items.Add(LstMat1.Items(num))
            LstMat1.Items.Remove(LstMat1.Items(num))
            num = num - 1
            If num = -1 Then
                For fillLb = 0 To 3
                    LstMat1.Items.Insert(0, LstNames.Items(0))
                    LstNames.Items.Remove(LstNames.Items(0))
                    num = 3
                Next
            End If
        Next
    End Sub

    Private Sub BtnMat2_Click(sender As Object, e As EventArgs) Handles BtnMat2.Click
        Static num = 3
        For clearLb = 0 To 3
            LstNames.Items.Add(LstMat2.Items(num))
            LstMat2.Items.Remove(LstMat2.Items(num))
            num = num - 1
            If num = -1 Then
                For fillLb = 0 To 3
                    LstMat2.Items.Insert(0, LstNames.Items(0))
                    LstNames.Items.Remove(LstNames.Items(0))
                    num = 3
                Next
            End If
        Next
    End Sub

    Private Sub BtnMat3_Click(sender As Object, e As EventArgs) Handles BtnMat3.Click
        Static num = 3
        For clearLb = 0 To 3
            LstNames.Items.Add(LstMat3.Items(num))
            LstMat3.Items.Remove(LstMat3.Items(num))
            num = num - 1
            If num = -1 Then
                For fillLb = 0 To 3
                    LstMat3.Items.Insert(0, LstNames.Items(0))
                    LstNames.Items.Remove(LstNames.Items(0))
                    num = 3
                Next
            End If
        Next
    End Sub

    Private Sub BtnMat4_Click(sender As Object, e As EventArgs) Handles BtnMat4.Click
        Static num = 3
        For clearLb = 0 To 3
            LstNames.Items.Add(LstMat4.Items(num))
            LstMat4.Items.Remove(LstMat4.Items(num))
            num = num - 1
            If num = -1 Then
                For fillLb = 0 To 3
                    LstMat4.Items.Insert(0, LstNames.Items(0))
                    LstNames.Items.Remove(LstNames.Items(0))
                    num = 3
                Next
            End If
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        LstNames.Items.Remove(LstNames.SelectedItem.ToString)
    End Sub
End Class

CHill609-Feb-18 1:55

CHill60

9-Feb-18 1:55

A gentle suggestion...

Even though you are the only user, I still advise you to rename your textboxes to more meaningful names than the default TextBox1 - get into good habits Smile | :)

Eddy Vluggen2-Feb-18 9:29

2-Feb-18 9:29

Simple; add a post-it to the monitor that says "don't add more than four in THE listbox".

Download the UX-guide from MS (its free) and read why you are using the wrong control, and which one you should be using instead. I'll bet it will point out checkboxes.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

MallardsReach2-Feb-18 20:37

2-Feb-18 20:37

Tried adding post-it note to monitor but it still didn't work?

Just to recap:--
I need 5 Listboxes one Main Listbox (MLB) and four others LB1, LB2, LB3 and LB4.
After entering names in a Textbox and pressing enter the first name goes in to LB1 so does the 2 name, the 3rd and the 4th. The 5th name goes in to LB2 so does name 6, 7 and 8. LB3 gets the next 4 and LB4 gets the next four. Any other names that get entered go in to MLB.
Under each LB is a button and when pressed the four names in that LB get added to the bottom of the MLB and the top 4 names in the MLB go in to LB1, 2, 3 or 4 depending on which button under which LB was pressed.
Despite all the help and advice offered I have this working exactly as I want with no errors.
So it shows, that sometimes, the best help is when your help yourself.
And if it still proves difficult then visit a site that offers constructive help and advice.

Eddy Vluggen3-Feb-18 4:41

3-Feb-18 4:41

MallardsReach wrote:
So it shows, that sometimes, the best help is when your help yourself.
And if it still proves difficult then visit a site that offers constructive help and advice.

My advice remains unchanged, as well as the verdict, as non-typical use of common controls is confusing to typical end-users.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

MallardsReach3-Feb-18 4:44

3-Feb-18 4:44

That's good to hear then, as I'm the only end user!

Eddy Vluggen3-Feb-18 4:53

3-Feb-18 4:53

MallardsReach wrote:
That's good to hear then, as I'm the only end user!

Haha, in that case your helpdesk will be prepared for any questions from the users, and no problems handling complaints Big Grin | :-D

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

MallardsReach3-Feb-18 4:57

3-Feb-18 4:57

Eddy, you can always make me smile. Big Grin | :-D

May not always understand the advice but always get the humour. (English Spelling)

Make setup file

Member 1362262729-Jan-18 10:13

29-Jan-18 10:13

Hello coders ^^

I need to make a setup file for my project.
So, I installed install shield.
But nothing changed after installation and I could not make any setup files
Any ideas about any other progs that should be installed with install shield ?

Thnx all <3

Eddy Vluggen30-Jan-18 0:52

30-Jan-18 0:52

Member 13622627 wrote:
So, I installed install shield.
But nothing changed after installation and I could not make any setup files

If nothing changes, then you did not install it.

Member 13622627 wrote:
Any ideas about any other progs that should be installed with install shield ?

No, the setup contains all the stuff that you need.

Did you download from some generic "tools" site, or from a regular location? If the first, then check your computer for malware.

InstallShield Express Edition - Free Trial[^]

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Member 1362262730-Jan-18 11:56

30-Jan-18 11:56

Yes, i installed a modified version bcoz the original version gives me error message saying (install shield 2015 requires MVS 2010, 2012, 2013 Or 2015 professional edition or greater to be installed on the machine)
maybe this is the problem
Any advice about it ?

Eddy Vluggen31-Jan-18 1:26

31-Jan-18 1:26

A "modified" version sounds like a version with malware. Go to their site and download the trial, it doesn't have those requirements.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Member 1362262731-Jan-18 1:37

31-Jan-18 1:37

Thnx Eddy, 😘
Problem solved
I downloaded VS 2012 professional instead of express edition.
So, install shield worked correctly
======[]======[]=======[]========
Now i have another issue
I need to make a setup copy of my finished project and while the user is installing the project, he should be asked about location of the files that i used to create the project bcoz I need to give the setup to my friend but when he runs the exe file, it gives an error as he can't find the files that were used in creating the project
Can u guide me to solve this issue? ?

Eddy Vluggen31-Jan-18 1:48

31-Jan-18 1:48

If InstallShield is working correctly, then it will ask you where to install those files. I haven't used an InstallShield installer in years, but I doubt that they'll have removed that feature Smile | :)

Is your executable expecting files in a certain location? Did the installer throw an error, or did your executable throw an exception? If an exception, can you post the entire text, including stack-trace?

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Member 1362262731-Jan-18 2:05

31-Jan-18 2:05

Maybe I can't explain my problem
But i will try explain another way
I use external .wav and .jpg files that are exist only on my pc
Now i need to copy my project to my friend's pc but he of course doesn't have my external files
Is there a way that i can copy these files inside the installation folder ?

Eddy Vluggen31-Jan-18 2:37

31-Jan-18 2:37

You would normally add those to the InstallShield project and copy them to the same location as the executable. Problem is that you cannot assume that the path is the same as it is on your computer, so you can't hardcode those paths in code. The question was whether you did hardcode those paths Smile | :)

An alternative way would be to include those files as a resource in your executable, and to read the resources when needed. Adding them to the installer should be simpeler though.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Member 136226274-Feb-18 20:59

4-Feb-18 20:59

Thanks, I took ur advice and added the files to the resources and that did the trick.
I'm facing another problem now as i try to make the setup using install shield, it can't read the arabic letters and it produces error
Is there a solution for this issue except for changing Arabic letters inro English ?

Eddy Vluggen5-Feb-18 1:17

5-Feb-18 1:17

In InstallShield itself, or your application? If the former, then there isn't much one can do - albeit you could try their forums Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Member 136226275-Feb-18 2:14

5-Feb-18 2:14

Yes, error appears while im in (build) step in install shield

Eddy Vluggen5-Feb-18 2:26

5-Feb-18 2:26

Haha, what did the error say? Could be helpfull information Big Grin | :-D

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Member 136226275-Feb-18 2:48

5-Feb-18 2:48

I got 3 error messages:
1- "Error: -7184: the filename column of the file table includes characters that aren't available on code page 1252 "

2- "Error: -7184: the value column of the MsiAssemblyName table includes characters that aren't available on code page 1252 "

3- "Error: -7185: the English (united States) translation for string identifier IDS_SHORTCUT_DISPLAY_NAME1 includes characters that aren't available on code page 1252 "

I use arabic letters in coding and it's necessary to use it

Eddy Vluggen5-Feb-18 2:52

5-Feb-18 2:52

Answered here;
winforms - error while using visual studio InstallShield - Stack Overflow[^]

Member 13622627 wrote:
I use arabic letters in coding and it's necessary to use it

Code itself does not care.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Member 136226275-Feb-18 3:30