Visual Basic :: How To Add A Thumbnail To A ListView Subitems That Will View In Report Format?

Thumbnail View
Hey all, im new to VB and this forum and basically iv just been pokin around the net trying to find an answer to my problem, but with no luck, i find myself here - so hey, im NathaN - right introZ over, heres my problem:

For as long as i can remember i have been archiving music on my hard-drive. A particular preference i have is to set the albums out in thumbnail view with a .jpg of the front cover in each sub-folder to view as the main picture (eliminating the multi-picture low-quality album art XP tends to autoselect) just by simply repeating [right-click] -> properties -> customize -> choose picture.

This is a very long winded and time consuming process which i once brought myself to do, but alas, failing to assign a drive letter meant my settings reverted back to the original thumbnail view. After assigning my external to [Z] this is no longer an issue, but; after reading this long winded introduction, my question is... can i edit the .ini file or use some 'get' commands in visual basic/create a .bat file etc to automatically select the first .jpg image in each folder when set to thumbnail view (and how do i do this). This would save a good few days of manual changes.

Thankyou for the time you wasted reading this post.

btw: running XP PRO MCE

i did manage to find where i think the info about the thumbnails is stored in the registry, under the cryptic HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionShellNoRoa mBags key. But yeh, theres no indication of which fodler each numbered key matches. Dunno why Microsoft made it so cryptic.

[NathaN]

Thumbnail View
Im trying to make a listview behave like Windows XP explorer.

So far all has gone well but im stuck on the last part, recreating Thumbnail view.

For those without XP, when you are viewing your directory instead of displaying the system image for an file, a thumbnail of that image is instead used as its icon.

What I have tried doing is: for each image, load it into a DIB, resize it, convert it to Picture format, add it to ImageList1, link imagelist1 to the listview, assign icon to each item in listview, refresh display

This works fine, but it is very slow. About 1sec per image on my 2.5ghz pc

I have since tried improving on this by using OleLoadPicturePath which loads the image in Picture format and then adding that directly to the imagelist, which forces a resize of the image to the height and width set in it.

Unfortunatly this doesnt really provide any noticable speed increase and the images, becuase they arent scaled using halftone, get distorted.

I was wondering if anyone has any suggestions or pointers to put me on the road to fast graphics land.

thx

Thumbnail View
Hi
I have a folder containing jpg files,I want to open it and show all the files in thumbnail view
how can I do it?
thanks

Help About ListView Report View
How can I add a new item to a particular column in report view? For example I have a columns named First and Second, I want to add an item to the Second column and not in First. Please tell me how. Please. Please. Please.

Thumbnail View When Using Dialog
Is there a way to show the files in the specified directory as thumbnails
when using the dialog control to open a file ?

Many Thanks

Thumbnail View Control
Hi there,

I'm still pretty new at VB and am trying to make an image viewing application.

What I want is a control that will allow me to show thumbnails of images. I'm not sure how to do this.

The program will read a list of images from a text file. I want thumbnails of those images to be displayed (... like when you choose "thumbnail view" in a folder in Windows XP). The control must be able to display the thumbnails from the text file, not just from a single folder of images.

Is there a control that will allow me to do that? Or another way?

Thanks for any help
Spadge

Commondialogs Thumbnail View
i have set the picture forlder path to commondialog when i show the dialog
what ever content it will open from the dir that shoulld look in thumnail view

Listview - Report View With Icons?
Is it true that is you have the listview's view set to 3 (lvwReport) that it can't show icons?

I have a imagelist on a form with a picture in it. The picture has a key. I set the listview's icons and small icons to this imagelist. I tryed to add the picture to a listview menu item and used its key.

Didn't work. Any suggestions?

Listview + Report View + Colour
Can I make subitems have different backcolors or forecolors to them?

Right To Left ListView? (Report View)
I've tried implementing a right-aligned listview (comctl 6.0), but without any effect.
The listview is in report view mode.
Running WinXP. Shell language is Hebrew.

