Ok so i have 1 form called Form1.

There is a button on there called b2 and when that's clicked i need it to reload the whole form (form1). I can't figure out a way of doing this. If i do Form1.Exit() then load it or show i can't as it's gone and theres nothing to do it

So how can i reload the form?

reload? like start afresh?
Form1.Refresh() not what you want?

or hide it and show it?
Form1.Hide()
Form1.Show()


edit: but in vb2008 you should use me if you are calling it from that form

so

Me.Refresh()
Me.Hide()
etc

Ok, i did me.refresh but it's no reloading all the things in the form.

When the form stats it pings 5 servers and displays if there online or offline. I need it to reload it so it pings them i again. This can be done by refreshing the form right?

When i do me.refresh() it does not reload the results

I believe this will be due to Refresh() only refreshing the graphical elements of the form. If you want to rerun code you'll want to make the button perform a Call function.

However this won't empty the listbox(i presume that's what you're using) and will just append the results to it, you'll need to clear it first.

Can you give me an example?

put the ping'ing stuff, loading list box etc in a procedure.

call the procedure on form load, call it again after the button press?

Yeah, basically.

code:

---

Public Class form1

   Private sub Ping()
  -code-
   End Sub

   Private sub Button_Click() Handles Button.Click
   Call Ping()
   End Sub

---

Ok well the code for that form starts like

code:

---

Private Sub main1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

---

code:

---

If My.Computer.Network.Ping("xx.xxx.xx.xx") Then
            PictureBox1.Show()
        Else
            PictureBox10.Show()
        End If

---

code:

---

End Sub

---

are you learning vb atm?


Look up procedures

It's prob better its something you lookup and learn yourself because you'll find it useful in future

Ok, i've got it partly working.

When the form loads this command is given:

code:

---

Call Ping()

---

then hide the images you don't want to show?

code:

---

If My.Computer.Network.Ping("xx.xxx.xx.xx") Then
            PictureBox1.Show()
            PictureBox10.Hide()

        Else
            PictureBox10.Show()
            PictureBox1.Hide()
End If

---

What like

If My.Computer.Network.Ping("xx.xxx.xx.xx") Then
            PictureBox1.Show()

        Else
            PictureBox10.Show()
            PictureBox1.Hide()
End If

nope, like what I showed you

I did that but if one is online then offline then online, 2 images are shown..

Just completely clear all the images inside your ping Sub. That way when you call it they'll all be generated right.

[so, in your Sub Ping() your first bit of code will be PictureBox1.Hide(), PictureBox2.Hide() etc, then you have your ping stuff + showing the pictures]

Thanks

Got it working

If i ping a server sometimes  the ping messes up and it detects the server as offline. It's not though. Is there a better way to see if a server is offline or online?

quote:

---

Originally posted by Quantum
If i ping a server sometimes  the ping messes up and it detects the server as offline. It's not though. Is there a better way to see if a server is offline or online?

---

very simple to reload a form.

use another form, in it have this code execute either by load or another objects method.

form1.close() 'form you want reloaded closes
form1.visible = true  'form you want reloaded opens
form2.close() 'form that did the reload closes



yours,
PM

quote:

---

Originally posted by pillowmurder
very simple to reload a form.

use another form, in it have this code execute either by load or another objects method.

form1.close() 'form you want reloaded closes
form1.visible = true  'form you want reloaded opens
form2.close() 'form that did the reload closes



yours,
PM

---

Visual Basic code:

---

Dim form1Instance As Form1
 
Sub Main
  form1Instance = new Form1
  form1Instance.Show()
End Sub
 
Sub Reset
  form1Instance.close()
  form1Instance.show()
End Sub

---

Hi in case your still interested in finding the solution for this.

This is what worked for me.

I needed to refresh the data that the form has, but the microsoft refresh button is not doing the trick, so here is what i did:

I created a sub procedure called "loadReport", which must happen at form load, and on click event of refresh button.

Here is how my code looks like:

Private Sub loadReport()
        Try
            'TODO: This line of code loads data into the 'myDataSet.Events' table. You can move, or remove it, as needed.
            Me.EventsTableAdapter.Fill(Me.myDataSet.Events)
            'TODO: This line of code loads data into the 'myDataSet.eventtable' table. You can move, or remove it, as needed.
            Me.eventtableTableAdapter.Fill(Me.myDataSet.eventtable)
            ' Me.EventsTableAdapter.Fill(Me.myDataSet.Events)
            Me.ReportViewer1.RefreshReport()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'       Call the sub procedure on form load
        loadReport()
    End Sub

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        'Call the sub procedure on refresh button
        loadReport()
    End Sub