Visual Basic :: Listview (report View) Scrollbars

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

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?

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.

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?

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

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

[Read] Need Help With Custom Scrollbars On A Listview Control! Or Skinning Listview..
I have been searching for weeks now to find a way to use a custom scrollbar to scroll a listview...

Like this:

Now I use an alternating BG function on my listview and I am currently using the ensurevisible method of scrolling a listview...

Is there a better way?

I will post some example projects if needed...

But how would I use a custom scrollbar on a listview control

Thanks for helping

Listview And Scrollbars
The question is prety simple, but I don't know if the answer will be.

Is it possible to show the vertical scrollbar of a listview even when there is only one Item or even no items in the listview??

No Scrollbars On My Listview
Ive got this listview control on a form, (VB 6) the columns are wider than the control (report view) but no scrollbars are appearing! anyone any ideas? ive looked through the properties and there's nothing

thanks

Listview ScrollBars??!!
yes, i have a listview where you can add icons/items and remove them if you are wanting...but when i have alot of items inside my listview all at once most of them will go out of view and you would need a scroll bar to scroll along to see the ones not in view...but no scroll bars appear at all? how do i get a vertical and hornizontal scrollbar in my list view??....

Thank you.

Listview's Scrollbars?
How can I detect if a listviews vertical scrollbar is visible or not? API or standard code would be excellent...

Oooo...999th post

ListView...scrollbars...
is it possible to detect, using API or otherwise, is a listview has a vertical scroll bar showing?
Basically what I want to do is resize the columns so that the horizontal scroll bar doesn't appear! But if the vertical one appears then the horozontal one also appears due the the vertical scroll bar taking up some room on the listview...

Detect Listview Scrollbars
I'm using listview (Report view) to list an unknown number of items. Depending on the number of items, the listview may or may not have a vertical scrollbar.

Is there a way to check whether a scrollbar is shown, so that I can adjust the column widths accordingly (to avoid a horizontal scrollbar)? Or would I have to count the number of items, and then calculate whether they fit into the listview without scrolling or not?

Scrollbars On A Listview Control
I have a listview control which gets it's data from a database. Once the list gets too long the scroll bars auto appear. This is ok except for the horizontal scrollbar. There doesnt' need to be one because i have resized the listview's width to more than fit the contents.

Is there anyway to "hide" the horizontal scrollbars on a listview?

thanks

Test For ListView ScrollBars
How do you determine, at run-time, if a ListView control is displaying scrollbars?

ListView.... And Flat Scrollbars...
Hi
Ok this is the last time I ever used the listview... it only gives me ****... LOL
Anyway... what's up with the flat scrollbars in a listview.
I have VB6 and they made it as a property... but that doesn't work...
I tried Chris his flat scrollbar sendmessage, but that doesn't work either...
I have the right dll, so that shouldn't be a problem... (and the flatheader works fine :-)
Do I overlook something? Hope anyone knows how to solve...
tnx in advance
Crazy D :-)

Listview And Vertical Scrollbars
I am manually populating a Listview, and when the item exceed the height of the ListView the vertical scroll bar appears. As you continue to add more items the scroll bar will not show the last-bottom item (the last item you just entered).

Does any one know how to make the scroll go to the bottom? Or the last item?

I am using VB6 SP5
The ListView has the Icon view.

Thanks in advance.

Brand Newbie - ListView Scrollbars
Post Number One!
Hi gang!

Firstly - Nice place you have here! Mind if I hang out a bit?

Secondly - I need some input on a "problem" I've just experienced. I'm rather new at VB but have put together what seems to be an extensive program for databasing AutoCAD drawings.

My problem: I am displaying a 2-column "Listview" of AutoCAD drawing (.DWG) file information. I get the first filename and put it into the 1st column. Then I go to a database to find the filename's drawing title and put that into the second column. All of that works fine, but I do not get a vertical scrollbar when the number of records exceeds the height of my listview box. The code is in my Userform "Initialize" subroutine and is as follows:

Code:
Fname = Dir(WorkingPath & "*.DWG") ' verify 1st filename
ListView1.View = lvwReport
ListView1.Height = 440
ListView1.Width = 787.9
ListView1.HideColumnHeaders = False
ListView1.GridLines = True
ListView1.GetFirstVisible
ListView1.ColumnHeaders.Add Text:="PROJECT FILE NAME"
ListView1.ColumnHeaders.Item(1).Width = 166
ListView1.ColumnHeaders.Add Text:="DRAWING TITLE"
ListView1.ColumnHeaders.Item(2).Width = 618
ListView1.Sorted = True
Conn.Open ("provider = (yadda-yadda-yadda)")
StrQuery = "SELECT * FROM PROJECTFILES"
RS.Open StrQuery, Conn, adOpenKeyset, adLockOptimistic
Do While Fname <> ""
-
- Section of script where I search title records for
- the drawing filename
-
Set oListItem = UserForm2.ListView1.ListItems.Add()
oListItem = Left(Fname, Len(Fname) - 4)
oListItem.SubItems(1) = FullDwgTitle
Fname = Dir ' Assign next filename
Loop ' look for next filename
RS.Close
Conn.Close
ListView1.Refresh
As stated, everything "lists" just fine except that I'm missing the vertical scrollbars on long lists. I can maneuver up and down by using the keyboard, but having a scrollbar would be convenient. Any suggestions/comments are appreciated, thanks!