Code:
OldExStyle = GetWindowLong(lvwLearn.hWnd, GWL_EXSTYLE)
OldExStyle = SetWindowLong(lvwLearn.hWnd, GWL_EXSTYLE, OldExStyle _
Or WS_EX_LEFTSCROLLBAR Or WS_EX_RIGHT Or WS_EX_RTLREADING)
There is no apparent change to the listview, even though the call succeeds.

Does anyone have a solution?

ListView (Report View) Troubles...
I have a list view that can contain alot, a few, or no values at all at any given time.
The box will display existing information in row 1, then in row 2 it will display the information that will overwrite the existing information (if the user chooses). Then the 3rd will be existing, 4th new, 5th existing, 6th new, etc...

The grid goes in pairs, and the check boxes are turned on. By default nothing is checked. I want the user to be able to click whatever they choose, if they check the box on an odd row, then all the text in every cell of that row will go bold, and the entire row after that cell will lose its bold font (incase it was selected before). The rows look like this:

1 asdfas as as dasdfasf asdf
1 asdf asf asdf asdf asd fasf asd
2 asf asdf asdf asf asf asdf asdf
2 asf asd fasdf asd fasdf asdf asdf
3 asdf asdf asf asf asdf asdf asdf
3 asdf asdf adsf adsf as fasd
4 adsf asdf sdf asf sa dfas fasdf as
4 asdfasdfa sdf asdf as fafs

Of course with check boxes to the left of the numbers, if i click the 2 on the bottom, it will go bold and the 2 above it will be unchecked and go back to non-bold font. I know this is possible, im pretty close already.. Here's what i have:

Code:
Private Sub lvConflicts_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim MyCount As Integer
If Item.Checked = True Then
Item.Bold = True
For MyCount = 1 To 8
Item.ListSubItems.Item(MyCount).Bold = True
Select Case Right(Item.Index, 1)
Case Is = 1, 3, 5, 7, 9
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index + 1).ForeColor = &H808080
lvConflicts.ListItems(Item.Index + 1).Checked = False
Case Is = 0, 2, 4, 6, 8
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index - 1).ForeColor = &H808080
lvConflicts.ListItems(Item.Index - 1).Checked = False
End Select
Next MyCount
Else
Item.Bold = False
For MyCount = 1 To 8
Item.ListSubItems.Item(MyCount).Bold = False
Select Case Right(Item.Index, 1)
Case Is = 1, 3, 5, 7, 9
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index + 1).ForeColor = &H808080
Case Is = 0, 2, 4, 6, 8
Item.ListSubItems.Item(MyCount).ForeColor = vbBlack
lvConflicts.ListItems(Item.Index - 1).ForeColor = &H808080
End Select
Next MyCount
End If
End Sub

Im practically doing it already, i know it.. I think im just thinking too hard.. ive been working too long on this

Listview (report View) Scrollbars
I can't seem to figure this out: how do I add vertical and horizontal scroll bars to a Listview control with its "View" property set to "lvwReport"? I have tried many thing ... but none seem to work.

Icons In Listview In Report View
Hi, I am having trouble trying to display icons in a listview. I am displaying the listview in report mode and I have all the imagelists properly bound. If im not mistaken, the icons used in the report view use the 'small' imagelist, correct? Anyway I am populating the imagelist by creating a ListItem variable and setting it to Listview1.Add each time through the loop. Could this be the problem?

How To Display Thumbnail View Of A Folder In VB 6 ?
Hello everybody

I need to develope a small utility in VB 6, which displays thumbnail view of a folder and allows user ot select the files displayed in it.

Any ideas how to proceed.

Thnx in advance!!

View Thumbnail Of Photoshop File
how would i preview a file in a picture box. it is in .psp format, so would i need ole perhaps? i just need to populate an imagebox with a thumbnail of the file, but it cant read the format. help please.

Thumbnail View Default For Commondialog?
Hi,

Is there any way to have the commondialog default as showing thumbnails instead of file names when trying to open a file? I'm using this for selecting picture files. Tried searching but cannot find anything.

Thanks!

How To Display Thumbnail View Of A Folder
Hello everybody

I need to develope a small utility in VB 6, which displays thumbnail view of a folder and allows user ot select the files displayed in it.

