Remove image from first column in ListView - Visual Basic Discussion Boards

...and the question would be.....?

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Hi, not sure if the posting didn't show all the contents, but my questions is For example: if the user input "aH, AS, 2D, 3C, 4C" the program will return ace of hearts, ace of spades, two of diamonds, three of clubs, and four of clubs? Also how can the program will recognize that the first letter (substring (0,1) is the FaceValue and the second letter substring(1,1) is the SuitsValue? I understand I will need a loop function to determine all five. I am sorry if I am asking stupid questions here but I am really stuck!!!

Thank you very much!

Most of this depends on how you're representing your cards, but...

First, get rid of that replace where you remove all the commas. You'll need them to split the string with.

string[] cardSpecifiers = InputDisplay.Text.Split(new string[] { "," }, System.StringSplitOptions.RemoveEmptyEntries);

Then it's a simple matter of iterating over the returning array of strings and parsing each for a card value and suit.

for (int i = 0; i < cardSpecifier.Length; i++)
{
    // This is very dependent on how you're storing your card values and suits.
    // If you copy-n-paste this code into your app, you're screwing yourself.
    //
    // THIS IS ONLY AN EXAMPLE!
    cardValues[i] = cardSpecifiers[i].SubString(0, 1);
    cardSuits[i] = cardSpecifiers[i].SubString(1,1);
}

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Hi, but what I don't get is how to make the program reads the user input "InputDisplay" and then display the corresponding string from the array SuitsValue and FaceValue to the listbox "OutputDisplay". For example: if the user input "aH, AS, 2D, 3C, 4C" the program will return ace of hearts, ace of spades, two of diamonds, three of clubs, and four of clubs, the value that is stored in the arrays? Also how can the program will recognize that the first letter (substring (0,1) is the FaceValue and the second letter substring(1,1) is the SuitsValue?

I'm not walking you through your entire program. I've got my own 150,000 line monster to deal with full time right now.

The SubString calls will return single characters from your card specification strings. What you do with that characters is up to you. You could have a Dictionary<string, string=""> to return a full name based on the character you get back, like this:

Dim cardValueNames = New Dictionary(Of String, String)
cardValueNames.Add("a", "Ace")
cardValueNames.Add("k", "King")
cardValueNames.Add("q", "Queen")

Debug.WriteLine(cardValueNames("k"))

It sounds like you REALLY need to get a beginners book in C# and work through it.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Yes I am a very beginner in VB.NET and I thought this is a Visual Basic forum.....

My bad. It is the VB.NET forum. In either case, the book recommendation still stands.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

I actually have 2 questions

I added an imagelist to my listview, and it always add the first image in the list to the first column.
I can eliminate the image, but it always leave a space for the image before the text, changing my aligment from left to sort of right.

Is there a way to override this?

Dim item1 As New ListViewItem(sJC(idx).FINVNO.ToString)
item1.Checked = False
item1.SubItems.Add(sJC(idx).FCUSTNO)
item1.SubItems.Add(sJC(idx).FTRANSDATE)
item1.SubItems.Add(sJC(idx).FTRANSTIME)
item1.SubItems.Add(sJC(idx).FCOMPANY)
item1.SubItems.Add(sJC(idx).FCONTACT1)
item1.SubItems.Add(sJC(idx).FEMAIL1)
item1.SubItems.Add("")
item1.SubItems.Add("")
lv_journal_icons.Items.Add(item1)

Question 2:
I used some code that extends the listview so you can add an icon or image to a subitem.
It adds the image, but I want to center the image in the column
So the code sends a message to the pump setting the cell.
I've done some c++ with listview, but I can't remember if I can send a message to the pump to center the image.

Public Sub AddIconToSubitem( _
       ByVal row As Integer,
       ByVal col As Integer,
       ByVal icon_num As Integer)

       Dim lvi As New ListViewWithIcons.LV_ITEM()
       lvi.iItem = row         ' Row.
       lvi.iSubItem = col      ' Column.

       ' Indicate what we're setting.
       ' lvi.mask = ListViewWithIcons.LVIF_IMAGE Or
       ' ListViewWithIcons.LVIF_TEXT
       lvi.mask = ListViewWithIcons.LVIF_IMAGE

       ' Image index in the ImageList.
       lvi.iImage = icon_num

       ' Send the LVM_SETITEM message.
       ListViewWithIcons.SendMessage(Me.Handle, ListViewWithIcons.LVM_SETITEM, 0, lvi)


   End Sub

I looked at the structure for LVITEM, and didn't see anything for alignment.

Public Structure LV_ITEM

        Public mask As UInt32
        Public iItem As Int32
        Public iSubItem As Int32
        Public state As UInt32
        Public stateMask As UInt32
        Public pszText As String
        Public cchTextMax As Int32
        Public iImage As Int32
        Public lParam As IntPtr

    End Structure

Queston3:
Is it default behavior for the listiew to resize the image large, I made my image 16x16 but it always displays larger.

