[RESOLVED] how to refresh the listview with another form

[salsa31]

hello
i have a listview and in trying to refresh it by showing another form that says
refreshing list please wait
tnx for the help
this is the code that call the refresh

Case 11: If LsVw.SelectedItem Is Nothing Then Exit Sub
        loadentries

and the code for the refresh

  Sub LoadEntries()

LsVw.ListItems.Clear
TxtFind.Text = ""
FrmCusts.MousePointer = vbHourglass

   Set RS = CN.Execute("SELECT * FROM Customers ORDER BY FullName ")
     
    
  TxtFind.Enabled = False
  TlBar.Enabled = False
  
   
    While Not RS.EOF
        Set Itm = LsVw.ListItems.Add(, , RS!FullName, , "cust")
        Itm.Tag = RS!ID
        Itm.Bold = True
        Itm.SubItems(1) = RS!Address
        Itm.SubItems(2) = Format(RS!DateBirth, "dd/mm/yyyy")
        Itm.SubItems(3) = RS!Facebook
        Itm.SubItems(4) = RS!Email
        Itm.SubItems(5) = RS!Phone
        Itm.SubItems(6) = RS!Cellular
        Itm.SubItems(7) = RS!HairColour
        Itm.SubItems(8) = RS!Oxygen
        RS.MoveNext
        DoEvents
        Wend
       
         FrmCusts.MousePointer = vbNormal
        
      TxtFind.Enabled = True
        TlBar.Enabled = True
     
     
End Sub

tnx for the help

[Nightwalker83]

If you are using VB6 just make the sub public and call the LoadEntries() sub from the other form or put the code in a module and do the same thing.

[salsa31]

im using vb 6

can you give me an example?

[ladoo]

 Sub LoadEntries()
 label1.caption = "Refreshing Please Wait.....
LsVw.ListItems.Clear
TxtFind.Text = ""
FrmCusts.MousePointer = vbHourglass

   Set RS = CN.Execute("SELECT * FROM Customers ORDER BY FullName ")
     
    
  TxtFind.Enabled = False
  TlBar.Enabled = False
  
   
    While Not RS.EOF
        Set Itm = LsVw.ListItems.Add(, , RS!FullName, , "cust")
        Itm.Tag = RS!ID
        Itm.Bold = True
        Itm.SubItems(1) = RS!Address
        Itm.SubItems(2) = Format(RS!DateBirth, "dd/mm/yyyy")
        Itm.SubItems(3) = RS!Facebook
        Itm.SubItems(4) = RS!Email
        Itm.SubItems(5) = RS!Phone
        Itm.SubItems(6) = RS!Cellular
        Itm.SubItems(7) = RS!HairColour
        Itm.SubItems(8) = RS!Oxygen
        RS.MoveNext
        DoEvents
        Wend
      pause 2
label1.caption = "Loading Finished"
         FrmCusts.MousePointer = vbNormal
        
      TxtFind.Enabled = True
        TlBar.Enabled = True
     
     
End Sub

Sub Pause(interval)
Dim atime
atime = Timer
Do While Timer - atime < Val(interval)
DoEvents
Loop
End Sub

[salsa31]

what is this?

Sub Pause(interval)
Dim atime
atime = Timer
Do While Timer - atime < Val(interval)
DoEvents
Loop
End Sub

[DataMiser]

I would not use that pause sub. Should be avoided at all costs

You could as mentioned before make the sub public and call it from the other form

Public Sub LoadEntries()

Fomr1.LoadEntries

Or you could show the second form and refresh it at the top of the sub routine

 Sub LoadEntries()
      Form2.Show
      Form2.Visible=true   'may not be needed
      form2.refresh   ' may not be needed   ... these lines added only to insure that the form is actually displayed before the code continues on.

[salsa31]

hey DM
the thing is that i already created another form
and i have a toolbar
that calls this procedure

Case 11: If LsVw.SelectedItem Is Nothing Then Exit Sub
        here i did form1.show 1

i want the form1 to be displayed wile the backround with the listview gets refreshed

[DataMiser]

If you are using the modal flag then you would have to call the sub from that form.

[salsa31]

and how do i do that?

[DataMiser]

Like I showed you in the earlier post you make the sub public and call it from the other form using formname.subname

[salsa31]

i tried that didnt work
i just want a form to show loading wile in the backround the listview gets refreshed and when it finishes the the form loading dissapears

[ladoo]

check post 4 why are u making things hard for u ?

start with simple code the pause code to your project and rest code try it
then later on when u se results just remove the lables and use forms instead

[DataMiser]

i tried that didnt work
i just want a form to show loading wile in the backround the listview gets refreshed and when it finishes the the form loading dissapears

Show the code that you are actually using now and be more descriptive when you have a problem saying it didn't work does not tell us what went wrong
The method I showed you will work if you do it correctly. You can also place the code that loads the list on the other form in a public sub and call it from the first form

Code in your second form

Public Sub LoadList(TheList as ListView)
    Me. Visible=true
    Me.Refresh
    ' code to populate TheList
   Unload Me
End Sub

[salsa31]

this is the code when i press refresh in the form 1

  Sub LoadEntries()

LsVw.ListItems.Clear
TxtFind.Text = ""
FrmCusts.MousePointer = vbHourglass

   Set RS = CN.Execute("SELECT * FROM Customers ORDER BY FullName ")
     
    
  TxtFind.Enabled = False
  TlBar.Enabled = False
  
   
    While Not RS.EOF
        Set Itm = LsVw.ListItems.Add(, , RS!FullName, , "cust")
        Itm.Tag = RS!ID
        Itm.Bold = True
        Itm.SubItems(1) = RS!Address
        Itm.SubItems(2) = Format(RS!DateBirth, "dd/mm/yyyy")
        Itm.SubItems(3) = RS!Facebook
        Itm.SubItems(4) = RS!Email
        Itm.SubItems(5) = RS!Phone
        Itm.SubItems(6) = RS!Cellular
        Itm.SubItems(7) = RS!HairColour
        Itm.SubItems(8) = RS!Oxygen
        RS.MoveNext
        DoEvents
        Wend
       
         FrmCusts.MousePointer = vbNormal
        
      TxtFind.Enabled = True
        TlBar.Enabled = True
     
     
End Sub

[salsa31]

Public Sub LoadList(TheList as ListView)
    Me. Visible=true
    Me.Refresh
    ' code to populate TheList
   Unload Me
End Sub

where do i put this?

[techgnome]

Personally I don't care for forms that load data in other forms like this... having a "please wait" form is fine... but that's all it should do... it should be generic and do nothing more.... the form that the listview is on is what should be responsible for loading the listview.

Just my two cents.

-tg

[ladoo]

bump i bet this simple thread will go past 30 post bump

[salsa31]

tnx all for the help
i just did frame1.caption loading...