Any ideas how to proceed.

Thnx in advance!!

Moving Columns On A Listview (Report View)
I want to programmatically set the Position of the columns in a list view.

This is an "after thought" so I am trying to do it on already loaded listviews.

I see from a little experimentation that I can easily move the column headers by simply changing the .position property.

But that does not bring over the data for that column. (Just the header)

Do I have to manually move the data or there an easier way?

(By "manually move the data" I mean set up a temp array, copy the column's data, update new column after moving other column into original col number)

Regards,

ListView Report Mode View - RESOLVED
When I change to report mode view nothing is showing up in my listview. When I change it to List view my data shows up. Any ideas?

VB Code:
Private Sub LoadTableSpecs() Dim oSQLServer As New SQLDMO.SQLServer Dim oSQLDatabase As New SQLDMO.Database Dim oSQLTable As New SQLDMO.Table Dim oSQLColumn As New SQLDMO.Column Dim i As Integer Dim liObject As ListItem ListView1.ListItems.Clear oSQLServer.LoginSecure = True oSQLServer.Connect Form1.cboServer1.Text Set oSQLDatabase = oSQLServer.Databases(Form1.cboDatabase1.Text) Set oSQLTable = oSQLDatabase.Tables(Form1.cboTable1.Text) For Each oSQLColumn In oSQLTable.Columns Set liObject = ListView1.ListItems.Add(, , oSQLColumn.Name) liObject.SubItems.Add , , oSQLColumn.Datatype liObject.SubItems.Add , , oSQLColumn.Length Set liObject = Nothin Next oSQLServer.DisConnectSet oSQLServer = NothingEnd Sub

ListView (Report View) - Adding Items
AH! This is embarassing yet very frustrating. The last time I worked with the list view control was a loooong time ago. Unfortunately, I lost that project when my computer crashed (no big deal really, the program was never even completed). At any rate, how the heck do I add subitems and items to a report view listview?!

eg
Column 1 Column 2
Add Item Add Item
Add Item Add Item

ListView (Report View) Numeric Sorting
Hi,

I have a listview control in report view, and I have it so that when I click on a columnheader it sorts the list items by that column, the problem is that when I do that on a numeric column its sorts it like this

1
11
2
3
3100
4
...

I was wondering how can I make it so it sorts the column correctly

1
2
3
4
11
3100

Let me know if you know a way

Thanks In Advance,

Zmei

Edited by - Zmei2004 on 8/29/2004 8:45:42 AM

Last Column Width In Listview (report View)
Hi,

Does anyone know an easy way I can make the width of the LAST column header in a 'report view' listview automatically be equal to the space available.

ie,

if the other columns take up half the width of the listview, the last column takes up the other half.

Similary, if the width of one of the other columns changes, the width of the last column is automatically changed appropiately (so there is never a horizontal scroll bar).

Thanks in advance for any help you can give me.

Tom.

Common Dialog Control + Thumbnail View
Hi every one,

I want the VB6 Common Dialog Control to open image files using showopen:

CommonDialog1.ShowOpen

My question is: How do I set it to show thumbnails of the files?
(The user can manually select thumbnail view, but I would like the program to show thumbnail view without user intervention).

Thanks for any help!

Editing Selected Item In ListView In Report View
How can I edit the second column of data in a listview control? I am making a properties box much like the one you use in VB. The first column information for each item can not be editable but the second column is going to be the value for each item and I need for it to be able to click and type in it just like in VB (or at least similar to that).

Any help and sample code is appreciated. Thanks.

*solved*I Wanna Learn ListView In Report View
hi this is a new thread after advice on moving from Picture1 to now i believe ListView in Report view is the way to go.

Metallisoft can you help me get his going. I have attached form1 to download and change as i can't get it to work. your reference click here hasnt helped me as it gave me 3 values i only need 2

Database eg
Quote:UNIVERSAL    OEM    MFG
16190    2-1428-HI    WAI
16190    SJ-0001R    AIM
16190    91-25-1030    WILSON
16190    S9024    LUCAS REMAN
16190    9821006350    ISUZU
16190    9821006060    ISUZU
16190    S114-136    HITACHI
16190    S114-100    HITACHI
16190    SR198X    BOSCH REMAN
16190    94022494    GENERAL MOTORS
16190    RXS056    OEX
16190    94021044    GENERAL MOTORS
16190    S114-118    HITACHI I Don't need to display the UNIVERSAL Numbers Just OEM anf MFG only

Code:Private Sub Command3_Click()
Set rs = New ADODB.Recordset 'this will be the rs
Dim strSQL As String 'this the source

'make the selection string: filter the records right away
strSQL = "SELECT C.* FROM OEMS AS C where UNIVERSAL in(select UNIVERSAL from OEMS where oem='" & UCase$(Text1) & "')"

' To hold a reference to the current Listitem (row).
Dim oLVItem As MSComctlLib.ListItem

' The (Listview.Width - 350) / 3 simply adjusts the column
' widths to 1/3 the width of the Listview (subtracting the
' width of the scrollbar)
' ListView.ColumnHeaders.Add , , "Supplier", (ListView.Width - 350) / 3 '<- Don't need to work?
ListView.ColumnHeaders.Add , , "OEM", (ListView.Width - 350) / 3
ListView.ColumnHeaders.Add , , "Manufacturer", (ListView.Width - 350) / 3



        Picture1.Cls
        Picture1.FontSize = 8
        Picture1.Font.Bold = True
        Picture1.Print ">> Supplier Information"
        Picture1.Font.Bold = False
        Picture1.Print "OEM:"; Tab(20); "Manufacturer:"

    rs.Open strSQL, oConnection, adOpenStatic, adLockOptimistic, adCmdText

'loop through the recordset
    Do Until rs.EOF
        M19 = rs("OEM") 'Are m19 and m20 properties or local variables? didn't want to take them out, but if they are global settings and there are more records, they will only 'remember' the values in the last record.(No they are strings in a database)
        M20 = rs("MFG")

        Picture1.Print M19; Tab(20); M20
        rs.MoveNext
    Loop

    rs.Close 'Close the recordset never leave it open!
    Set rs = Nothing 'clear the rs variable

End Sub
OK NOW how do i replace the Picture1 to ListView in Report view after reading MSDN click here CAN anyone save me? the ColumnHeaders don't display too?

Edited by - Hopeless on 6/4/2004 12:16:16 AM

ListView Control. How Do You Extractupdate Values In Report View
I have populated my ListView control with my values using DAO. I have 10 columns set up in report view. In my code fragment below, I am looking through my listview control searching for rows that the user has selected. Now I need to be able to extract some of the sub values and update others. How do I do this? Here is my code so far.

Private Sub SelectedCountCommand_Click()
Dim i As Integer

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
'extract values from col 3 and 4 and subtract them

'update column 5 based on the results of col 3 minus col 4

End If
Next

End Sub

List View Control Subitems Error
Hi all,
I am using a list view control band using a for loop to populate the items with data
For i = 0 To m_cOrderDetail.recordCount - 1
m_cOrderDetail.refresh
Set temp = lvOrderDetails.ListItems.Add()
temp.Text = m_cOrderDetail.ItemNumber
qty = m_cOrderDetail.Quantity
price = m_cOrderDetail.UnitPrice
retqty = m_cOrderDetail.ReturnedQuantity
temp.SubItems(1) = qty
temp.SubItems(2) = price
temp.SubItems(3) = retqty
m_cOrderDetail.movenext
Next i
when this code is run i get as runtime erro whcih says
Invlaid property value
the error occurs when the
temp.subitems(1) line is executed i.e is the code won't let me assign qty price or retqty to the subitems
I have tried my best but am not bale to debug this one
Can somebody please help me????

List View Control - Select Subitems
hi all!

I have problems selecting the subitems in my listviewcontrol(Active X). I am using the code below for it:

--------- Searchtxt_TextChanged Event-----

FindData(Searchtxt.Text) 'Get the value for Found
With AxListView1
.HideSelection = False
.FindItem(Found).Selected = True ' Error
.SelectedItem.EnsureVisible()
End With

I always get an error whith "Value "0" was found but an objectinstanz was expected"; note that it works for the items.
The FindData Function:

Private Function FindData(ByVal Search As String)
Dim MyStr As String

For i = 1 To AxListView1.ListItems.Count - 1
MyStr = AxListView1.ListItems(i).Text ' Items
MyStr = AxListView1.ListItems(i).SubItems(1) ' Subitems
If InStr(1, MyStr, Search, CompareMethod.Binary) > 0 Then
Found = MyStr
Exit For
End If
Next
End Function

I would be very thankful if you could give me a hint to solve my problem ^^

with regards

Edited by - Birdy on 1/28/2002 4:20:05 AM

Imitating Windows Explorer's Thumbnail View In A Form
Greetings!

I have a client who has put forth the requirement that I provide him a screen with a Windows Explorer-style thumbnail view of all images in a given directory. The idea is to let the user see thumbnails of images that relate to the record they are currently viewing on a form.

I've tried the FileListBox control, and can't seem to find a way to get it to do a thumbnail view. Is there a way to do it, or do I need to use another control?

Help: How To View Selected Items From Listview With Crystal Report Viewer
Hi

I have a Listview with check boxes from it want to view selected items with crystal report viewer.

Private Sub cmdView_Click()
Dim lCustomerId as Long
    Dim tmpItm As ListItem
    For Each tmpItm In lstItems.ListItems
        If tmpItm.Checked = True Then
            lCustomerId = Val(Replace(tmpItm.Key, "C", ""))
          End If
    Next

  End Sub

Plz. help

regards

Moving A Listview Item And Its Subitems To A New Listview
Hey Guys,

Having a bit of trouble. I am attemping to move a selected item and its subitems from one listview to another. I have no problem getting the contents of the first column, but I can't seem to get the subitems over.

Example: I have this in the first listview:

Code:
|Item |Quanity|Price |PQ |
Bananas 2 $.50 $1.00

Then when I try to move that whole row to the other listview I can only seem to get this:

Code:
|Item |Quanity|Price |PQ |
Bananas

No subitems . Any links or help would be appreciated.

Regards,

Max_Power

Listview With Subitems
Hi,

I'm a newbee on VB 6.0 (old stuff I have to maintain ). Now I have this silly problem that I have a listview with 2 subitems. When I click on one item I would like to get the 1. subitem moved to a listbox. How do i do that?

Hope some can help me

Jan

Listview & Subitems
Hello, i tried some searching in the forum and also in the web. There must be possibilities to edit subitems.

"Garrett Sever" made something like this.

can anyone help?

okay, what i need is the following

listview with:
subitem - text
subitem - boolean value (best as checkbox)

both of them editable

any ideas?

ListView SubItems
I have a report type listview with one subitem column. I need to allow the user to select and change the information held within the subitem column. I can easily do it with the listitem column but I do not seem to be able to even select the subitem let alone edit it.
Thanks

Listview Subitems
hey agin, sorry for all the questions but i am stuck again.

i have a list box and i am loading an array into it. i can set the column headers and the first column but how do i set the subitems. i am using vb 6.0

here is the code i use to load the first colum

Code:
ListAdd.ListItems.Add , , Contact(0)

i need to load

contact(1) and 2

i have tried everything i could think of or get off the net. the examples from mdsn site did not work for me. thanks for the time. Pat

Listview/subitems
hi guys, just got a little stuck and im sure its a simple thing lol, well any way here is my problem, i have created a listview with 2 coulum headers

VB Code:
ListView1.ColumnHeaders.Add , , "Profile", 2970ListView1.ColumnHeaders.Add , , "Type", 970

ok, i have loaded everyting into the first coulum (profile) by useing

VB Code:
Set mItem = ListView1.ListItems.Add(, , "VISTER", , 1)

etc etc etc, now in the coulum header 2 (type) i can add the first bit of code to the first line

VB Code:
mItem.SubItems(1) = "Testl"

now how do i add to the next line down in coulum header 2? can you please help thanks..

ListView Subitems
In other apps where I've used the ListView i've added things like this.

VB Code:
Dim itmX as ListView Set itmX = ListView1.ListItems.AdditmX = Item1itmX.SubItems(1) = Item2itmX.SubItems(2) = Item3'etc....

However in a new app i've set everything up the same but when I try to complie to EXE i get a message saying "Method or data member not found" and the below code is highlighted. I can't figure out why it's not working

VB Code:
.SubItems(1)

How To Add Subitems To ListView
How to add subitems to ListView?? Is it the best way?

ListView Subitems
Is it posable to display an Icon in a Subitem column of a ListView control in lvwReport view?

Thanks,
Alex

Listview And Subitems
Got a question for you all.

In this program a module called Recoredset.

This is the area of the problem.
---------------------------------------------------------------------

Public Sub Validate(UserName, Password As String)
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Dim SQL As String

SQL = "Select * from Passwords where UserName = " & Chr(34) & UserName & Chr(34)

Rs.Open SQL, conn, adOpenKeyset, adLockReadOnly
With FrmBMServer

If Rs.EOF = True Then .sckServerWinsockConnection(.InitMax).SendData "InValid UserName": Exit Sub
If UCase(Password) = UCase(Rs!Password) Then
.sckServerWinsockConnection(.InitMax).SendData "Password Validated"
.lvUsers.ListItems.Add , , UserName
.lvUsers.ListItems(1).SubItems(1) = Count + 1
.lvUsers.ListItems(2).SubItems(1) = Count + 2 <- Right Here
Else
.sckServerWinsockConnection(.InitMax).SendData "InValid Password"
End If

End With

Rs.Close
Set Rs = Nothing
FrmBMServer.Label7.Caption = Err.Description

End Sub

---------------------------------------------------------------------
The line that has the arrow next to it is my problem.

I have a ListView set up and it has too columnheaders at the top. First column is UserName.
Second Column is Port Number.
What I want it to do is to put user name in the first column row and the port number in the second column row.
Im not sure on how to do this. There's got to be a way to check if column row's 1 2 3 etc are already filled, and if so add a new one plus need to figuer out how to put a counter in for the port numbers.

So it sould look somthing like this.

column Username | Column Port Number
-------------------------------------
Texg | 1
Bill | 2
ect...

Thanks for your help
TexG

Listview Subitems
Well, i just could not stay away from my code, and soon i found areas for improvement, so i´m back.. =)
This is similar to my other listview problem, but i can´t seem to figure it out. I have a listview with Headers
created by this code (thanks to XTab and DaVBMan). sOuput is used to make up the Headers of the listview.

