Shoutbox

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?

---

check if the service that it is providing is working, so a http server, try to download the index page, or just a HEAD request (will save bandwidth), ftp try to connect, etc...

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

---

This shouldn't work in VB 2008, because forms are now stored as classes rather than objects, so form1 is the class.

What you would be better off doing, is making a module, and using Sub Main and having a global in the module called form1Instance, code like this:

Visual Basic code:

---

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

---

To Reset the form, call Module1.Reset. At least... it should work.

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