Visual Basic

how to calculate the value for listView subitems? [modified]

13-Apr-09 19:31

As Luc said STOP doing any more work with VB6, download the FREE express tools and start with a language that is not DEAD

And yes I am shouting, you are making one of the worst mistakes in your young life.

Never underestimate the power of human stupidity
RAH

zhiyuan1613-Apr-09 15:49

zhiyuan16

13-Apr-09 15:49

dear all

i am a newbie in vb6, so far i entountered a problem, how to calculate the value for listview subitem, my part code is here, anyone can help me, thanks a lot.

actually i am calculating the pixel amount in each index: for example: index value: 0, 1, 2 ...255.
when i click Button Execute in form frmHistogram: the code is following:

Private Sub cmdExecute_Click()
    'Execute the computing
    


    EasyMain1.Histogram EBW8Image1.object, frmHistogramVector.EBWHistogramVector1.object
    
    
    frmHistogramVector.EBWHistogramVector1.Refresh
    frmHistogramVector.Show
    
End Sub

and i wanna put the variable a as my subitem value, the code is the following:

Private Sub Form_Load()
    

      Dim Min As Long
      Dim Max As Long
      Min = 0
      Max = 255
    With ListView1
       
        .ColumnHeaders.Add          'add a couple columns
        .ColumnHeaders.Add
        .ColumnHeaders(1).Text = "Index"     'name the columns
        .ColumnHeaders(2).Text = "Count"
        .ColumnHeaders(1).Width = .Width * 0.35  'column width based on width of list view
        .ColumnHeaders(2).Width = .Width * 0.5
    
    Dim I As Long
    Dim a As Single

    With .ListItems
        For I = 0 To 255
        a = EasyMain1.AnalyseHistogram(EBWHistogramVector1.object, eImgPixelCount, 0, 255)
            With .Add(, , I)
                 .ListSubItems.Add , , a
               
            End With
        Next I
    End With

        
    End With
    
End Sub

however when i run program, one popup dialog remind me: invalid number of vector elements.

what is problem here. thanks.

modified on Monday, April 13, 2009 10:19 PM

Re: how to calculate the value for listView subitems?

Mycroft Holmes13-Apr-09 19:32

Re: how to calculate the value for listView subitems?

13-Apr-09 19:32

Are you stuck supporting an existing VB6 program or are you creating a new app?

Never underestimate the power of human stupidity
RAH

zhiyuan1613-Apr-09 19:41

zhiyuan16

13-Apr-09 19:41

thanks for your reply, i created new app using uersys lib.

save checked items in listview using savefiledialog

siralphaomega13-Apr-09 6:54

Re: save checked items in listview using savefiledialog

13-Apr-09 6:54

Hi all

I have a listview with checkboxes which populates correctly
I want to be able to select items and have the actual file saved to any location using sfd

The items in listview are populated from TIF and are files such as *.swf, *.flv...etc
I want to be able to save the items(files) that are checked

The form has 2 buttons...button1 does the searching and button2 invokes the sfd
The listview has columns for number, filename, size and location

I am not able to accomplish this so any help is appreciated.

Thanks
sao

Dave Kreskowiak13-Apr-09 10:38

Dave Kreskowiak

13-Apr-09 10:38

siralphaomega wrote:
have the actual file saved to any location using sfd

And "sfd" is what???

siralphaomega wrote:
The items in listview are populated from TIF

What do you mean by "TIF"??

siralphaomega wrote:
I want to be able to save the items(files) that are checked

Are you talking about the strings in the CheckBoxList or are you talking about getting the files from a source location and saving them to a folder on the local machine??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: save checked items in listview using savefiledialog

siralphaomega13-Apr-09 19:43

Re: save checked items in listview using savefiledialog

13-Apr-09 19:43

Hi Dave

"And "sfd" is what???"
sfd is savefiledialog

"What do you mean by "TIF"??"
TIF is temporary internet files

"Are you talking about the strings in the CheckBoxList or are you talking about getting the files from a source location and saving them to a folder on the local machine??"
No not the strings but as you mentioned getting the files from a source location (tif) and saving them to a folder by using the savefiledialog.

The listview populates correctly fetching all *.swf for example
The user then places a checkmark next to items and clicks button2 to save the files...not the strings
I have the savefiledialog configured correctly and know how to call it but i don't know how to get the program to only save checked files.

Thanks for taking a look

sao

siralphaomega13-Apr-09 20:54

Re: save checked items in listview using savefiledialog

13-Apr-09 20:54