Code:
ListView1.View = lvwReport
arrHeaders = Split(sOutput, ",")
For i = 1 To UBound(arrHeaders) + 1
        ListView1.ColumnHeaders.Add
        ListView1.ColumnHeaders(i).Text = Trim(arrHeaders(i - 1))
Next

I have a another comma separated file that i want to split and then use as subitems in the listview.
File might look like below, but is most likely much larger. I need to first get rid of the first line, then split
the file at every comma, and finaly add each "column" as a sub item in the listview. So in this case all three
"maverick" will go into the first column, bootstrap c: mp and index:maverick will go into the second
column and so on. Who´s got a tip to get me started? I´m really having som problems with my Split routines,
not to mention adding subitems in listviews, so all suggestions are welcome. =)

client,name,date-time
maverick,bootstrap,2004-10-05
maverick,c: mp,2004-10-05
maverick,index:maverick,2004-10-05

The file is read here, and i need to split it somewhere along this line and add the subitems.
Text10 is just used to test the code, i want to replace it with my listview.
Code:
Open "c: est.dat" For Input As #1
    Do While Not EOF(1)
        Label11.ForeColor = &HC000&
        Label11.Caption = "Match found!"
        Text10.Text = input(LOF(1), #1)
    Loop
Close #1
End If

Edited by - Maverick2004 on 10/17/2004 10:55:45 PM

How To Add A Thumbnail To A ListView Subitems That Will View In Report Format?

How to add a thumbnail to a ListView subitems that will view in report format?