Challenge - ListView With Custom Scrollbars
Challenge - ListView with Custom Scrollbars

Is anybody smart enough to help me get this working ok? I cannot make that the scrollbar reachs the bottom at the same time as the ListView. It's still buggy.... who dare see it?

In Crystal Report, Report Is Viewed But Doesnot View Next Page Or Not Any Message Display!
in crystal report, report is viewed but doesn't view next page or not any message display! and surprisingly page no is increased infinitely (up to no limit!, I have checked up to 400+) but next page was not displayed! if I print report , only 1st page is print!

In this report , I have attached 6 subreports!

I hope anybody reply about my problem

RESOLVED - Force Scrollbars In A Data Report?
I can't find any reference to a scrollbar property for a Data Report.

I have several reports in my project, some print portrait and some print landscape, but all display
in the same size window. I have done nothing as far as setting up scrollbars and yet it has
vertical scrollbars. But the landscape reports don't automatically generate horizontal scrollbars.

Can scrollbars be coded to appear in a data report???

TIA,
MDS

(this just in...)

I found what the prob was. it appears the state of the design window, either full frame or windowed within the framewhen the app is saved affects the way the rpt displays when retrieved at run time. All my rpts now display the same size AND with scrollbars (horz & vert) with no addt'l coding. Moral of the story, play with the window state when saving the project!

Listview && Tree View
I have a Tree view and a List view. I have designed something like Windows Explorer. What i want to do is to be able to resize them by using Mouse inbetween the Treeview & Listview.

Please advise.

Can Anyone Help Me? ListView To View The Database
CAn anyone help me? can i used the listview to view a database?

View Thumbnails In Listview ?
Can you view the thumbnails of a Dir picture contents in a listview control or any other control for that matter ?

<?> Listview Icon View
Code:
'question:
'I load my listview and I use 2 different icons
'one for odd numbers, one for even. No Problem
'
I can then view my listview by LargeIcon,SmallIcon,List,Report
No Problem
However, when viewing largeicon I only get one icon
All the rest show me the 2 different icons.

There obviously is a reason...someone what to impart
that bit of knowledge on me.

'load an array with information
Dim myArr(99)
Dim i As Integer
For i = 1 To 99
myArr(i) = CInt(Rnd * 99)
Next i

'then load the array into a listview

Dim x As Variant 'differ between odd and even rows

For i = 1 To 99
'used different images every second line
'image one for odd, image2 for even
x = i / 2
If x Like "*.*" Then
Set sItem = Listview1.ListItems.Add(, , myArr(i), 1, 1)
Else
Set sItem = Listview1.ListItems.Add(, , myArr(i), 1, 2)
End If
'add subitems
sItem.SubItems(1) = "905-444-9455"
sItem.SubItems(2) = "who knows"
Next i

Listview: View An Item On The Top
Hi vbFriends !!!

I have a ListView control (Report mode) and it has a lot of items.

When I search for an item and use EnsureVisible method, it usually happens that the item is shown as the last item in the listview's area.

I would like the item to be shown on the top of the listview's area, so that is much more comfortable for the user to see it.

Any hint that could help me?

Thank you in advance !!!

P.S.: here's an example:

My ListView:
-------------------------------
| 1 |
| 2 |
| 3 |
| 4 |
|found item shown here|
-------------------------------

But:
-------------------------------
| I want it here ! |
| 6 |
| 7 |
| 8 |
| 9 |
-------------------------------

Listview Columns In List View
I am trying to use Listview to import data from an Access table and I only want to use the list view not the list report. The data imports OK and populates the list OK into (in this case with the quantity of data imported) 4 columns.

Trouble is, all the data is truncated and I can find no way of setting the column widths as you can in the normal list box. I do not have any sub-items, just a single list so I do not need to set up any column headers.

Listview Problems With Arrange And View
Hi

I have couple of issues with my listview control.

a) when I set arrange=lvwautoleft, I expect the coloumn headers to appear vertically on the left hand side. That does not happen.