Dave...I'm posting the entire code
Button1 works perfectly. I need help with Button2 to link checked items to the savefiledialog

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' button 1 searches for items
' get cache path from registry in case it has been moved...
Dim path As String = My.Computer.Registry.GetValue _
("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cache", Nothing)
If RadioButton1.Checked = True Then ' radio button 1 for *.swf
Me.ListView1.Items.Clear()
Dim fileSize As Integer = 0
Dim i As Integer ' counts items
i = 0
For Each foundFile As String In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchAllSubDirectories, "*.swf")
i = i + 1
fileSize = My.Computer.FileSystem.GetFileInfo(foundFile).Length
With ListView1.Items.Add(i) 'i is item number
.SubItems.Add(foundFile.Substring(foundFile.LastIndexOf("\") + 1)) ' Remove Path From Name
.SubItems.Add(FormatNumber(fileSize / 1024, 2, TriState.UseDefault)) ' convert to KB
.SubItems.Add(foundFile.ToString) ' path + filename
End With
Next foundFile
Label1.Text = "total =" & " " & i & " " & "items" ' displays total # of items
End If
''''''''''''''''
If RadioButton2.Checked = True Then ' radio button 2 for *.ico
Me.ListView1.Items.Clear()
Dim fileSize As Integer = 0
Dim i As Integer
i = 0
For Each foundFile As String In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchAllSubDirectories, "*.ico")
i = i + 1
fileSize = My.Computer.FileSystem.GetFileInfo(foundFile).Length
With ListView1.Items.Add(i)
.SubItems.Add(foundFile.Substring(foundFile.LastIndexOf("\") + 1)) ' Remove Path From Name
.SubItems.Add(FormatNumber(fileSize / 1024, 2, TriState.UseDefault))
.SubItems.Add(foundFile.ToString)
End With
Next foundFile
Label1.Text = "total =" & " " & i & " " & "items"
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Open SaveFileDialog box
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

For Each checkeditem In ListView1.CheckedItems
My.Computer.FileSystem.CopyFile(SaveFileDialog1.FileNam, True)
Next
End If
End Sub
End Class

Mycroft Holmes13-Apr-09 19:37

Re: save checked items in listview using savefiledialog

13-Apr-09 19:37

loop through each item in the listview and test the checked property, process the item appropriately using the text and subitem information from the item.

Never underestimate the power of human stupidity
RAH

siralphaomega13-Apr-09 20:56

Re: save checked items in listview using savefiledialog

13-Apr-09 20:56

Hi RAH

I have posted the entire code...Please take a look

sao

Mycroft Holmes13-Apr-09 22:21

13-Apr-09 22:21

Instead of the savefiledialog try getting the target folder using the directory browser, then concat the target folder to the filename from the listview and use fileinfo.copy

Never underestimate the power of human stupidity
RAH

Regwrite

siva45513-Apr-09 4:20

siva455

13-Apr-09 4:20

Hi,
i have an html file in Webserver..and when i invoke it from client it should create a registry in the client machine...im able to achieve this using Wshell.Regwrite but as shell is an activeX control it depends upon internet options and I should write registry without depending upon internet options....

Pls let me know regarding the same...

Re: Regwrite

EliottA13-Apr-09 7:14

EliottA

13-Apr-09 7:14

See this[^] thread on limitations and restrictions between a client and webserver. It is literally located about ~~2/17ths of an inch under this word.~~ Stupid signature, about 1.5 inches under this word. Cry | :((

Check out the CodeProject forum Guidelines[^]

Re: Regwrite

Dave Kreskowiak13-Apr-09 8:43

Dave Kreskowiak

13-Apr-09 8:43

Basically, any code running inside of a web browser, under default security restrictions, cannot access the registry at all.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Regwrite

Yusuf13-Apr-09 14:23

Yusuf

13-Apr-09 14:23

Just stop what you doing and Imagine if someone could write some code and access your registry.... D'Oh! | :doh:

Yusuf

Oh didn't you notice, analogous to square roots, they recently introduced rectangular, circular, and diamond roots to determine the size of the corresponding shapes when given the area. Luc Pattyn[^]

Run command

p_196013-Apr-09 3:06

p_1960

13-Apr-09 3:06

Hi,
im using Wshell.Run(Vb script) in html page to run a command but as Shell is an ActiveX control it depends on Internet options which may not be similar in all machines...
So please let me know how can i run a command without using Shell object.....

Dave Kreskowiak13-Apr-09 3:52

Dave Kreskowiak

13-Apr-09 3:52

You can't. Resources local to the machine the browser is running on are off-limits if security is tightened up enough. Running an artibtrary executable on the client machine is a high security risk, so it's not recommended your website depend on it. JavaScript has the same limitations.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

p_196013-Apr-09 4:16

p_1960

13-Apr-09 4:16

Thanks for ur reply....

But our requirement is like that ie..i have a link on my html and when i click on that it should run an msi using a command like

strPath="http:/"/(servername)/(virualdirectoryname)/test.msi"
strPa="ALLUSERS=1
WshShell.Run "msiexec /i "& strPath & strPa

So pls let me know how can i achieve this without WshShell or should i go for asp.net....

Eddy Vluggen13-Apr-09 4:36

Eddy Vluggen

13-Apr-09 4:36

Implementing this behavior as described will get you marked as a "virus". Why are you trying to bypass the user, shouldn't he/she give permission first?

I are troll Smile | :)

siva45513-Apr-09 5:15

siva455

13-Apr-09 5:15

Thanks for ur reply....and our requirement is like that i can"t change that and our
application will be running in intranet...

Please help me out....

Eddy Vluggen13-Apr-09 7:10

Eddy Vluggen

13-Apr-09 7:10

pradeep455 wrote:
our requirement is like that i can"t change that

You can't install something on a computer without the owners' permission. In your case perhaps not the end-user, but there's a network admin responsible for that intranet, somewhere. Find that network admin and ask him to distribute it over the domain Smile | :)

Anything done to a PC without the owners' consent could be considered a crime in some countries. I'd suggest you get the opinion of a lawyer before proceeding.

I are troll Smile | :)