Sounds more like a candidate for owner-drawing Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

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

Yeh

I looked at ownerdraw, was looking for a shortcut. Yeh right!

I finally figured out that you set the image size in image size.
The images are suppose to go in front of the text, this the view setting like files in a windows form.
I was able to center my image with a wider image, but then the first column shows the image.

So I guess for now, I'll just move the success column to the first position.

jkirkerx wrote:
I looked at ownerdraw, was looking for a shortcut.

I've often used it as such Smile | :)

jkirkerx wrote:
So I guess for now, I'll just move the success column to the first position.

Nice how there's almost always a clean and easy solution.

Bastard Programmer from Hell Suspicious | :suss:

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

How to Add DatagridView in ByVal ComboBox

So which is it: DataGridView in ComboBox, or ComboBox in DataGridView? In either case there are plenty of samples around that will show you how to do it. You mightl also read http://www.codeproject.com/Messages/1278601/How-to-get-an-answer-to-your-question.aspx[^].

I am attempting to create a list of lists so I can return a specific list when I reference list(index), for example. I created a custom class and am using it as the list type.

A subroutine reads through a text file (csv) one line at a time. The value in the line indicates the "section number" to which the rest of the line belongs, and all other values on that line are used to set certain properties in my custom class. (Confusing?)

Basically it reads through the lines, and if the first number is the same as the first number in the previous line, it processes the line and adds it to a list. If the number is different, it adds the list to the main list, then clears the list, and adds the current line to the new list.

And repeat until the end of the file.

Here is the code:

Dim EvalTopics As new List(of List(of customClass))
Dim sr As StreamReader = New StreamReader(BLAHBLAHBLAH)
        Dim OldSec As Integer = 0, NewSec As Integer = 0 'Old and New Section Numbers
        Dim seclist As New List(Of customClass) 'List to be added to EvalTopics
        While Not sr.EndOfStream
            Dim splits() As String = sr.Readline.Split(",")
            NewSec = splits(0) 'Section # is first value
                If OldSec <> NewSec Then
                    EvalTopics.Add(seclist)
                    seclist.Clear()
                    OldSec = NewSec
                End If
                Dim es As customClass = New customClass
                With es
                    'assign the other values to various properties
                End With
                seclist.Add(es)
        End While
        EvalTopics.Add(seclist)'Add the last section
        sr.Close()

After populating the lists, if I call up EvalTopics(0), I get the same as EvalTopics(3). In fact, every list I call up is the same as the LAST LIST ADDED.

Can someone point me in the right direction? At first I thought I was using lists incorrectly, so I tried an array of lists, then a list of arrays. Nothing worked.

Instead of

seclist.Clear()

use

seclist = New List(Of customClass)

Adding seclist to Evaltopics adds a reference, not a copy.
So it's necessary to create a new List after adding.

Cheers

Dang it... I KNEW that, too! I guess it is time to start drinking coffee again.

Thanks to both of you! Thumbs Up | :thumbsup:

You don't get copies of Lists, or any other reference type, without explicitly making the copies. It's never done implicitly.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

My question has a scenario like this..

Example I made a solution program in vb.net called BookProgram then the compiler for debug is 32bit or x86 and for such coding I simultaneously made also on that solution x64 compiler debug (/assume they were on bin folder)

So is it possible to put a code that design to hide the form x86 program and show x64 form program vice versa without errors even though made in one solution program?

That concrete example is based on an uninstaller program because the anycpu is based on the current bit system and programs are likely missing vice versa to 86x compiler.

I really hate to tell you this but I've read and re-read your post a dozen times and nothing in your post was understandable. I have no clue what you're doing nor what you're having a problem with.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

You would need a third program that will launch either the 32 or 64-bit version as appropriate.

What type of program will be like to open either 32 bit and 64 bit?

If the build target of the program was x86 (i.e. 32bit), the program will run in 32bit mode both on x68 and on x64 computers.
If the build target of the program was x64 (i.e. 64bit), the program will run in 64bit mode on x64 computers, but crash when you try to start it on x86 computers.
If the build target of the program was "Any CPU", the program will run in 32bit mode on x68 computers, and in 64bit mode on x64 computers.

guys can someone help in this problem i have been trying to save image into access table but the code i using is not working. here is the code

Private Sub Loadpicture_Click()
Dialog1.ShowOpen
Img.Picture = LoadPicture(Dialog1.FileName)

Private Sub Save_Click()
SavePicture Img.Picture, App.Path & "\photos\" & txtfullname.Text & ".jpg"
MsgBox "image saved", vbInformation, "New Solutions"
Adodc1.Refresh

Your code "isn't working" because you are saving the image to a file, you're not attempting to save it to a database.
Having said that, it is probably the better option - save the image to a specific folder then store the name of the file on your database

In addition to CHill60's comments, you are displaying a "image saved" message, without any checks to see that you have actually saved it. I see this more and more these days and find it quite worrying.