b) When I set view = lvwicon, lvwsmallicon, or lvwlist, I see nothing in the listview control, only the lvwreport works (I see the image and the text in the colomn header). I have set up the image icon and all the setting etc.

regards

Yamin

It Is Possible To View Image In The Listview Items?
I have microsoft accesss store image path location in record.I would like to know, it is possible to view image in the listview items from database?for example ".jpg" image file format.

Listview(view=lvwreport) Set Colour
In a Listview Report, how can I set colour on a selected ROWs based on inputed data.

e.g. if "Year = 2001" is red colour OR if "Year = 2003" is blue colour.

Thank you in advance

View Thumnail Images In A Listview
Hi All,
I have an image control on a form that shows images to a listview (with checkboxes) I want to be able to check certain ones and display the checked thumbnails only. What is the best way to start? would it be better to have a second image control and a second listview or is there a easier way to do it?
Thanks

2 Questions In ListView (View=3-lvwReport)
Hello every one...
I'm trying to use the ListView control to make something like an Adress Book in my program..So i make 4 columns and i made another form with 4 text boxes to add info to the Adress Book (See the Picture in the Attachement).
- My first question is how can i add info to these 4 columns.
- My second question is how to save info in them (I mean does the Savesettings and Getsettings works with ListView?).

Listview Doubleclick To View Details HELP!!!
I have looked and fumbled for 2 weeks and am admitting total defeat!

I have a database that tracks fleet vehicles.
Access 2k mdb
tblVeh fields:
VehNum
Year
Make
Model
etc1
etc2 (and so on)

I'd like to have a ListView box that shows all the vehicles sorted by VehNum
(which is a owner assigned number). When the user double clicks (or click,
I'm not picky), it would fill in the rest of that record in other fields on
the same (or different) form.

I have gotten the form to come up but can not get it to work otherwise. I'm
ready to trash the existing code (20 lines or so total - so no big loss) and
start fresh with any ideas that you might have.

I'm using ADO code vs the data tool (although I'm not sure why, I was lead
to believe that coe was better than the tools).

I'm looking forward to your assistance and am *very* greatful for any help
that you might provide.

Chris

View Report
hi!!!
Is there any other way to view data from Access DB and put it in the cells in a multiline mode to see the entire content
without using text controls? I tried using MSCOMCONTROL(Listview) and MSHFLEXGRID and had not come up with the right answer. THanks.......

Cannot View Report
The error is shown for the blue line there when I debug,mentioning 424:Object Required.But,the fieldname is correct.The green line there,there is error for .Orientation.This error quite weird.Sometimes,it can display,but sometimes show the .Orientation error again.Please help me,all expert

VB Code:
Private Sub cmdView_Click()Private Sub cmdView_Click()On Error GoTo exithandler If optProgram.Value = True Then cmbVendor.Text = Empty cmbEquip.Text = Empty cmbStatus.Text = Empty If Trim(cmbProgram) = Empty Then Call MsgBox("Please select the Program from the list", vbInformation, "Program Required") cmbProgram.SetFocus Exit Sub End If On Error Resume Next Unload rptEnvironment If cmbProgram.Text = "All" Then Call rptEnvironment.MainReport' MainRpt.Orientation = rptOrientPortrait MainRpt.Show Else Call rptEnvironment.ProgramReport(cmbProgram)' ProgramRpt.Orientation = rptOrientPortrait ProgramRpt.Show End IfElseIf optVendor.Value = True Then cmbProgram.Text = Empty cmbEquip.Text = Empty cmbStatus.Text = Empty If Trim(cmbVendor) = Empty Then Call MsgBox("Please select the Vendor Name from the list", vbInformation, "Vendor Name Required") cmbVendor.SetFocus Exit Sub End If [color=Blue]Call rptEnvironment.VendorReport(cmbVendor)[/color] VendorRpt.Orientation = rptOrientPortrait VendorRpt.ShowElseIf .... End If

Flicker While Populating Tree View And ListView
Hi,

In a project that I am currently working on in VB6, I have a treeview (showing folders) and a listview (in report view mode).

I have defined database operations (Add/Update/Delete, etc) in an Activex DLL which raises events on success or failure on any of the operations.

I have about 7 rows in my folder table and 800+ rows in my details table (40+ fields mainly varchars and 2 blobs columns).

I am populating the Treeview with the data in the Folder Table and the Listview with the data from the Contact Table. After populating the folder tree and listview in the Form_Load event, when I show the form using Form.Show there is a noticeable flicker in the treeview and the listview, before the form is shown. This is very annoying I want the form to appear with the data loaded in the tree view and list view.

I have tried LockWindowUpdate and SendMessage (WM_SETREDRAW) API calls to no avail.

Any suggestions on how I can achieve 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.