Is there a better way??

[steve65]

Hi All,

I would like to have your input again to make sure I am coding things optionally.

1. When you know the key to an image in an imagelist is there a better way to add the image to a listview besides what I am already doing?

Set TempListItem = lvwObjects.ListItems.Add(, , ObjectsFound(i).Name)
For j = 1 To ImageList.ListImages.Count
    If ImageList.ListImages(j).Key = ObjectsFound(i).ContentType Then
        lvwObjects.SmallIcons = ImageList
        TempListItem.SmallIcon = j
        ImageFoundFlag = True
    End If
Next jNext j

2. Is there a way to add two icons next to each other in a listview in report mode?

3. Is there a way to convert a 1 or a 0 to true or false in one line for a check box?

    If Check1.Value = 0 Then
        ListObjects1.ShowLockOwner = False
    Else
        ListObjects1.ShowLockOwner = True
    End If

Again thanks all for your input!!

[filburt1]

For number 3: CBool(-(checkboxname.Value))

[steve65]

Thank you. When your a lone programmer sometimes you miss the easy stuff.

[filburt1]

Originally posted by filburt1
For number 3: CBool(-(checkboxname.Value))

BTW, you'd use it like this:

If CBool(-([[i]checkboxname[/i].Value)) ' If true
    Msgbox "Checked"
Else ' False
    Msgbox "Not checked"
End If

[steve65]

Courious why the minus sign?
CBool(-(checkboxname.Value))

Because this seems to work.

ListObjects1.ShowLockOwner = CBool(Check1.Value)

Originally posted by filburt1
For number 3: CBool(-(checkboxname.Value))

[filburt1]

VB is different from all other language in that -1 is True, instead of 1.

[steve65]

If I use 1 or -1 in CBOL I get TRUE. No big deal just interesting.

[Joacim Andersson]

1.

On Error Resume Next
Set TempListItem = lvwObjects.ListItems.Add(, , ObjectsFound(i).Name)
TempListItem.SmallIcon = ImageList.ListImages(ObjectsFound(i).ContentType).Index
If Err = 0 Then
    ImageFoundFlag = True
End If

Best regards

[steve65]

Thanks Joacim.

Let me reword question 2 then. If I can't add a second icon to a list view, can I add an icon to a column?

[Joacim Andersson]

ListSubItems can have icons if you use VB6.

[steve65]

Joacim,

Man thank you very much!!

You all are helping me to make one cool listview component!

I know this has been asked before but....

besides hooking the the listview is there a way to detect the resize of a column?

Originally posted by Joacim Andersson
ListSubItems can have icons if you use VB6.

[nishantp]

BTW, for #3, VB makes that 1, -1 distinction automatically. You dont need to do CBool. Just do:

If Check1.Value Then
    MsgBox "checked"
Else
    MsgBox "unckecked"
End If

Or even better, because of VBs default properties, this works to:

If Check1 Then
    MsgBox "checked"
Else
    MsgBox "unckecked"
End If

[filburt1]

The checkbox has three values! Checked, unchecked, and grayed (sorta checked). So does If check for a non-zero as true? If that's the case, then grayed will be treated as checked.

[nishantp]

damn...

[filburt1]

Yeah, well...

[Nucleus]

3.

ListObjects1.ShowLockOwner = Check1