Is there a better way??

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?

Code:

---

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?

Code:

---

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

---

Again thanks all for your input!!

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

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

Quote:

---

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

---

BTW, you'd use it like this:

VB Code:

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

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

Because this seems to work.

Code:

---

ListObjects1.ShowLockOwner = CBool(Check1.Value)

---

Quote:

---

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

---

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

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

1.

VB Code:

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

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?

ListSubItems can have icons if you use VB6.

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?

Quote:

---

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

---

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

VB Code:

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

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

VB Code:

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

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.

damn...:D

Yeah, well...:p

3.

VB Code:

ListObjects1.ShowLockOwner = Check1